diff options
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index e1dddd984c6..9895362a167 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -85,7 +85,7 @@ procedure Gnatbind is procedure Scan_Bind_Arg (Argv : String); -- Scan and process binder specific arguments. Argv is a single argument. -- All the one character arguments are still handled by Switch. This - -- routine handles -aO -aI and -I-. + -- routine handles -aO -aI and -I-. The lower bound of Argv must be 1. function Is_Cross_Compiler return Boolean; -- Returns True iff this is a cross-compiler @@ -206,6 +206,8 @@ procedure Gnatbind is ------------------- procedure Scan_Bind_Arg (Argv : String) is + pragma Assert (Argv'First = 1); + begin -- Now scan arguments that are specific to the binder and are not -- handled by the common circuitry in Switch. @@ -420,11 +422,11 @@ begin Scan_Args : while Next_Arg < Arg_Count loop declare Next_Argv : String (1 .. Len_Arg (Next_Arg)); - begin Fill_Arg (Next_Argv'Address, Next_Arg); Scan_Bind_Arg (Next_Argv); end; + Next_Arg := Next_Arg + 1; end loop Scan_Args; @@ -449,7 +451,7 @@ begin -- Output usage if requested if Usage_Requested then - Bindusg; + Bindusg.Display; end if; -- Check that the Ada binder file specified has extension .adb and that @@ -535,7 +537,7 @@ begin -- Output usage information if no files if not More_Lib_Files then - Bindusg; + Bindusg.Display; Exit_Program (E_Fatal); end if; @@ -600,8 +602,8 @@ begin -- Set standard configuration parameters - Suppress_Standard_Library_On_Target := True; - Configurable_Run_Time_Mode := True; + Suppress_Standard_Library_On_Target := True; + Configurable_Run_Time_Mode := True; end if; -- For main ALI files, even if they are interfaces, we get their |