diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1998-04-06 09:15:55 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1998-04-06 09:15:55 +0000 |
| commit | ea8fe59ea07cb8da82c8581d8cf0c9d844867375 (patch) | |
| tree | 61e86e83bf329920d4af220a47867f682a10d099 /byterun/instrtrace.c | |
| parent | d83bfc2f72be1d4861369eb80ecce0a3a29c2f79 (diff) | |
Adoption des memes representations que dans ocamlopt pour les tableaux de flottants et les fonctions mutuellement recursives.
Simplification de la compilation du let rec de valeurs.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1895 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/instrtrace.c')
| -rw-r--r-- | byterun/instrtrace.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/byterun/instrtrace.c b/byterun/instrtrace.c index a4dfb9e45..c53590686 100644 --- a/byterun/instrtrace.c +++ b/byterun/instrtrace.c @@ -44,9 +44,11 @@ void disasm_instr(pc) case APPTERM1: case APPTERM2: case APPTERM3: case RETURN: case GRAB: case PUSHGETGLOBAL: case GETGLOBAL: case SETGLOBAL: case PUSHATOM: case ATOM: case MAKEBLOCK1: case MAKEBLOCK2: - case MAKEBLOCK3: case GETFIELD: case SETFIELD: case DUMMY: + case MAKEBLOCK3: case MAKEFLOATBLOCK: + case GETFIELD: case SETFIELD: case GETFLOATFIELD: case SETFLOATFIELD: case BRANCH: case BRANCHIF: case BRANCHIFNOT: case PUSHTRAP: case CONSTINT: case PUSHCONSTINT: case OFFSETINT: case OFFSETREF: + case OFFSETCLOSURE: case PUSHOFFSETCLOSURE: printf(" %d\n", pc[0]); break; /* Instructions with two operands */ case APPTERM: case CLOSURE: case CLOSUREREC: case PUSHGETGLOBALFIELD: |