diff options
| author | Kathy Gray | 2016-01-29 13:37:55 +0000 |
|---|---|---|
| committer | Kathy Gray | 2016-01-29 13:38:08 +0000 |
| commit | 2cb93663892c83bf33686669227048e37fc48416 (patch) | |
| tree | a09e846f2c2816076e6384251a3958fbaac6b058 /src/lem_interp/interp_interface.lem | |
| parent | 6fb8b00409a9ad834eb1a644f29b5557e800cefd (diff) | |
Put correct tags on to_vec calls
Diffstat (limited to 'src/lem_interp/interp_interface.lem')
| -rw-r--r-- | src/lem_interp/interp_interface.lem | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lem_interp/interp_interface.lem b/src/lem_interp/interp_interface.lem index 479ecdca..71688ff6 100644 --- a/src/lem_interp/interp_interface.lem +++ b/src/lem_interp/interp_interface.lem @@ -1137,6 +1137,8 @@ let clear_low_order_bits_of_address a = end end +val translate_address : string -> addres -> maybe address * maybe nat + val byte_list_of_memory_value : end_flag -> memory_value -> maybe (list byte) let byte_list_of_memory_value endian mv = let mv = if endian = E_big_endian then mv else List.reverse mv in |