diff options
Diffstat (limited to 'src/synth/elab-memtype.adb')
-rw-r--r-- | src/synth/elab-memtype.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/elab-memtype.adb b/src/synth/elab-memtype.adb index c8234bb2b..8a9babd3d 100644 --- a/src/synth/elab-memtype.adb +++ b/src/synth/elab-memtype.adb @@ -42,6 +42,14 @@ package body Elab.Memtype is return To_U8_Ptr (To_Address (Mem)).all; end Read_U8; + type Char_Ptr is access all Character; + function To_Char_Ptr is new Ada.Unchecked_Conversion (Address, Char_Ptr); + + function Read_Char (Mem : Memory_Ptr) return Character is + begin + return To_Char_Ptr (To_Address (Mem)).all; + end Read_Char; + procedure Write_I32 (Mem : Memory_Ptr; Val : Ghdl_I32) is V : Ghdl_I32; |