Changeset 10402


Ignore:
Timestamp:
Aug 8, 2008, 11:44:26 AM (11 years ago)
Author:
gb
Message:

Define an 'ne0->boolean' lapmacro.

Use it to get boolean return value right in %SUSPEND-TCR and %RESUME-TCR.

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc-lapmacros.lisp

    r7624 r10402  
    621621      (bit0->boolean ,dest ,temp ,temp)))))
    622622
     623(defppclapmacro ne0->boolean (dest src temp)
     624  (target-arch-case
     625   (:ppc32
     626    `(progn
     627      (cntlzw ,temp ,src)               
     628      (slw ,temp ,src ,temp)
     629      (srwi ,temp ,temp 31)
     630      (bit0->boolean ,dest ,temp ,temp)))
     631   (:ppc64
     632    `(progn
     633      (cntlzd ,temp ,src)
     634      (sld ,temp ,src ,temp)
     635      (srdi ,temp ,temp 63)
     636      (bit0->boolean ,dest ,temp ,temp)))))
     637
    623638(defppclapmacro eq->boolean (dest rx ry temp)
    624639  `(progn
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r9834 r10402  
    990990  (check-nargs 1)
    991991  (uuo_interr arch::error-suspend rzero)
    992   (eq0->boolean arg_z imm0 imm1)
     992  (ne0->boolean arg_z imm0 imm1)
    993993  (blr))
    994994
     
    10021002  (check-nargs 1)
    10031003  (uuo_interr arch::error-resume rzero)
    1004   (eq0->boolean arg_z imm0 imm1)
     1004  (ne0->boolean arg_z imm0 imm1)
    10051005  (blr))
    10061006
Note: See TracChangeset for help on using the changeset viewer.