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, 59 Temple Place - Suite 330, Boston, --
20 -- MA 02111-1307, 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
75 Ada_Bind_File := True;
77 -- Processing for b switch
83 -- Processing for c switch
90 -- Processing for C switch
95 Ada_Bind_File := False;
97 -- Processing for d switch
101 -- Note: for the debug switch, the remaining characters in this
102 -- switch field must all be debug flags, since all valid switch
103 -- characters are also valid debug characters. This switch is not
104 -- documented on purpose because it is only used by the
107 -- Loop to scan out debug flags
111 C := Switch_Chars (Ptr);
112 exit when C = ASCII.NUL or else C = '/' or else C = '-';
114 if C in '1' .. '9' or else
115 C in 'a' .. 'z' or else
124 -- Make sure Zero_Cost_Exceptions is set if gnatdX set. This
125 -- is for backwards compatibility with old versions and usage.
127 if Debug_Flag_XX then
128 Zero_Cost_Exceptions_Set := True;
129 Zero_Cost_Exceptions_Val := True;
134 -- Processing for D switch
138 Scan_Pos (Switch_Chars, Max, Ptr, Default_Sec_Stack_Size);
140 -- Processing for e switch
144 Elab_Dependency_Output := True;
146 -- Processing for E switch
150 Exception_Tracebacks := True;
152 -- Processing for f switch
156 Force_RM_Elaboration_Order := True;
158 -- Processing for F switch
162 Force_Checking_Of_Elaboration_Flags := True;
164 -- Processing for g switch
170 C := Switch_Chars (Ptr);
172 if C in '0' .. '3' then
175 (Switch_Chars (Ptr)) - Character'Pos ('0');
183 -- Processing for h switch
187 Usage_Requested := True;
189 -- Processing for i switch
197 C := Switch_Chars (Ptr);
206 Identifier_Character_Set := C;
212 -- Processing for K switch
216 Output_Linker_Option_List := True;
218 -- Processing for l switch
222 Elab_Order_Output := True;
224 -- Processing for m switch
228 Scan_Pos (Switch_Chars, Max, Ptr, Maximum_Errors);
230 -- Processing for n switch
234 Bind_Main_Program := False;
236 -- Note: The -L option of the binder also implies -n, so
237 -- any change here must also be reflected in the processing
238 -- for -L that is found in Gnatbind.Scan_Bind_Arg.
240 -- Processing for o switch
245 if Output_File_Name_Present then
246 raise Too_Many_Output_Files;
249 Output_File_Name_Present := True;
252 -- Processing for O switch
256 Output_Object_List := True;
258 -- Processing for p switch
262 Pessimistic_Elab_Order := True;
264 -- Processing for q switch
268 Quiet_Output := True;
270 -- Processing for r switch
274 List_Restrictions := True;
276 -- Processing for s switch
281 Check_Source_Files := True;
283 -- Processing for t switch
287 Tolerate_Consistency_Errors := True;
289 -- Processing for T switch
293 Time_Slice_Set := True;
294 Scan_Nat (Switch_Chars, Max, Ptr, Time_Slice_Value);
295 Time_Slice_Value := Time_Slice_Value * 1_000;
297 -- Processing for v switch
301 Verbose_Mode := True;
303 -- Processing for w switch
307 -- For the binder we only allow suppress/error cases
311 case Switch_Chars (Ptr) is
314 Warning_Mode := Treat_As_Error;
317 Warning_Mode := Suppress;
325 -- Processing for W switch
330 for J in WC_Encoding_Method loop
331 if Switch_Chars (Ptr) = WC_Encoding_Letters (J) then
332 Wide_Character_Encoding_Method := J;
335 elsif J = WC_Encoding_Method'Last then
340 Upper_Half_Encoding :=
341 Wide_Character_Encoding_Method in
342 WC_Upper_Half_Encoding_Method;
346 -- Processing for x switch
350 All_Sources := False;
351 Check_Source_Files := False;
353 -- Processing for X switch
357 Scan_Pos (Switch_Chars, Max, Ptr, Default_Exit_Status);
359 -- Processing for z switch
363 No_Main_Subprogram := True;
365 -- Ignore extra switch character
370 -- Ignore '-' extra switch caracter, only if it isn't followed by
371 -- 'RTS'. If it is, then we must process the 'RTS' switch
375 if Ptr + 3 <= Max and then
376 Switch_Chars (Ptr + 1 .. Ptr + 3) = "RTS"
380 if Switch_Chars (Ptr + 3) /= '=' or else
381 (Switch_Chars (Ptr + 3) = '='
382 and then Ptr + 4 > Max)
384 Osint.Fail ("missing path for --RTS");
387 -- valid --RTS switch
388 Opt.No_Stdinc := True;
389 Opt.RTS_Switch := True;
392 Src_Path_Name : constant String_Ptr :=
395 (Ptr + 4 .. Switch_Chars'Last),
397 Lib_Path_Name : constant String_Ptr :=
400 (Ptr + 4 .. Switch_Chars'Last),
404 if Src_Path_Name /= null and then
405 Lib_Path_Name /= null
407 -- Set the RTS_*_Path_Name variables, so that the
408 -- correct directories will be set when
409 -- Osint.Add_Default_Search_Dirs will be called later.
411 RTS_Src_Path_Name := Src_Path_Name;
412 RTS_Lib_Path_Name := Lib_Path_Name;
414 -- We can exit as there can not be another switch
419 elsif Src_Path_Name = null
420 and then Lib_Path_Name = null
422 Osint.Fail ("RTS path not valid: missing " &
423 "adainclude and adalib directories");
424 elsif Src_Path_Name = null then
425 Osint.Fail ("RTS path not valid: missing " &
426 "adainclude directory");
427 elsif Lib_Path_Name = null then
428 Osint.Fail ("RTS path not valid: missing " &
438 -- Anything else is an error (illegal switch character)
447 Osint.Fail ("invalid switch: ", (1 => C));
449 when Bad_Switch_Value =>
450 Osint.Fail ("numeric value out of range for switch: ", (1 => C));
452 when Missing_Switch_Value =>
453 Osint.Fail ("missing numeric value for switch: ", (1 => C));
455 when Too_Many_Output_Files =>
456 Osint.Fail ("duplicate -o switch");
457 end Scan_Binder_Switches;