Changeset 9366 for branches/ia32/level0
 Timestamp:
 May 6, 2008, 4:20:48 PM (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level0/l0numbers.lisp
r7875 r9366 1084 1084 (numbercase number 1085 1085 (fixnum 1086 (if (eql number mostnegativefixnum)1086 (if (eql number target::targetmostnegativefixnum) 1087 1087 (if (zerop divisor) 1088 1088 (error 'divisionbyzero :operation 'truncate :operands (list number divisor)) … … 1102 1102 (bignum (numbercase divisor 1103 1103 (fixnum (if (eq divisor 1) (values number 0) 1104 (if (eq divisor mostnegativefixnum);; << aargh1104 (if (eq divisor target::targetmostnegativefixnum);; << aargh 1105 1105 (withsmallbignumbuffers ((bd divisor)) 1106 1106 (bignumtruncate number bd)) … … 1202 1202 (numbercase number 1203 1203 (fixnum 1204 (if (eql number mostnegativefixnum)1204 (if (eql number target::targetmostnegativefixnum) 1205 1205 (if (zerop divisor) 1206 1206 (error 'divisionbyzero :operation 'truncate :operands (list number divisor)) … … 1220 1220 (bignum (numbercase divisor 1221 1221 (fixnum (if (eq divisor 1) number 1222 (if (eq divisor mostnegativefixnum)1222 (if (eq divisor target::targetmostnegativefixnum) 1223 1223 (withsmallbignumbuffers ((bd divisor)) 1224 1224 (bignumtruncate number bd :norem)) … … 1473 1473 (numbercase divisor 1474 1474 (fixnum 1475 (if (eq divisor mostnegativefixnum)1475 (if (eq divisor target::targetmostnegativefixnum) 1476 1476 (nthvalue 1 (truncate number divisor)) 1477 1477 (bignumtruncatebyfixnumnoquo number divisor))) … … 1719 1719 (mixuphashcode 1720 1720 (logand (getinternalrealtime) 1721 (1 mostpositivefixnum))))))1721 (1 target::targetmostpositivefixnum)))))) 1722 1722 (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks))) 1723 1723 (low (ldb (byte 16 0) ticks))) … … 1838 1838 (if (zerop number) 1839 1839 number 1840 (let ((ratio (gvector :ratio (random mostpositivefixnum state)mostpositivefixnum)))1840 (let ((ratio (gvector :ratio (random target::targetmostpositivefixnum state) target::targetmostpositivefixnum))) 1841 1841 (declare (dynamicextent ratio)) 1842 1842 (* number ratio)))) … … 1852 1852 `(let ((,n ,nexp)) 1853 1853 (if (minusp (the fixnum ,n)) 1854 (if (eq ,n mostnegativefixnum)1854 (if (eq ,n target::targetmostnegativefixnum) 1855 1855 ( ,n) 1856 1856 (the fixnum ( (the fixnum ,n)))) … … 1876 1876 (numbercase n2 1877 1877 (fixnum 1878 (if (eql n1 mostnegativefixnum)1879 (if (eql n2 mostnegativefixnum)1880 ( mostnegativefixnum)1881 (bignumfixnumgcd ( mostnegativefixnum) (abs n2)))1882 (if (eql n2 mostnegativefixnum)1883 (bignumfixnumgcd ( mostnegativefixnum) (abs n1))1878 (if (eql n1 target::targetmostnegativefixnum) 1879 (if (eql n2 target::targetmostnegativefixnum) 1880 ( target::targetmostnegativefixnum) 1881 (bignumfixnumgcd ( target::targetmostnegativefixnum) (abs n2))) 1882 (if (eql n2 target::targetmostnegativefixnum) 1883 (bignumfixnumgcd ( target::targetmostnegativefixnum) (abs n1)) 1884 1884 (locally 1885 1885 (declare (optimize (speed 3) (safety 0)) … … 1888 1888 (if (minusp n2)(setq n2 (the fixnum ( n2)))) 1889 1889 (%fixnumgcd n1 n2))))) 1890 (bignum (if (eql n1 mostnegativefixnum)1891 (%bignumbignumgcd n2 ( mostnegativefixnum))1890 (bignum (if (eql n1 target::targetmostnegativefixnum) 1891 (%bignumbignumgcd n2 ( target::targetmostnegativefixnum)) 1892 1892 (bignumfixnumgcd (bignumabs n2)(fixnumabs n1)))))) 1893 1893 (bignum 1894 1894 (numbercase n2 1895 1895 (fixnum 1896 (if (eql n2 mostnegativefixnum)1896 (if (eql n2 target::targetmostnegativefixnum) 1897 1897 (%bignumbignumgcd (bignumabs n1)(fixnumabs n2)) 1898 1898 (bignumfixnumgcd (bignumabs n1)(fixnumabs n2))))
Note: See TracChangeset
for help on using the changeset viewer.