diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-30 14:35:22 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-30 14:35:22 +0000 |
| commit | 35debead51c672d94e09901096032aded316a45c (patch) | |
| tree | b930499490b07e1c897cdfe8e6d50538aecc8f2b /gcc/ada/sinput-l.adb | |
| parent | df35c271df60646a09af5279506c76c676a83217 (diff) | |
| download | gcc-35debead51c672d94e09901096032aded316a45c.zip gcc-35debead51c672d94e09901096032aded316a45c.tar.gz gcc-35debead51c672d94e09901096032aded316a45c.tar.bz2 | |
Makefile.in (dce.o): Add $(EXCEPT_H).
* Makefile.in (dce.o): Add $(EXCEPT_H).
* dce.c: Include except.h and delete redundant vector definitions.
(deletable_insn_p): Return false for non-call insns that can throw
if DF is running.
From-SVN: r147002
Diffstat (limited to 'gcc/ada/sinput-l.adb')
| -rw-r--r-- | gcc/ada/sinput-l.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index 3a7b84e..32f8bde 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -453,6 +453,11 @@ 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); |