diff options
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/interp_interface.lem | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/lem_interp/interp_interface.lem b/src/lem_interp/interp_interface.lem index 7c5b295e..26f5f508 100644 --- a/src/lem_interp/interp_interface.lem +++ b/src/lem_interp/interp_interface.lem @@ -453,10 +453,6 @@ val integer_address_of_int_list : list int -> integer let integer_address_of_int_list (is: list int) = failwith "TODO" (* regarding is as a list of bytes in memory, lowest-address first, convert to an integer *) -val integer_of_byte_list : list byte -> integer -(* TODO *)let integer_of_byte_list (a:list byte):integer = failwith "TODO" -val byte_list_of_integer : int -> integer -> list byte -(* TODO *)let byte_list_of_integer (len:int) (a:integer):list byte = failwith "TODO" let bit_to_bool = function | Bitc_zero -> false |