diff options
Diffstat (limited to 'gcc/ada/types.ads')
| -rw-r--r-- | gcc/ada/types.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index a93dbb4..a2c1598 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -569,9 +569,14 @@ pragma Preelaborate (Types); No_Unit : constant Unit_Number_Type := -1; -- Special value used to signal no unit - type Source_File_Index is new Nat; + type Source_File_Index is new Int range -1 .. Int'Last; -- Type used to index the source file table (see package Sinput) + Internal_Source_File : constant Source_File_Index := + Source_File_Index'First; + -- Value used to indicate the buffer for the source-code-like strings + -- internally created withing the compiler (see package Sinput) + No_Source_File : constant Source_File_Index := 0; -- Value used to indicate no source file present |