diff options
author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 21:07:05 +0000 |
---|---|---|
committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 21:07:05 +0000 |
commit | 26bdbe289ff47a014f2bf4aa06bf3d12d54ca755 (patch) | |
tree | a224052d9d5171d179321515f61186deba4f2b92 /gcc/ada/ali.ads | |
parent | 8880be8571f9ef03b3cd47702aa15d31f4c0dad3 (diff) | |
download | gcc-26bdbe289ff47a014f2bf4aa06bf3d12d54ca755.tar.gz |
* sem_ch3.adb (Analyze_Variant_Part): check that type of discriminant
is discrete before analyzing choices.
* bindgen.adb (Gen_Output_File_Ada): Generate a new C-like string
containing the name of the Ada Main Program. This string is mainly
intended for the debugger.
(Gen_Output_File_C): Do the equivalent change when generating a C file.
* ali.adb: Set new Dummy_Entry field in dependency entry
* ali.ads: Add Dummy_Entry field to source dependency table
* bcheck.adb (Check_Consistency): Ignore dummy D lines
* lib-writ.adb (Writ_ALI): Write dummy D lines for missing source files
* lib-writ.ads: Document dummy D lines for missing files.
* types.ads: (Dummy_Time_Stamp): New value for non-existant files
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48126 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/ali.ads')
-rw-r--r-- | gcc/ada/ali.ads | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 1e427e836b8..78b9435f334 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -517,10 +517,16 @@ package ALI is -- Name of source file Stamp : Time_Stamp_Type; - -- Time stamp value + -- Time stamp value. Note that this will be all zero characters + -- for the dummy entries for missing or non-dependent files. Checksum : Word; - -- Checksum value + -- Checksum value. Note that this will be all zero characters + -- for the dummy entries for missing or non-dependent files + + Dummy_Entry : Boolean; + -- Set True for dummy entries that correspond to missing files + -- or files where no dependency relationship exists. Subunit_Name : Name_Id; -- Name_Id for subunit name if present, else No_Name |