diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-10 09:47:02 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-10 18:45:58 +0200 |
| commit | ff1ef30e8d370f89294e2d6e82fb1a15cdcd519c (patch) | |
| tree | 5e6184d1e4c3220a2d2f006027c0f9cf5b4af45f /src/synth/elab-vhdl_decls.adb | |
| parent | 3d50ceb1772ec529ed168579d3d0b5603df96493 (diff) | |
| download | ghdl-ff1ef30e8d370f89294e2d6e82fb1a15cdcd519c.tar.gz ghdl-ff1ef30e8d370f89294e2d6e82fb1a15cdcd519c.tar.bz2 ghdl-ff1ef30e8d370f89294e2d6e82fb1a15cdcd519c.zip | |
synth: fix and add checks for memory management.
Diffstat (limited to 'src/synth/elab-vhdl_decls.adb')
| -rw-r--r-- | src/synth/elab-vhdl_decls.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/synth/elab-vhdl_decls.adb b/src/synth/elab-vhdl_decls.adb index f873730ba..599d4a342 100644 --- a/src/synth/elab-vhdl_decls.adb +++ b/src/synth/elab-vhdl_decls.adb @@ -185,9 +185,7 @@ package body Elab.Vhdl_Decls is begin F := Elab.Vhdl_Files.Elaborate_File_Declaration (Syn_Inst, Decl); Obj_Typ := Get_Subtype_Object (Syn_Inst, Get_Type (Decl)); - Current_Pool := Instance_Pool; - Res := Create_Value_File (Obj_Typ, F); - Current_Pool := Expr_Pool'Access; + Res := Create_Value_File (Obj_Typ, F, Instance_Pool); Create_Object (Syn_Inst, Decl, Res); end Elab_File_Declaration; |