Changeset 7915
- Timestamp:
- Dec 15, 2007, 9:07:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/level-0/X86/X8632/x8632-bignum.lisp
r7914 r7915 158 158 159 159 ;;; To normalize a bignum is to drop "trailing" digits which are 160 ;;; redundant sign information. When return-fix um-p is t, make160 ;;; redundant sign information. When return-fixnum-p is t, make 161 161 ;;; the resultant bignum into a fixnum if it fits. 162 162 (defx8632lapfunction %normalize-bignum-2 ((return-fixnum-p arg_y) (bignum arg_z)) … … 183 183 (movl (% next) (% sign)) 184 184 ;; (bignum-ref bignum (- len 2)), i.e., next-to-last digit 185 (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% imm0)) (% next))185 (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% len)) (% next)) 186 186 @test 187 187 (movl (% next) (% imm0))
Note: See TracChangeset
for help on using the changeset viewer.