Changeset 7875
 Timestamp:
 Dec 11, 2007, 1:10:50 AM (13 years ago)
 Location:
 branches/ia32/level0
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level0/l0numbers.lisp
r7362 r7875 467 467 (if (and (eq int 0)(= sfloat 0.0s0)) 468 468 0 469 (#+32bittarget ppc32::withstackshortfloats #+32bittarget ((s1 int))469 (#+32bittarget target::withstackshortfloats #+32bittarget ((s1 int)) 470 470 #32bittarget let* #32bittarget ((s1 (%inttosfloat int))) 471 471 (locally … … 1067 1067 (%doublefloat2 fnum (%doublefloat*2! (%doublefloat res f2) ,divisor f2)))))) 1068 1068 (truncateratsfloat (number divisor) 1069 #+ ppc32target1070 `( ppc32::withstackshortfloats ((fnum ,number)1069 #+32bittarget 1070 `(target::withstackshortfloats ((fnum ,number) 1071 1071 (f2)) 1072 1072 (let ((res (%unarytruncate (%shortfloat/2! fnum ,divisor f2)))) … … 1117 1117 (numbercase divisor 1118 1118 (shortfloat 1119 #+ ppc32target1120 ( ppc32::withstackshortfloats ((f2))1119 #+32bittarget 1120 (target::withstackshortfloats ((f2)) 1121 1121 (let ((res (%unarytruncate (%shortfloat/2! number divisor f2)))) 1122 1122 (values res … … 1133 1133 (the shortfloat divisor)))))) 1134 1134 ((fixnum bignum ratio) 1135 #+ ppc32target1136 ( ppc32::withstackshortfloats ((fdiv divisor)1135 #+32bittarget 1136 (target::withstackshortfloats ((fdiv divisor) 1137 1137 (f2)) 1138 1138 (let ((res (%unarytruncate (%shortfloat/2! number fdiv f2)))) … … 1192 1192 (%unarytruncate (%doublefloat/2! fnum ,divisor f2)))) 1193 1193 (truncateratsfloat (number divisor) 1194 #+ ppc32target1195 `( ppc32::withstackshortfloats ((fnum ,number)1194 #+32bittarget 1195 `(target::withstackshortfloats ((fnum ,number) 1196 1196 (f2)) 1197 1197 (%unarytruncate (%shortfloat/2! fnum ,divisor f2))) … … 1251 1251 (numbercase divisor 1252 1252 ((fixnum bignum ratio) 1253 #+ ppc32target1254 ( ppc32::withstackshortfloats ((fdiv divisor)1253 #+32bittarget 1254 (target::withstackshortfloats ((fdiv divisor) 1255 1255 (f2)) 1256 1256 (let ((res (%unarytruncate (%shortfloat/2! number fdiv f2)))) … … 1260 1260 (the shortfloat (%shortfloat divisor))))) 1261 1261 (shortfloat 1262 #+ ppc32target1263 ( ppc32::withstackshortfloats ((ddiv divisor)1262 #+32bittarget 1263 (target::withstackshortfloats ((ddiv divisor) 1264 1264 (f2)) 1265 1265 (%unarytruncate (%shortfloat/2! number ddiv f2))) 
branches/ia32/level0/l0utils.lisp
r6916 r7875 78 78 79 79 (evalwhen (:compiletoplevel :execute) 80 #+ ppc32target80 #+32bittarget 81 81 (defmacro needuseeqlmacro (key) 82 82 `(let* ((typecode (typecode ,key))) 83 83 (declare (fixnum typecode)) 84 (or (= typecode ppc32::subtagmacptr)85 (and (>= typecode ppc32::minnumericsubtag)86 (<= typecode ppc32::maxnumericsubtag)))))84 (or (= typecode target::subtagmacptr) 85 (and (>= typecode target::minnumericsubtag) 86 (<= typecode target::maxnumericsubtag))))) 87 87 #+64bittarget 88 88 (defmacro needuseeqlmacro (key)
Note: See TracChangeset
for help on using the changeset viewer.