diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-03 19:30:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-04 19:04:09 +0200 |
| commit | ff7dc8f280ace0c0c2e307e62fda21f75359f096 (patch) | |
| tree | fe0c50aed3767fbf858c2b3ddd0fa37f141f752e /src/synth/synth-values.adb | |
| parent | 7792975e486d010c8a6f85fe3ff9c01afc65d015 (diff) | |
| download | ghdl-ff7dc8f280ace0c0c2e307e62fda21f75359f096.tar.gz ghdl-ff7dc8f280ace0c0c2e307e62fda21f75359f096.tar.bz2 ghdl-ff7dc8f280ace0c0c2e307e62fda21f75359f096.zip | |
synth: move copy_memory to synth-objtypes; add unshare.
Diffstat (limited to 'src/synth/synth-values.adb')
| -rw-r--r-- | src/synth/synth-values.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index ed042c849..40a394b4a 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -254,14 +254,6 @@ package body Synth.Values is end if; end Strip_Const; - procedure Copy_Memory (Dest : Memory_Ptr; Src : Memory_Ptr; Sz : Size_Type) - is - begin - for I in 1 .. Sz loop - Dest (I - 1) := Src (I - 1); - end loop; - end Copy_Memory; - procedure Write_Value (Dest : Memory_Ptr; Vt : Valtyp) is Mt : Memtyp; |