Changeset 9475 for branches/ia32/level-0


Ignore:
Timestamp:
May 14, 2008, 6:13:57 PM (11 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-misc.lisp

    r9300 r9475  
    640640;;; %%apply-in-frame
    641641
    642 ;; xxx
    643642(defx8632lapfunction %%save-application ((flags arg_y) (fd arg_z))
     643  (unbox-fixnum fd imm0)
     644  (movd (% imm0) (% mm0))
    644645  (unbox-fixnum flags imm0)
    645646  (orl ($ arch::gc-trap-function-save-application) (% imm0))
    646   ;;(unbox-fixnum fd imm1)
    647647  (uuo-gc-trap)
    648648  (single-value-return))
     
    699699  (movl ($ x8632::subtag-no-thread-local-binding) (% arg_z))
    700700  (single-value-return))
     701
     702(defx8632lapfunction break-event-pending-p ()
     703  (xorl (% temp0) (% temp0))
     704  (ref-global x8632::intflag imm0)
     705  (set-global temp0 x8632::intflag)
     706  (testl (% imm0) (% imm0))
     707  (setne (%b imm0))
     708  (andl ($ x8632::t-offset) (%l imm0))
     709  (lea (@ x8632::nil-value (% imm0)) (% arg_z))
     710  (single-value-return))
Note: See TracChangeset for help on using the changeset viewer.