Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MAJ numeros de tags dans print_obj 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6059 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2004-01-05 16:39:33 +00:00
parent c5fabfbfb3
commit b1b67be7ad
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tools/dumpobj.ml
View File

@ -108,12 +108,12 @@ let rec print_struct_const = function
let rec print_obj x =
if Obj.is_block x then begin
match Obj.tag x with
252 -> (* string *)
let tag = Obj.tag x in
if tag = Obj.string_tag then
printf "%S" (Obj.magic x : string)
| 253 -> (* float *)
else if tag = Obj.double_tag then
printf "%.12g" (Obj.magic x : float)
| 254 -> (* float array *)
else if tag = Obj.double_array_tag then begin
let a = (Obj.magic x : float array) in
printf "[|";
for i = 0 to Array.length a - 1 do
@ -121,9 +121,9 @@ let rec print_obj x =
printf "%.12g" a.(i)
done;
printf "|]"
| _ ->
end else if tag < Obj.no_scan_tag then begin
printf "<%d>" (Obj.tag x);
begin match Obj.size x with
match Obj.size x with
0 -> ()
| 1 ->
printf "("; print_obj (Obj.field x 0); printf ")"
@ -133,7 +133,8 @@ let rec print_obj x =
printf ", "; print_obj (Obj.field x i)
done;
printf ")"
end
end else
printf "<tag %d>" tag
end else
printf "%d" (Obj.magic x : int)