gcc/ada/
* gnatls.adb (Gnatls): Use Name_Find function.
* targparm.adb (Get_Target_Parameters): Likewise.
Hi : Source_Ptr;
begin
- Name_Buffer (1 .. 10) := "system.ads";
- Name_Len := 10;
-
- Read_Source_File (Name_Find, 0, Hi, Text, FD);
+ Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD);
if Null_Source_Buffer_Ptr (Text) then
No_Runtime := True;
return;
end if;
- Name_Buffer (1 .. 10) := "system.ads";
- Name_Len := 10;
-
- Read_Source_File (Name_Find, 0, Hi, Text, FD);
+ Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD);
if Null_Source_Buffer_Ptr (Text) then
Write_Line ("fatal error, run-time library not installed correctly");