Changeset 394

Timestamp:

Jan 25, 2004, 2:07:47 PM (21 years ago)

Author:

Gary Byers

Message:

Fix %SVAR-BINDING-ADDRESS for the nth time.

File:

• trunk/ccl/level-0/PPC/ppc-symbol.lisp (modified) (2 diffs)

trunk/ccl/level-0/PPC/ppc-symbol.lisp

@@ -80 +80 @@
   (lwzx temp0 imm4 imm3)
   (cmpwi temp0 ppc32::subtag-no-thread-local-binding)
+  (slwi imm3 imm3 ppc32::fixnumshift)
   (beq @sym)
-  (slwi imm3 imm3 ppc32::fixnumshift)
   (vpush imm4)
   (vpush imm3)
@@ -89 +89 @@
   @sym
   (lwz arg_z ppc32::svar.symbol svar)
-  (li arg_y 'ppc32::symbol.vcell)
+  (li arg_y '#.ppc32::symbol.vcell)
   (vpush arg_z)
   (vpush arg_y)