diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-30 14:35:22 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-30 14:35:22 +0000 |
| commit | 14ca6b9a43667a683654cd0fc87ba548d0b3661c (patch) | |
| tree | b930499490b07e1c897cdfe8e6d50538aecc8f2b /gcc/ada/sinput.ads | |
| parent | 4b673aa1dde655e1d89d31e583168d5831f32819 (diff) | |
| download | gcc-14ca6b9a43667a683654cd0fc87ba548d0b3661c.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147002 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sinput.ads')
| -rw-r--r-- | gcc/ada/sinput.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index e2e4ec0d67f..ca97716145e 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -423,8 +423,10 @@ package Sinput is -- Global Data -- ----------------- - Current_Source_File : Source_File_Index; - -- Source_File table index of source file currently being scanned + Current_Source_File : Source_File_Index := No_Source_File; + -- Source_File table index of source file currently being scanned. + -- Initialized so that some tools (such as gprbuild) can be built with + -- -gnatVa and pragma Initialized_Scalars without problems. Current_Source_Unit : Unit_Number_Type; -- Unit number of source file currently being scanned. The special value |