diff options
Diffstat (limited to 'gcc/ada/gnatls.adb')
| -rw-r--r-- | gcc/ada/gnatls.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index 925ae2c..f45305f 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -2097,6 +2097,7 @@ begin if RTS_Specified = null then declare + FD : File_Descriptor; Text : Source_Buffer_Ptr; Hi : Source_Ptr; @@ -2104,7 +2105,7 @@ begin Name_Buffer (1 .. 10) := "system.ads"; Name_Len := 10; - Read_Source_File (Name_Find, Lo => 0, Hi => Hi, Src => Text); + Read_Source_File (Name_Find, 0, Hi, Text, FD); if Null_Source_Buffer_Ptr (Text) then No_Runtime := True; |