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

ajout instruction ISINT 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3121 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2000-04-20 18:54:27 +00:00
parent 6a9816ef2a
commit f37f737229
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
byterun/interp.a
View File

@ -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