Changeset 10402

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:

• compiler/PPC/ppc-lapmacros.lisp (modified) (1 diff)
• level-0/PPC/ppc-misc.lisp (modified) (2 diffs)

trunk/source/compiler/PPC/ppc-lapmacros.lisp

@@ -621 +621 @@
       (bit0->boolean ,dest ,temp ,temp)))))
 
+(defppclapmacro ne0->boolean (dest src temp)
+  (target-arch-case
+   (:ppc32
+    `(progn
+      (cntlzw ,temp ,src)                
+      (slw ,temp ,src ,temp)
+      (srwi ,temp ,temp 31)
+      (bit0->boolean ,dest ,temp ,temp)))
+   (:ppc64
+    `(progn
+      (cntlzd ,temp ,src)
+      (sld ,temp ,src ,temp)
+      (srdi ,temp ,temp 63) 
+      (bit0->boolean ,dest ,temp ,temp)))))
+
 (defppclapmacro eq->boolean (dest rx ry temp)
   `(progn

trunk/source/level-0/PPC/ppc-misc.lisp

@@ -990 +990 @@
   (check-nargs 1)
   (uuo_interr arch::error-suspend rzero)
-  (eq0->boolean arg_z imm0 imm1)
+  (ne0->boolean arg_z imm0 imm1)
   (blr))
 
@@ -1002 +1002 @@
   (check-nargs 1)
   (uuo_interr arch::error-resume rzero)
-  (eq0->boolean arg_z imm0 imm1)
+  (ne0->boolean arg_z imm0 imm1)
   (blr))