summaryrefslogtreecommitdiff
path: root/gcc/ada/ali.ads
diff options
context:
space:
mode:
authorbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-12-17 21:07:05 +0000
committerbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-12-17 21:07:05 +0000
commit26bdbe289ff47a014f2bf4aa06bf3d12d54ca755 (patch)
treea224052d9d5171d179321515f61186deba4f2b92 /gcc/ada/ali.ads
parent8880be8571f9ef03b3cd47702aa15d31f4c0dad3 (diff)
downloadgcc-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.ads10
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