Changeset 10402
- Timestamp:
- Aug 8, 2008, 11:44:26 AM (11 years ago)
- Location:
- trunk/source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/PPC/ppc-lapmacros.lisp
r7624 r10402 621 621 (bit0->boolean ,dest ,temp ,temp))))) 622 622 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 623 638 (defppclapmacro eq->boolean (dest rx ry temp) 624 639 `(progn -
trunk/source/level-0/PPC/ppc-misc.lisp
r9834 r10402 990 990 (check-nargs 1) 991 991 (uuo_interr arch::error-suspend rzero) 992 ( eq0->boolean arg_z imm0 imm1)992 (ne0->boolean arg_z imm0 imm1) 993 993 (blr)) 994 994 … … 1002 1002 (check-nargs 1) 1003 1003 (uuo_interr arch::error-resume rzero) 1004 ( eq0->boolean arg_z imm0 imm1)1004 (ne0->boolean arg_z imm0 imm1) 1005 1005 (blr)) 1006 1006
Note: See TracChangeset
for help on using the changeset viewer.