Changeset 15226

Timestamp:

Feb 27, 2012, 3:31:37 AM (13 years ago)

Author:

Gary Byers

Message:

%VECT-DATA-TO-MACPTR: handle DOUBLE-FLOAT cases, which are weird
on 32-bit platforms. (ARM and PPC32 already handled weirdness.)
%IVECTOR-FROM-MACPTR (which may be unused) handles weirdness weirdly
already, it seems.

File:

• trunk/source/level-0/X86/X8632/x8632-misc.lisp (modified) (1 diff)

trunk/source/level-0/X86/X8632/x8632-misc.lisp

@@ -713 +713 @@
 
 (defx8632lapfunction %vect-data-to-macptr ((vect arg_y) (ptr arg_z))
+  (cmpb ($ x8632::subtag-double-float-vector) (@ x8632::misc-subtag-offset (% vect)))
+  (je @dfloat)
+  (cmpb ($ x8632::subtag-double-float) (@ x8632::misc-subtag-offset (% vect)))
+  (je @dfloat)
   (lea (@ x8632::misc-data-offset (% vect)) (% imm0))
+  (jmp @common)
+  @dfloat
+  (lea (@ x8632::misc-dfloat-offset (% vect)) (% imm0))
+  @common
   (movl (% imm0) (@ x8632::macptr.address (% ptr)))
   (single-value-return))