diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2000-04-20 18:54:27 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2000-04-20 18:54:27 +0000 |
| commit | f37f737229795ff1c45d0a3d30a9bb03eebefe00 (patch) | |
| tree | 7f65ebd3f0550ef8e46d3765cf2f85ce6476f6e2 | |
| parent | 6a9816ef2a629f50fab0f0078d56d7f443719d6f (diff) | |
ajout instruction ISINT
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3121 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/interp.a | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/byterun/interp.a b/byterun/interp.a index 0c26696eb..a9ae72b2c 100644 --- a/byterun/interp.a +++ b/byterun/interp.a @@ -1235,7 +1235,15 @@ i_128: ; OFFSETREF MOVEA.W #Val_unit, accu_ Next -i_129: ; GETMETHOD +i_129: ; ISINT + MOVE.L accu_, D0 + AND.L #1, D0 + LSL.L #1, D0 + OR.L #1, D0 + MOVEA.L D0, accu_ + Next + +i_130: ; GETMETHOD MOVEA.L (sp_), A0 ; sp[0] MOVEA.L (A0), A0 ; Field (sp[0], 0) MOVE.L accu_, D1 @@ -1249,17 +1257,17 @@ i_129: ; GETMETHOD Next ; STOP -i_130: MOVE.L initial_external_raise_(A7), (external_raise).L +i_131: MOVE.L initial_external_raise_(A7), (external_raise).L MOVE.L sp_, (extern_sp).L SUBQ.L #1, (callback_depth).L MOVE.L accu_, D0 interprete_return Spacer -i_131: ; EVENT XXX debugger stuff not implemented +i_132: ; EVENT XXX debugger stuff not implemented Next -i_132: ; BREAK XXX debugger stuff not implemented +i_133: ; BREAK XXX debugger stuff not implemented Next IF NOT &DEBUG THEN |