Changeset 9475 for branches

Timestamp:

May 14, 2008, 11:13:57 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

In %%save-application, pass the fd in mm0. Implement break-event-pending-p.

File:

• branches/ia32/level-0/X86/X8632/x8632-misc.lisp (modified) (2 diffs)

branches/ia32/level-0/X86/X8632/x8632-misc.lisp

@@ -640 +640 @@
 ;;; %%apply-in-frame
 
-;; xxx
 (defx8632lapfunction %%save-application ((flags arg_y) (fd arg_z))
+  (unbox-fixnum fd imm0)
+  (movd (% imm0) (% mm0))
   (unbox-fixnum flags imm0)
   (orl ($ arch::gc-trap-function-save-application) (% imm0))
-  ;;(unbox-fixnum fd imm1)
   (uuo-gc-trap)
   (single-value-return))
@@ -699 +699 @@
   (movl ($ x8632::subtag-no-thread-local-binding) (% arg_z))
   (single-value-return))
+
+(defx8632lapfunction break-event-pending-p ()
+  (xorl (% temp0) (% temp0))
+  (ref-global x8632::intflag imm0)
+  (set-global temp0 x8632::intflag)
+  (testl (% imm0) (% imm0))
+  (setne (%b imm0))
+  (andl ($ x8632::t-offset) (%l imm0))
+  (lea (@ x8632::nil-value (% imm0)) (% arg_z))
+  (single-value-return))