diff options
Diffstat (limited to 'src/synth/synth-objtypes.adb')
-rw-r--r-- | src/synth/synth-objtypes.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/synth/synth-objtypes.adb b/src/synth/synth-objtypes.adb index 4b9e6ea54..4c615ca7e 100644 --- a/src/synth/synth-objtypes.adb +++ b/src/synth/synth-objtypes.adb @@ -770,6 +770,17 @@ package body Synth.Objtypes is return (Vtype, Alloc_Memory (Vtype)); end Create_Memory; + function Create_Memory_Zero (Vtype : Type_Acc) return Memtyp + is + Mem : Memory_Ptr; + begin + Mem := Alloc_Memory (Vtype); + for I in 1 .. Vtype.Sz loop + Write_U8 (Mem + (I - 1), 0); + end loop; + return (Vtype, Mem); + end Create_Memory_Zero; + function Create_Memory_U8 (Val : Ghdl_U8; Vtype : Type_Acc) return Memtyp is |