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

Meilleur affichage de Psetfield 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1979 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-06-09 13:40:55 +00:00
parent 183fbec2d8
commit d5332ed52e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bytecomp/printlambda.ml
View File

@ -58,7 +58,9 @@ let primitive = function
| Pmakeblock(tag, Immutable) -> print_string "makeblock "; print_int tag
| Pmakeblock(tag, Mutable) -> print_string "makemutable "; print_int tag
| Pfield n -> print_string "field "; print_int n
| Psetfield(n, _) -> print_string "setfield "; print_int n
| Psetfield(n, ptr) ->
print_string (if ptr then "setfield_ptr " else "setfield_imm ");
print_int n
| Pfloatfield n -> print_string "floatfield "; print_int n
| Psetfloatfield n -> print_string "setfloatfield "; print_int n
| Pccall p -> print_string p.prim_name