Changeset 5433

Timestamp:

Oct 30, 2006, 7:39:52 PM (18 years ago)

Author:

Gary Byers

Message:

Fix ppc32 misc_ref_double_float_vector.

File:

• trunk/ccl/lisp-kernel/ppc-spentry.s (modified) (1 diff)

trunk/ccl/lisp-kernel/ppc-spentry.s

@@ -2715 +2715 @@
          __(b _SPmakeu32)
 local_label(misc_ref_double_float_vector):      
-         __(addi imm0,arg_z,arg_z)
-         __(addi imm0,arg_z,misc_dfloat_offset)
-         __(la imm1,4(imm0))
-         __(ldrx(imm0,arg_y,imm0))
-         __(ldrx(imm1,arg_y,imm1))
+         __(slwi imm0,arg_z,1)
+         __(la imm0,misc_dfloat_offset(imm0))
+         __(lfdx f0,arg_y,imm0)
          __(li imm2,double_float_header)
          __(Misc_Alloc_Fixed(arg_z,imm2,double_float.size))
-         __(str(imm0,double_float.value(arg_z)))
-         __(str(imm1,double_float.value+4(arg_z)))
+         __(stfd f0,double_float.value(arg_z))
          __(blr)
 local_label(misc_ref_bit_vector):