Changeset 7028 for branches


Ignore:
Timestamp:
Aug 12, 2007, 3:34:01 PM (17 years ago)
Author:
Gary Byers
Message:

%check-deferred-gc for PPC.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0708/level-0/PPC/ppc-misc.lisp

    r6179 r7028  
    10411041  (blr))
    10421042
     1043(defppclapfunction %check-deferred-gc ()
     1044  (ldr imm0 target::tcr.flags target::rcontext)
     1045  (slri. imm0 imm0 (- (1- target::nbits-in-word) (+ arch::tcr-flag-bit-pending-suspend target::fixnumshift)))
     1046  (li arg_z nil)
     1047  (bgelr)
     1048  (uuo_interr arch::error-propagate-suspend rzero)
     1049  (li arg_z t)
     1050  (blr))
     1051 
    10431052
    10441053; end of ppc-misc.lisp
Note: See TracChangeset for help on using the changeset viewer.