Changeset 8247

Timestamp:

Jan 23, 2008, 12:26:19 AM (17 years ago)

Author:

Gary Byers

Message:

Fix typos in PPC %ATOMIC-POP-STATIC-CONS.

File:

• trunk/source/level-0/PPC/ppc-misc.lisp (modified) (1 diff)

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

@@ -986 +986 @@
   (lrarx arg_z rzero imm0)
   (cmpri arg_z target::nil-value)
-  (be @lose)
-  (%cdr arg_z arg_y)
+  (beq @lose)
+  (%cdr arg_y arg_z)
   (strcx. arg_y rzero imm0)
+  (isync)
   (bne @again)
+  (blr)
   @lose
+  (li imm0 target::reservation-discharge)
+  (strcx. rzero rzero imm0)
   (blr))