diff options
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; |