-- check when creating the upper bound. This is needed to avoid junk
-- overflow checks in the common case of String types.
- -- ??? Disabled for now
-
- -- elsif Istyp = Standard_Positive then
- -- Artyp := Standard_Unsigned;
+ elsif Istyp = Standard_Positive then
+ Artyp := Standard_Unsigned;
-- For modular types, we use a 32-bit modular type for types whose size
-- is in the range 1-31 bits. For 32-bit unsigned types, we use the
-- Bounds in Minimize calls, not used currently
LLIB : constant Entity_Id := Base_Type (Standard_Long_Long_Integer);
- -- Entity for Long_Long_Integer'Base (Standard should export this???)
+ -- Entity for Long_Long_Integer'Base
begin
Minimize_Eliminate_Overflows (Lop, Lo, Hi, Top_Level => False);
-- are too large, and which in the absence of a check results in
-- undetected chaos ???
- -- Note in particular that this is a pessimistic estimate in the
- -- case of packed array types, where an array element might occupy
- -- just a fraction of a storage element???
-
declare
Idx : Node_Id := First_Index (E);
Len : Node_Id;
end if;
-- RM E.2.2(17). We enforce that the expected type of an allocator
- -- shall not be a remote access-to-class-wide-limited-private type
-
- -- Why is this being done at expansion time, seems clearly wrong ???
+ -- shall not be a remote access-to-class-wide-limited-private type.
+ -- We probably shouldn't be doing this legality check during expansion,
+ -- but this is only an issue for Annex E users, and is unlikely to be a
+ -- problem in practice.
Validate_Remote_Access_To_Class_Wide_Type (N);
if Is_Copy_Type (Typ) then
Target_Typ := Typ;
- -- ??? Do not perform the optimization when the return statement is
- -- within a predicate function, as this causes spurious errors. Could
- -- this be a possible mismatch in handling this case somewhere else
- -- in semantic analysis?
+ -- Do not perform the optimization when the return statement is
+ -- within a predicate function, as this causes spurious errors.
Optimize_Return_Stmt :=
Nkind (Par) = N_Simple_Return_Statement and then not In_Predicate;
-- perspective.
if Comes_From_Source (Obj_Ref) then
-
- -- Recover the actual object reference. There may be more cases
- -- to consider???
-
loop
if Nkind (Obj_Ref) in
- N_Type_Conversion | N_Unchecked_Type_Conversion
+ N_Type_Conversion |
+ N_Unchecked_Type_Conversion |
+ N_Qualified_Expression
then
Obj_Ref := Expression (Obj_Ref);
else
begin
-- If test is explicit x'First .. x'Last, replace by valid check
- -- Could use some individual comments for this complex test ???
-
if Is_Scalar_Type (Ltyp)
-- And left operand is X'First where X matches left operand
Enclosing_Scope : constant Node_Id := Scope (Typ);
E : Entity_Id;
begin
- -- Prune this search by somehow not looking at decls that precede
- -- the declaration of the first view of Typ (which might be a partial
- -- view)???
-
for Private_Entities in Boolean loop
if Private_Entities then
if Ekind (Enclosing_Scope) /= E_Package then
-- At this stage, either the conversion node has been transformed into
-- some other equivalent expression, or left as a conversion that can be
- -- handled by Gigi, in the following cases:
-
- -- Conversions with no change of representation or type
-
- -- Numeric conversions involving integer, floating- and fixed-point
- -- values. Fixed-point values are allowed only if Conversion_OK is
- -- set, i.e. if the fixed-point values are to be treated as integers.
-
- -- No other conversions should be passed to Gigi
-
- -- Check: are these rules stated in sinfo??? if so, why restate here???
+ -- handled by Gigi.
-- The only remaining step is to generate a range check if we still have
-- a type conversion at this stage and Do_Range_Check is set. Note that
-- an Assignment_OK indication which must be propagated to the operand.
if Operand_Type = Target_Type then
-
- -- Code duplicates Expand_N_Unchecked_Expression above, factor???
-
- if Assignment_OK (N) then
- Set_Assignment_OK (Operand);
- end if;
-
- Rewrite (N, Relocate_Node (Operand));
+ Expand_N_Unchecked_Expression (N);
return;
end if;
return;
end if;
- -- Otherwise force evaluation unless Assignment_OK flag is set (this
- -- flag indicates ??? More comments needed here)
-
if Assignment_OK (N) then
null;
else
-- do not need to generate an actual or formal generic part, just the
-- instantiated function itself.
- -- Perhaps we could have the actual generic available in the run-time,
- -- obtained by rtsfind, and actually expand a real instantiation ???
-
function Make_Array_Comparison_Op
(Typ : Entity_Id;
Nod : Node_Id) return Node_Id
Table_Initial => 20,
Table_Increment => 100,
Table_Name => "Gnatlink.Gcc_Linker_Options");
- -- Comments needed ???
+ -- Options to be passed to the gcc linker
package Libpath is new Table.Table (
Table_Component_Type => Character,
Table_Initial => 4096,
Table_Increment => 100,
Table_Name => "Gnatlink.Libpath");
- -- Comments needed ???
+ -- Library search path
package Linker_Options is new Table.Table (
Table_Component_Type => String_Access,
Table_Initial => 20,
Table_Increment => 100,
Table_Name => "Gnatlink.Linker_Options");
- -- Comments needed ???
+ -- Options to be passed to gnatlink
package Linker_Objects is new Table.Table (
Table_Component_Type => String_Access,
-- Indicates wether libgcc should be statically linked (use 'T') or
-- dynamically linked (use 'H') by default.
+ Link_Max : Integer;
+ pragma Import (C, Link_Max, "__gnat_link_max");
+ -- Maximum number of bytes on the command line supported by the OS
+ -- linker. Passed this limit the response file mechanism must be used
+ -- if supported.
+
+ Run_Path_Option_Ptr : Interfaces.C.Strings.chars_ptr;
+ pragma Import (C, Run_Path_Option_Ptr, "__gnat_run_path_option");
+ -- Pointer to string representing the native linker option which
+ -- specifies the path where the dynamic loader should find shared
+ -- libraries. Equal to null string if this system doesn't support it.
+
+ Libgcc_Subdir_Ptr : Interfaces.C.Strings.chars_ptr;
+ pragma Import (C, Libgcc_Subdir_Ptr, "__gnat_default_libgcc_subdir");
+ -- Pointer to string indicating the installation subdirectory where
+ -- a default shared libgcc might be found.
+
+ Object_Library_Ext_Ptr : Interfaces.C.Strings.chars_ptr;
+ pragma Import
+ (C, Object_Library_Ext_Ptr, "__gnat_object_library_extension");
+ -- Pointer to string specifying the default extension for
+ -- object libraries, e.g. Unix uses ".a".
+
+ Separate_Run_Path_Options : Boolean;
+ for Separate_Run_Path_Options'Size use Character'Size;
+ pragma Import
+ (C, Separate_Run_Path_Options, "__gnat_separate_run_path_options");
+ -- Whether separate rpath options should be emitted for each directory
+
+ function Get_Maximum_File_Name_Length return Integer;
+ pragma Import (C, Get_Maximum_File_Name_Length,
+ "__gnat_get_maximum_file_name_length");
+
function Base_Name (File_Name : String) return String;
-- Return just the file name part without the extension (if present)
procedure Check_Existing_Executable (File_Name : String);
-- Delete any existing executable to avoid accidentally updating the target
- -- of a symbolic link, but produce a Fatail_Error if File_Name matches any
+ -- of a symbolic link, but produce a Fatal_Error if File_Name matches any
-- of the source file names. This avoids overwriting of extensionless
-- source files by accident on systems where executables do not have
-- extensions.
procedure Process_Binder_File (Name : String);
-- Reads the binder file and extracts linker arguments
+ function Index (S, Pattern : String) return Natural;
+ -- Return the last occurrence of Pattern in S, or 0 if none
+
+ procedure Search_Library_Path
+ (Next_Line : String;
+ Nfirst : Integer;
+ Nlast : Integer;
+ Last : Integer;
+ GNAT_Static : Boolean;
+ GNAT_Shared : Boolean);
+ -- Given a Gnat standard library, search the library path to find the
+ -- library location. Parameters are documented in Process_Binder_File.
+
procedure Usage;
-- Display usage
pragma Unreferenced (Status);
begin
Status := unlink (Name'Address);
- -- Is it really right to ignore an error here ???
end Delete;
---------------
Exit_Program (E_Fatal);
end Exit_With_Error;
+ -----------
+ -- Index --
+ -----------
+
+ function Index (S, Pattern : String) return Natural is
+ Len : constant Natural := Pattern'Length;
+
+ begin
+ for J in reverse S'First .. S'Last - Len + 1 loop
+ if Pattern = S (J .. J + Len - 1) then
+ return J;
+ end if;
+ end loop;
+
+ return 0;
+ end Index;
+
------------------
-- Process_Args --
------------------
Arg : constant String := Argument (Next_Arg);
begin
- -- Case of argument which is a switch
-
- -- We definitely need section by section comments here ???
+ -- This argument must not be parsed, just add it to the list of
+ -- linker's options.
if Skip_Next then
- -- This argument must not be parsed, just add it to the
- -- list of linker's options.
-
Skip_Next := False;
Linker_Options.Increment_Last;
Linker_Options.Table (Linker_Options.Last) :=
new String'(Arg);
+ -- Case of argument which is a switch
+
elsif Arg'Length /= 0 and then Arg (1) = '-' then
if Arg'Length > 4 and then Arg (2 .. 5) = "gnat" then
Exit_With_Error
Link_Bytes : Integer := 0;
-- Projected number of bytes for the linker command line
- Link_Max : Integer;
- pragma Import (C, Link_Max, "__gnat_link_max");
- -- Maximum number of bytes on the command line supported by the OS
- -- linker. Passed this limit the response file mechanism must be used
- -- if supported.
-
Next_Line : String (1 .. 1000);
-- Current line value
RB_Nlast : Integer; -- Slice last index
RB_Nfirst : Integer; -- Slice first index
- Run_Path_Option_Ptr : Interfaces.C.Strings.chars_ptr;
- pragma Import (C, Run_Path_Option_Ptr, "__gnat_run_path_option");
- -- Pointer to string representing the native linker option which
- -- specifies the path where the dynamic loader should find shared
- -- libraries. Equal to null string if this system doesn't support it.
-
- Libgcc_Subdir_Ptr : Interfaces.C.Strings.chars_ptr;
- pragma Import (C, Libgcc_Subdir_Ptr, "__gnat_default_libgcc_subdir");
- -- Pointer to string indicating the installation subdirectory where
- -- a default shared libgcc might be found.
-
- Object_Library_Ext_Ptr : Interfaces.C.Strings.chars_ptr;
- pragma Import
- (C, Object_Library_Ext_Ptr, "__gnat_object_library_extension");
- -- Pointer to string specifying the default extension for
- -- object libraries, e.g. Unix uses ".a".
-
- Separate_Run_Path_Options : Boolean;
- for Separate_Run_Path_Options'Size use Character'Size;
- pragma Import
- (C, Separate_Run_Path_Options, "__gnat_separate_run_path_options");
- -- Whether separate rpath options should be emitted for each directory
-
procedure Get_Next_Line;
-- Read the next line from the binder file without the line
-- terminator.
- function Index (S, Pattern : String) return Natural;
- -- Return the last occurrence of Pattern in S, or 0 if none
-
procedure Store_File_Context;
-- Store current file context, Fd position and current line data.
-- The file context is stored into the rollback data above (RB_*).
Nlast := Nlast - 1;
end Get_Next_Line;
- -----------
- -- Index --
- -----------
-
- function Index (S, Pattern : String) return Natural is
- Len : constant Natural := Pattern'Length;
-
- begin
- for J in reverse S'First .. S'Last - Len + 1 loop
- if Pattern = S (J .. J + Len - 1) then
- return J;
- end if;
- end loop;
-
- return 0;
- end Index;
-
---------------------------
-- Rollback_File_Context --
---------------------------
Create_Temp_File (Tname_FD, Tname);
-- ??? File descriptor should be checked to not be Invalid_FD.
- -- ??? Status of Write and Close operations should be checked, and
+ -- Status of Write and Close operations should be checked, and
-- failure should occur if a status is wrong.
for J in Objs_Begin .. Objs_End loop
Last := Nlast;
end if;
- -- Given a Gnat standard library, search the library path to
- -- find the library location.
+ Search_Library_Path
+ (Next_Line => Next_Line,
+ Nfirst => Nfirst,
+ Nlast => Nlast,
+ Last => Last,
+ GNAT_Static => GNAT_Static,
+ GNAT_Shared => GNAT_Shared);
- -- Shouldn't we abstract a proc here, we are getting awfully
- -- heavily nested ???
+ else
+ Linker_Options.Increment_Last;
+ Linker_Options.Table (Linker_Options.Last) :=
+ new String'(Next_Line (Nfirst .. Nlast));
+ end if;
+ end if;
- declare
- File_Path : String_Access;
+ Xlinker_Was_Previous := Next_Line (Nfirst .. Nlast) = "-Xlinker";
+
+ Get_Next_Line;
+ exit when Next_Line (Nfirst .. Nlast) = End_Info;
+
+ Next_Line (Nfirst .. Nlast - 8) := Next_Line (Nfirst + 8 .. Nlast);
+ Nlast := Nlast - 8;
+ end loop;
+ end if;
+
+ -- If -shared was specified, invoke gcc with -shared-libgcc
+
+ if GNAT_Shared then
+ Linker_Options.Increment_Last;
+ Linker_Options.Table (Linker_Options.Last) := Shared_Libgcc;
+ end if;
- Object_Lib_Extension : constant String :=
- Value (Object_Library_Ext_Ptr);
+ Status := fclose (Fd);
+ end Process_Binder_File;
+
+ -------------------------
+ -- Search_Library_Path --
+ -------------------------
+
+ procedure Search_Library_Path
+ (Next_Line : String;
+ Nfirst : Integer;
+ Nlast : Integer;
+ Last : Integer;
+ GNAT_Static : Boolean;
+ GNAT_Shared : Boolean)
+ is
+ File_Path : String_Access;
- File_Name : constant String := "lib" &
- Next_Line (Nfirst + 2 .. Last) & Object_Lib_Extension;
+ Object_Lib_Extension : constant String :=
+ Value (Object_Library_Ext_Ptr);
- Run_Path_Opt : constant String :=
- Value (Run_Path_Option_Ptr);
+ File_Name : constant String := "lib" &
+ Next_Line (Nfirst + 2 .. Last) & Object_Lib_Extension;
- GCC_Index : Natural;
- Run_Path_Opt_Index : Natural := 0;
+ Run_Path_Opt : constant String :=
+ Value (Run_Path_Option_Ptr);
+
+ GCC_Index : Natural;
+ Run_Path_Opt_Index : Natural := 0;
+
+ begin
+ File_Path :=
+ Locate_Regular_File (File_Name,
+ String (Libpath.Table (1 .. Libpath.Last)));
+
+ if File_Path /= null then
+ if GNAT_Static then
+
+ -- If static gnatlib found, explicitly specify to overcome
+ -- possible linker default usage of shared version.
+
+ Linker_Options.Increment_Last;
+
+ Linker_Options.Table (Linker_Options.Last) :=
+ new String'(File_Path.all);
+
+ elsif GNAT_Shared then
+ if Opt.Run_Path_Option then
+
+ -- If shared gnatlib desired, add appropriate system specific
+ -- switch so that it can be located at runtime.
+
+ if Run_Path_Opt'Length /= 0 then
+
+ -- Output the system specific linker command that allows the
+ -- image activator to find the shared library at
+ -- runtime. Also add path to find libgcc_s.so, if relevant.
+
+ declare
+ Path : String (1 .. File_Path'Length + 15);
+
+ Path_Last : constant Natural := File_Path'Length;
begin
- File_Path :=
- Locate_Regular_File (File_Name,
- String (Libpath.Table (1 .. Libpath.Last)));
+ Path (1 .. File_Path'Length) := File_Path.all;
- if File_Path /= null then
- if GNAT_Static then
+ -- To find the location of the shared version of libgcc, we
+ -- look for "gcc-lib" in the path of the library. However,
+ -- this subdirectory is no longer present in recent versions
+ -- of GCC. So, we look for the last subdirectory "lib" in
+ -- the path.
- -- If static gnatlib found, explicitly specify to
- -- overcome possible linker default usage of shared
- -- version.
+ GCC_Index := Index (Path (1 .. Path_Last), "gcc-lib");
- Linker_Options.Increment_Last;
+ if GCC_Index /= 0 then
- Linker_Options.Table (Linker_Options.Last) :=
- new String'(File_Path.all);
-
- elsif GNAT_Shared then
- if Opt.Run_Path_Option then
-
- -- If shared gnatlib desired, add appropriate
- -- system specific switch so that it can be
- -- located at runtime.
-
- if Run_Path_Opt'Length /= 0 then
-
- -- Output the system specific linker command
- -- that allows the image activator to find
- -- the shared library at runtime. Also add
- -- path to find libgcc_s.so, if relevant.
-
- declare
- Path : String (1 .. File_Path'Length + 15);
-
- Path_Last : constant Natural :=
- File_Path'Length;
-
- begin
- Path (1 .. File_Path'Length) :=
- File_Path.all;
-
- -- To find the location of the shared version
- -- of libgcc, we look for "gcc-lib" in the
- -- path of the library. However, this
- -- subdirectory is no longer present in
- -- recent versions of GCC. So, we look for
- -- the last subdirectory "lib" in the path.
-
- GCC_Index :=
- Index (Path (1 .. Path_Last), "gcc-lib");
-
- if GCC_Index /= 0 then
-
- -- The shared version of libgcc is
- -- located in the parent directory.
-
- GCC_Index := GCC_Index - 1;
-
- else
- GCC_Index :=
- Index
- (Path (1 .. Path_Last),
- "/lib/");
-
- if GCC_Index = 0 then
- GCC_Index :=
- Index (Path (1 .. Path_Last),
- Directory_Separator & "lib"
- & Directory_Separator);
- end if;
-
- -- If we have found a "lib" subdir in
- -- the path to libgnat, the possible
- -- shared libgcc of interest by default
- -- is in libgcc_subdir at the same
- -- level.
-
- if GCC_Index /= 0 then
- declare
- Subdir : constant String :=
- Value (Libgcc_Subdir_Ptr);
- begin
- Path
- (GCC_Index + 1 ..
- GCC_Index + Subdir'Length) :=
- Subdir;
- GCC_Index :=
- GCC_Index + Subdir'Length;
- end;
- end if;
- end if;
-
- -- Look for an eventual run_path_option in
- -- the linker switches.
-
- if Separate_Run_Path_Options then
- Linker_Options.Increment_Last;
- Linker_Options.Table
- (Linker_Options.Last) :=
- new String'
- (Run_Path_Opt
- & File_Path
- (1 .. File_Path'Length
- - File_Name'Length));
-
- if GCC_Index /= 0 then
- Linker_Options.Increment_Last;
- Linker_Options.Table
- (Linker_Options.Last) :=
- new String'
- (Run_Path_Opt
- & Path (1 .. GCC_Index));
- end if;
-
- else
- for J in reverse
- 1 .. Linker_Options.Last
- loop
- if Linker_Options.Table (J) /= null
- and then
- Linker_Options.Table (J)'Length
- > Run_Path_Opt'Length
- and then
- Linker_Options.Table (J)
- (1 .. Run_Path_Opt'Length) =
- Run_Path_Opt
- then
- -- We have found an already
- -- specified run_path_option:
- -- we will add to this
- -- switch, because only one
- -- run_path_option should be
- -- specified.
-
- Run_Path_Opt_Index := J;
- exit;
- end if;
- end loop;
-
- -- If there is no run_path_option, we
- -- need to add one.
-
- if Run_Path_Opt_Index = 0 then
- Linker_Options.Increment_Last;
- end if;
-
- if GCC_Index = 0 then
- if Run_Path_Opt_Index = 0 then
- Linker_Options.Table
- (Linker_Options.Last) :=
- new String'
- (Run_Path_Opt
- & File_Path
- (1 .. File_Path'Length
- - File_Name'Length));
-
- else
- Linker_Options.Table
- (Run_Path_Opt_Index) :=
- new String'
- (Linker_Options.Table
- (Run_Path_Opt_Index).all
- & Path_Separator
- & File_Path
- (1 .. File_Path'Length
- - File_Name'Length));
- end if;
-
- else
- if Run_Path_Opt_Index = 0 then
- Linker_Options.Table
- (Linker_Options.Last) :=
- new String'
- (Run_Path_Opt
- & File_Path
- (1 .. File_Path'Length
- - File_Name'Length)
- & Path_Separator
- & Path (1 .. GCC_Index));
-
- else
- Linker_Options.Table
- (Run_Path_Opt_Index) :=
- new String'
- (Linker_Options.Table
- (Run_Path_Opt_Index).all
- & Path_Separator
- & File_Path
- (1 .. File_Path'Length
- - File_Name'Length)
- & Path_Separator
- & Path (1 .. GCC_Index));
- end if;
- end if;
- end if;
- end;
- end if;
- end if;
+ -- The shared version of libgcc is located in the
+ -- parent directory.
- -- Then we add the appropriate -l switch
+ GCC_Index := GCC_Index - 1;
+ else
+ GCC_Index := Index (Path (1 .. Path_Last), "/lib/");
+
+ if GCC_Index = 0 then
+ GCC_Index :=
+ Index (Path (1 .. Path_Last),
+ Directory_Separator & "lib"
+ & Directory_Separator);
+ end if;
+
+ -- If we have found a "lib" subdir in the path to
+ -- libgnat, the possible shared libgcc of interest by
+ -- default is in libgcc_subdir at the same level.
+
+ if GCC_Index /= 0 then
+ declare
+ Subdir : constant String :=
+ Value (Libgcc_Subdir_Ptr);
+
+ begin
+ Path (GCC_Index + 1 .. GCC_Index + Subdir'Length)
+ := Subdir;
+ GCC_Index := GCC_Index + Subdir'Length;
+ end;
+ end if;
+ end if;
+
+ -- Look for an eventual run_path_option in
+ -- the linker switches.
+
+ if Separate_Run_Path_Options then
+ Linker_Options.Increment_Last;
+ Linker_Options.Table
+ (Linker_Options.Last) :=
+ new String'
+ (Run_Path_Opt
+ & File_Path
+ (1 .. File_Path'Length
+ - File_Name'Length));
+
+ if GCC_Index /= 0 then
Linker_Options.Increment_Last;
Linker_Options.Table (Linker_Options.Last) :=
- new String'(Next_Line (Nfirst .. Nlast));
+ new String'
+ (Run_Path_Opt
+ & Path (1 .. GCC_Index));
end if;
else
- -- If gnatlib library not found, then add it anyway in
- -- case some other mechanism may find it.
+ for J in reverse 1 .. Linker_Options.Last loop
+ if Linker_Options.Table (J) /= null
+ and then
+ Linker_Options.Table (J)'Length
+ > Run_Path_Opt'Length
+ and then
+ Linker_Options.Table (J)
+ (1 .. Run_Path_Opt'Length) =
+ Run_Path_Opt
+ then
+ -- We have found an already specified
+ -- run_path_option: we will add to this switch,
+ -- because only one run_path_option should be
+ -- specified.
- Linker_Options.Increment_Last;
- Linker_Options.Table (Linker_Options.Last) :=
- new String'(Next_Line (Nfirst .. Nlast));
+ Run_Path_Opt_Index := J;
+ exit;
+ end if;
+ end loop;
+
+ -- If there is no run_path_option, we need to add one.
+
+ if Run_Path_Opt_Index = 0 then
+ Linker_Options.Increment_Last;
+ end if;
+
+ if GCC_Index = 0 then
+ if Run_Path_Opt_Index = 0 then
+ Linker_Options.Table
+ (Linker_Options.Last) :=
+ new String'
+ (Run_Path_Opt
+ & File_Path
+ (1 .. File_Path'Length
+ - File_Name'Length));
+
+ else
+ Linker_Options.Table
+ (Run_Path_Opt_Index) :=
+ new String'
+ (Linker_Options.Table
+ (Run_Path_Opt_Index).all
+ & Path_Separator
+ & File_Path
+ (1 .. File_Path'Length
+ - File_Name'Length));
+ end if;
+
+ else
+ if Run_Path_Opt_Index = 0 then
+ Linker_Options.Table
+ (Linker_Options.Last) :=
+ new String'
+ (Run_Path_Opt
+ & File_Path
+ (1 .. File_Path'Length
+ - File_Name'Length)
+ & Path_Separator
+ & Path (1 .. GCC_Index));
+
+ else
+ Linker_Options.Table
+ (Run_Path_Opt_Index) :=
+ new String'
+ (Linker_Options.Table
+ (Run_Path_Opt_Index).all
+ & Path_Separator
+ & File_Path
+ (1 .. File_Path'Length
+ - File_Name'Length)
+ & Path_Separator
+ & Path (1 .. GCC_Index));
+ end if;
+ end if;
end if;
end;
- else
- Linker_Options.Increment_Last;
- Linker_Options.Table (Linker_Options.Last) :=
- new String'(Next_Line (Nfirst .. Nlast));
end if;
end if;
- Xlinker_Was_Previous := Next_Line (Nfirst .. Nlast) = "-Xlinker";
-
- Get_Next_Line;
- exit when Next_Line (Nfirst .. Nlast) = End_Info;
+ -- Then we add the appropriate -l switch
- Next_Line (Nfirst .. Nlast - 8) := Next_Line (Nfirst + 8 .. Nlast);
- Nlast := Nlast - 8;
- end loop;
- end if;
+ Linker_Options.Increment_Last;
+ Linker_Options.Table (Linker_Options.Last) :=
+ new String'(Next_Line (Nfirst .. Nlast));
+ end if;
- -- If -shared was specified, invoke gcc with -shared-libgcc
+ else
+ -- If gnatlib library not found, then add it anyway in
+ -- case some other mechanism may find it.
- if GNAT_Shared then
Linker_Options.Increment_Last;
- Linker_Options.Table (Linker_Options.Last) := Shared_Libgcc;
+ Linker_Options.Table (Linker_Options.Last) :=
+ new String'(Next_Line (Nfirst .. Nlast));
end if;
-
- Status := fclose (Fd);
- end Process_Binder_File;
+ end Search_Library_Path;
-----------
-- Usage --
Fname : constant String := Base_Name (Ali_File_Name.all);
Fname_Len : Integer := Fname'Length;
- function Get_Maximum_File_Name_Length return Integer;
- pragma Import (C, Get_Maximum_File_Name_Length,
- "__gnat_get_maximum_file_name_length");
-
Maximum_File_Name_Length : constant Integer :=
Get_Maximum_File_Name_Length;
git://gcc.gnu.org / gcc.git / commitdiff