diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-07 07:50:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-07 07:50:51 +0100 |
| commit | 702a75324371bf316fd3ef1563355f94bb8b9c06 (patch) | |
| tree | 99ab54c3ff3d70f09bf005248291f10490cbf4d8 /src/types.ads | |
| parent | 606d84285a70c64d1eb57d9e4f908e986cd2b287 (diff) | |
| download | ghdl-702a75324371bf316fd3ef1563355f94bb8b9c06.tar.gz ghdl-702a75324371bf316fd3ef1563355f94bb8b9c06.tar.bz2 ghdl-702a75324371bf316fd3ef1563355f94bb8b9c06.zip | |
types: add No_Name.
Diffstat (limited to 'src/types.ads')
| -rw-r--r-- | src/types.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/types.ads b/src/types.ads index e7a7439b7..3cf273bd8 100644 --- a/src/types.ads +++ b/src/types.ads @@ -70,6 +70,7 @@ package Types is -- Null entry in the name table. -- It is sure that this entry is never allocated. + No_Name_Id : constant Name_Id := 0; Null_Identifier: constant Name_Id := 0; -- A String8_Id represents a string stored in a dedicated table. Contrary @@ -164,7 +165,7 @@ package Types is -- Self-explaining: raised when an internal error (such as consistency) -- is detected. - Internal_Error: exception; + Internal_Error : exception; -- Unrecoverable error. Just exit() with an error status. Fatal_Error : exception; @@ -176,4 +177,6 @@ package Types is -- Result of a comparaison of two numeric values. type Order_Type is (Less, Equal, Greater); + + subtype Hash_Value_Type is Uns32; end Types; |