[Openmcl-devel] patch: %svar-binding-address

[James Bielman]

%SVAR-BINDING-ADDRESS was returing a single-float on ppc64,
causing a crash in CLX.  With this patch the CLX hello world
demo ran OK for me:

Index: level-0/PPC/ppc-symbol.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/level-0/PPC/ppc-symbol.lisp,v
retrieving revision 1.16
diff -u -r1.16 ppc-symbol.lisp
--- level-0/PPC/ppc-symbol.lisp	5 Jul 2005 10:12:49 -0000	1.16
+++ level-0/PPC/ppc-symbol.lisp	15 Jul 2005 19:31:19 -0000
@@ -110,7 +110,7 @@
   (la temp0 '2 vsp)
   (ba .SPvalues)
   @sym
-  (lwz arg_z target::svar.symbol svar)
+  (ldr arg_z target::svar.symbol svar)
   (li arg_y '#.target::symbol.vcell)
   (vpush arg_z)
   (vpush arg_y)