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

Ajout des nouvelles instructions de Luc 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3349 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-12-01 09:29:14 +00:00
parent 22b3c296c1
commit 2dc7d72922
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/dumpobj.ml
View File

@ -227,6 +227,7 @@ type shape =
| Uint_Uint
| Disp
| Uint_Disp
| Sint_Disp
| Getglobal
| Getglobal_Uint
| Setglobal
@ -367,6 +368,16 @@ let op_shapes = [
opOFFSETINT, Sint;
opOFFSETREF, Sint;
opGETMETHOD, Nothing;
opBEQ, Sint_Disp;
opBNEQ, Sint_Disp;
opBLTINT, Sint_Disp;
opBLEINT, Sint_Disp;
opBGTINT, Sint_Disp;
opBGEINT, Sint_Disp;
opULTINT, Nothing;
opUGEINT, Nothing;
opBULTINT, Uint_Disp;
opBUGEINT, Uint_Disp;
opSTOP, Nothing;
opEVENT, Nothing;
opBREAK, Nothing;
@ -393,6 +404,9 @@ let print_instr ic =
| Uint_Disp
-> print_int (inputu ic); print_string ", ";
let p = currpc ic in print_int (p + inputs ic)
| Sint_Disp
-> print_int (inputs ic); print_string ", ";
let p = currpc ic in print_int (p + inputs ic)
| Getglobal -> print_getglobal_name ic
| Getglobal_Uint
-> print_getglobal_name ic; print_string ", "; print_int (inputu ic)