diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
commit | 7791faea231292a261acfaf8e5a6c4f256744df3 (patch) | |
tree | 60dc2b00629caafc287bdfe044922ca786d782ff /src/edif/edif-nutils.adb | |
parent | 3d528d7ce6dc1848286c951dc7851f4361170a5b (diff) | |
download | ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.gz ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.bz2 ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.zip |
Add edif parser.
Diffstat (limited to 'src/edif/edif-nutils.adb')
-rw-r--r-- | src/edif/edif-nutils.adb | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/edif/edif-nutils.adb b/src/edif/edif-nutils.adb new file mode 100644 index 000000000..c7755dc08 --- /dev/null +++ b/src/edif/edif-nutils.adb @@ -0,0 +1,21 @@ +package body Edif.Nutils is + procedure Init_Constr (Constr : out Constr_Type) is + begin + Constr := (Null_Node, Null_Node); + end Init_Constr; + + procedure Append_Node (Constr : in out Constr_Type; N : Node) is + begin + if Constr.First = Null_Node then + Constr.First := N; + else + Set_Chain (Constr.Last, N); + end if; + Constr.Last := N; + end Append_Node; + + function Get_Constr_Chain (Constr : Constr_Type) return Node is + begin + return Constr.First; + end Get_Constr_Chain; +end Edif.Nutils; |