diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 51a147921..d3efa1814 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -5871,6 +5871,10 @@ package Vhdl.Nodes is function Create_Iir_Error return Iir; procedure Free_Iir (Target : Iir); + -- Hooks called when a node is free. + type Free_Iir_Hook is access procedure (N : Iir); + procedure Register_Free_Hook (Hook : Free_Iir_Hook); + -- Free all and reinit. procedure Initialize; |