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

MAJ pour process_event 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2738 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2000-01-07 15:59:23 +00:00
parent ec1c205be6
commit 84ef723314
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/interp.a
View File

@ -45,7 +45,7 @@ Val_true equ 3
import (realloc_stack): code
import (something_to_do, force_major_slice, pending_signal): data
import (signal_handlers, rotatecursor_flag): data
import (execute_signal): code
import (process_event): code
import (rotatecursor_action): code
import (cprim): data
import (raise_zero_divide, fatal_error_arg): code
@ -1012,7 +1012,7 @@ i_92: ; CHECK_SIGNALS
BNE.S process_signals
Next
process_signals:
ASL.L extra_args_ ; begin Setup_for_event
ASL.L #1, extra_args_ ; begin Setup_for_event
ADDQ.L #1, extra_args_
MOVE.L extra_args_, -(sp_)
MOVE.L env_, -(sp_)