diff options
| author | Alasdair Armstrong | 2018-01-18 18:16:45 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-01-18 18:31:26 +0000 |
| commit | 0fa42d315e20f819af93c2a822ab1bc032dc4535 (patch) | |
| tree | 7ef4ea3444ba5938457e7c852f9ad9957055fe41 /lib/ocaml_rts/linksem/scratch.ml | |
| parent | 24dc13511053ab79ccb66ae24e3b8ffb9cad0690 (diff) | |
Modified ocaml backend to use ocamlfind for linksem and lem
Fixed test cases for ocaml backend and interpreter
Diffstat (limited to 'lib/ocaml_rts/linksem/scratch.ml')
| -rw-r--r-- | lib/ocaml_rts/linksem/scratch.ml | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/lib/ocaml_rts/linksem/scratch.ml b/lib/ocaml_rts/linksem/scratch.ml deleted file mode 100644 index 4b57ba9d..00000000 --- a/lib/ocaml_rts/linksem/scratch.ml +++ /dev/null @@ -1,28 +0,0 @@ -(*Generated by Lem from scratch.lem.*) -open Byte_sequence -open Error -open Missing_pervasives - -open Endianness -open Show - -open Elf_file -open Elf_header -open Elf_note -open Elf_section_header_table - -open Gnu_ext_note - -let ( _:unit) = -(let res = -(Byte_sequence.acquire "/usr/bin/less" >>= (fun bs0 -> - Elf_file.read_elf32_file bs0 >>= (fun ef1 -> - let endian = (get_elf32_header_endianness ef1.elf32_file_header) in - Elf_file.get_elf32_file_section_header_string_table ef1 >>= (fun sect_hdr -> - return (gnu_ext_extract_elf32_earliest_compatible_kernel endian ef1.elf32_file_section_header_table sect_hdr bs0))))) - in - (match res with - | Fail err -> print_endline err - | Success s -> print_endline (string_of_error - instance_Show_Show_string_dict s) - )) |