diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 08:44:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 08:44:58 +0200 |
| commit | a98fae8775c39688e70b526f9e332740b2e380e4 (patch) | |
| tree | c25938c831a1e31861ca0a358ce8e3e3cb6b03bb /src/errorout.ads | |
| parent | 89fa9ef3f3d08bcfe11ebfc147ed21fe9bddbc4c (diff) | |
| download | ghdl-a98fae8775c39688e70b526f9e332740b2e380e4.tar.gz ghdl-a98fae8775c39688e70b526f9e332740b2e380e4.tar.bz2 ghdl-a98fae8775c39688e70b526f9e332740b2e380e4.zip | |
errorout: reserve eargs for synthesis.
Diffstat (limited to 'src/errorout.ads')
| -rw-r--r-- | src/errorout.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/errorout.ads b/src/errorout.ads index bd6e08e50..e67cba0c9 100644 --- a/src/errorout.ads +++ b/src/errorout.ads @@ -240,7 +240,8 @@ package Errorout is (Earg_None, Earg_Location, Earg_Id, Earg_Char, Earg_String8, Earg_Uns32, Earg_Int32, - Earg_Vhdl_Node, Earg_Vhdl_Token); + Earg_Vhdl_Node, Earg_Vhdl_Token, + Earg_Synth_Instance, Earg_Synth_Net, Earg_Synth_Name); subtype Earg_Lang_Kind is Earg_Kind range Earg_Vhdl_Node .. Earg_Kind'Last; @@ -252,9 +253,13 @@ package Errorout is procedure Output_Identifier (Id : Name_Id); procedure Output_Location (Err : Error_Record; Loc : Location_Type); procedure Output_Message (S : String); + procedure Output_Uns32 (V : Uns32); function Make_Earg_Vhdl_Node (V : Uns32) return Earg_Type; function Make_Earg_Vhdl_Token (V : Uns32) return Earg_Type; + function Make_Earg_Synth_Instance (V : Uns32) return Earg_Type; + function Make_Earg_Synth_Net (V : Uns32) return Earg_Type; + function Make_Earg_Synth_Name (V : Uns32) return Earg_Type; private type Earg_Type (Kind : Earg_Kind := Earg_None) is record |