1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(* code-string.sml
*
* COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
*)
structure CodeString : CODE_STRING =
struct
type code_string = CodeObj.code_object
val obj = ref (NONE : CodeObj.code_object option)
val arr = ref (Word8Array.array(0, 0w0))
fun init sz = let
val co = CodeObj.alloc sz
in
obj := SOME co;
arr := CodeObj.bytes co
end
fun update (i, b) = Word8Array.update (!arr, i, b)
fun getCodeString ep = let
val co = valOf(!obj)
in
CodeObj.set_entrypoint (co, ep);
arr := Word8Array.array(0, 0w0);
obj := NONE;
co
end
end;
|
