1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 2001-2005, Free Software Foundation, Inc. --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 2, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
20 -- Boston, MA 02110-1301, USA. --
22 -- GNAT was originally developed by the GNAT team at New York University. --
23 -- Extensive contributions were provided by Ada Core Technologies Inc. --
25 ------------------------------------------------------------------------------
27 with Debug
; use Debug
;
28 with Osint
; use Osint
;
31 with System
.WCh_Con
; use System
.WCh_Con
;
33 package body Switch
.B
is
35 --------------------------
36 -- Scan_Binder_Switches --
37 --------------------------
39 procedure Scan_Binder_Switches
(Switch_Chars
: String) is
40 Max
: constant Integer := Switch_Chars
'Last;
41 Ptr
: Integer := Switch_Chars
'First;
45 -- Skip past the initial character (must be the switch character)
53 -- A little check, "gnat" at the start of a switch is not allowed
54 -- except for the compiler
56 if Switch_Chars
'Last >= Ptr
+ 3
57 and then Switch_Chars
(Ptr
.. Ptr
+ 3) = "gnat"
59 Osint
.Fail
("invalid switch: """, Switch_Chars
, """"
60 & " (gnat not needed here)");
63 -- Loop to scan through switches given in switch string
66 C
:= Switch_Chars
(Ptr
);
70 -- Processing for a switch
74 Use_Pragma_Linker_Constructor
:= True;
76 -- Processing for A switch
80 Ada_Bind_File
:= True;
82 -- Processing for b switch
88 -- Processing for c switch
95 -- Processing for C switch
100 Ada_Bind_File
:= False;
102 -- Processing for d switch
106 -- Note: for the debug switch, the remaining characters in this
107 -- switch field must all be debug flags, since all valid switch
108 -- characters are also valid debug characters. This switch is not
109 -- documented on purpose because it is only used by the
112 -- Loop to scan out debug flags
116 C
:= Switch_Chars
(Ptr
);
117 exit when C
= ASCII
.NUL
or else C
= '/' or else C
= '-';
119 if C
in '1' .. '9' or else
120 C
in 'a' .. 'z' or else
131 -- Processing for D switch
136 (Switch_Chars
, Max
, Ptr
, Default_Sec_Stack_Size
, C
);
138 -- Processing for e switch
142 Elab_Dependency_Output
:= True;
144 -- Processing for E switch
148 Exception_Tracebacks
:= True;
150 -- Processing for F switch
154 Force_Checking_Of_Elaboration_Flags
:= True;
156 -- Processing for g switch
162 C
:= Switch_Chars
(Ptr
);
164 if C
in '0' .. '3' then
167 (Switch_Chars
(Ptr
)) - Character'Pos ('0');
175 -- Processing for h switch
179 Usage_Requested
:= True;
181 -- Processing for i switch
189 C
:= Switch_Chars
(Ptr
);
198 Identifier_Character_Set
:= C
;
204 -- Processing for K switch
208 Output_Linker_Option_List
:= True;
210 -- Processing for l switch
214 Elab_Order_Output
:= True;
216 -- Processing for m switch
220 Scan_Pos
(Switch_Chars
, Max
, Ptr
, Maximum_Errors
, C
);
222 -- Processing for n switch
226 Bind_Main_Program
:= False;
228 -- Note: The -L option of the binder also implies -n, so
229 -- any change here must also be reflected in the processing
230 -- for -L that is found in Gnatbind.Scan_Bind_Arg.
232 -- Processing for o switch
237 if Output_File_Name_Present
then
238 Osint
.Fail
("duplicate -o switch");
241 Output_File_Name_Present
:= True;
244 -- Processing for O switch
248 Output_Object_List
:= True;
250 -- Processing for p switch
254 Pessimistic_Elab_Order
:= True;
256 -- Processing for q switch
260 Quiet_Output
:= True;
262 -- Processing for r switch
266 List_Restrictions
:= True;
268 -- Processing for s switch
273 Check_Source_Files
:= True;
275 -- Processing for t switch
279 Tolerate_Consistency_Errors
:= True;
281 -- Processing for T switch
285 Time_Slice_Set
:= True;
286 Scan_Nat
(Switch_Chars
, Max
, Ptr
, Time_Slice_Value
, C
);
287 Time_Slice_Value
:= Time_Slice_Value
* 1_000
;
289 -- Processing for v switch
293 Verbose_Mode
:= True;
295 -- Processing for w switch
299 -- For the binder we only allow suppress/error cases
303 case Switch_Chars
(Ptr
) is
306 Warning_Mode
:= Treat_As_Error
;
309 Warning_Mode
:= Suppress
;
317 -- Processing for W switch
322 for J
in WC_Encoding_Method
loop
323 if Switch_Chars
(Ptr
) = WC_Encoding_Letters
(J
) then
324 Wide_Character_Encoding_Method
:= J
;
327 elsif J
= WC_Encoding_Method
'Last then
332 Upper_Half_Encoding
:=
333 Wide_Character_Encoding_Method
in
334 WC_Upper_Half_Encoding_Method
;
338 -- Processing for x switch
342 All_Sources
:= False;
343 Check_Source_Files
:= False;
345 -- Processing for X switch
349 Scan_Pos
(Switch_Chars
, Max
, Ptr
, Default_Exit_Status
, C
);
351 -- Processing for z switch
355 No_Main_Subprogram
:= True;
357 -- Ignore extra switch character
362 -- Ignore '-' extra switch caracter, only if it isn't followed by
363 -- 'RTS'. If it is, then we must process the 'RTS' switch
367 if Ptr
+ 3 <= Max
and then
368 Switch_Chars
(Ptr
+ 1 .. Ptr
+ 3) = "RTS"
372 if Switch_Chars
(Ptr
+ 3) /= '=' or else
373 (Switch_Chars
(Ptr
+ 3) = '='
374 and then Ptr
+ 4 > Max
)
376 Osint
.Fail
("missing path for --RTS");
379 -- valid --RTS switch
380 Opt
.No_Stdinc
:= True;
381 Opt
.RTS_Switch
:= True;
384 Src_Path_Name
: constant String_Ptr
:=
387 (Ptr
+ 4 .. Switch_Chars
'Last),
389 Lib_Path_Name
: constant String_Ptr
:=
392 (Ptr
+ 4 .. Switch_Chars
'Last),
396 if Src_Path_Name
/= null and then
397 Lib_Path_Name
/= null
399 -- Set the RTS_*_Path_Name variables, so that the
400 -- correct directories will be set when
401 -- Osint.Add_Default_Search_Dirs will be called later.
403 RTS_Src_Path_Name
:= Src_Path_Name
;
404 RTS_Lib_Path_Name
:= Lib_Path_Name
;
406 -- We can exit as there cannot be another switch
411 elsif Src_Path_Name
= null
412 and then Lib_Path_Name
= null
414 Osint
.Fail
("RTS path not valid: missing " &
415 "adainclude and adalib directories");
416 elsif Src_Path_Name
= null then
417 Osint
.Fail
("RTS path not valid: missing " &
418 "adainclude directory");
419 elsif Lib_Path_Name
= null then
420 Osint
.Fail
("RTS path not valid: missing " &
430 -- Anything else is an error (illegal switch character)
436 end Scan_Binder_Switches
;