diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-27 14:19:02 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-27 14:19:02 +0000 |
| commit | b0b5b4a1ecdf6a74808f815df1f224b67affba7f (patch) | |
| tree | 57ad71d9991f67663bddce20ab9bdd2c91b813ce | |
| parent | ed1cdeebcffcf17e04390f22e2331e8b96520059 (diff) | |
L'argument de [PUSH]GETGLOBALFIELD etait emis sur 8 bits seulement au
lieu de 32.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@841 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | bytecomp/emitcode.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/emitcode.ml b/bytecomp/emitcode.ml index 9b021977a..e03a20dbc 100644 --- a/bytecomp/emitcode.ml +++ b/bytecomp/emitcode.ml @@ -250,7 +250,7 @@ let rec emit = function else (out opPUSHENVACC; out_int (n+1)); emit c | Kpush :: Kgetglobal id :: Kgetfield n :: c -> - out opPUSHGETGLOBALFIELD; slot_for_getglobal id; out n; emit c + out opPUSHGETGLOBALFIELD; slot_for_getglobal id; out_int n; emit c | Kpush :: Kgetglobal q :: c -> out opPUSHGETGLOBAL; slot_for_getglobal q; emit c | Kpush :: Kconst sc :: c -> @@ -268,7 +268,7 @@ let rec emit = function end; emit c | Kgetglobal id :: Kgetfield n :: c -> - out opGETGLOBALFIELD; slot_for_getglobal id; out n; emit c + out opGETGLOBALFIELD; slot_for_getglobal id; out_int n; emit c (* Default case *) | instr :: c -> emit_instr instr; emit c |