diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-01-05 14:04:06 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-01-05 14:04:06 +0000 |
| commit | 783e5aa1778d570d8e26a248b3e8ae239a7ebc8e (patch) | |
| tree | 324ea54c813b9949bc2db0590c62e461420dba01 /debugger/debugcom.ml | |
| parent | 1bdcdbdbc65454b59faf52987c4c7aaeb2f02122 (diff) | |
| download | ocaml-783e5aa1778d570d8e26a248b3e8ae239a7ebc8e.tar.gz | |
Suite du portage: impression des valeurs, etc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1237 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'debugger/debugcom.ml')
| -rw-r--r-- | debugger/debugcom.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/debugger/debugcom.ml b/debugger/debugcom.ml index 9ce5472fc3..83547ead5f 100644 --- a/debugger/debugcom.ml +++ b/debugger/debugcom.ml @@ -161,10 +161,6 @@ let set_trap_barrier pos = type remote_value = string let value_size = if 1 lsl 31 = 0 then 4 else 8 -let big_endian = - let s = (Obj.magic [|0|] : string) in - String.unsafe_get s 0 = '\000' -let lsb_pos = if big_endian then value_size - 1 else 0 let input_remote_value ic = let v = String.create value_size in @@ -179,6 +175,11 @@ let remote_value_is_int v = let int_value v = Array.unsafe_get (Obj.magic v : int array) 0 +let value_int n = + let v = String.create value_size in + Array.unsafe_set (Obj.magic v : int array) 0 n; + v + let get_local pos = output_char !conn.io_out 'L'; output_binary_int !conn.io_out pos; |