From f37f737229795ff1c45d0a3d30a9bb03eebefe00 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Thu, 20 Apr 2000 18:54:27 +0000
Subject: [PATCH] ajout instruction ISINT

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3121 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 byterun/interp.a | 16 ++++++++++++----
 1 file 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