From 3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 29 Apr 2009 23:10:21 +0000 Subject: Revert 2009-04-29 Vincent Celier * sinput-l.adb (Load_File): When preprocessing, set temporarily the Source_File_Index_Table entries for the source, to avoid crash when reporting an error. * gnatcmd.adb (Test_If_Relative_Path): Use Makeutl.Test_If_Relative_Path. * makeutl.adb:(Test_If_Relative_Path): Process switches --RTS= only if Including_RTS is True. * makeutl.ads (Test_If_Relative_Path): New Boolean parameter Including_RTS defaulted to False. * sinput.ads, scans.ads, err_vars.ads: Initialize some variables with a default value. From-SVN: r146991 --- gcc/ada/sinput-l.adb | 5 ----- 1 file changed, 5 deletions(-) (limited to 'gcc/ada/sinput-l.adb') diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index 32f8bde..3a7b84e 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -453,11 +453,6 @@ package body Sinput.L is -- Preprocess the source if it needs to be preprocessed if Preprocessing_Needed then - -- Set temporarily the Source_File_Index_Table entries for the - -- source, to avoid crash when reporting an error. - - Set_Source_File_Index_Table (X); - if Opt.List_Preprocessing_Symbols then Get_Name_String (N); -- cgit v1.1