Changeset 7904 for branches/ia32/level-0


Ignore:
Timestamp:
Dec 13, 2007, 7:07:54 AM (12 years ago)
Author:
rme
Message:

Uh, at least try compiling the file before committing next time...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-bignum.lisp

    r7903 r7904  
    3434(defx8632lapfunction %digit-zerop ((x arg_z))
    3535  (svref x 0 imm0)
    36   (xorl (% arg_z) (% arg_z))
     36  (movl ($ x8632::nil-value) (% arg_z))
    3737  (testl (% imm0) (% imm0))
    38   (cmovnz ($ x8632::nil-value) (% arg_z))
     38  (cmovel (% imm0) (% arg_z))
    3939  (single-value-return))
    4040
     
    7676
    7777(defx8632lapfunction %digit-0-or-plusp ((bignum arg_y) (idx arg_z))
    78   (xorl (% imm0) (% imm0))
    7978  (testl (@ x8632::misc-data-offset (% bignum) (% idx)) (% imm0))
    80   (cmovbl ($ x8632::nil-value) (% arg_z))
     79  (movl ($ x8632::nil-value) (% temp0))
     80  (cmovbl (% temp0) (% arg_z))
    8181  (single-value-return))
    8282
     
    8484(defx8632lapfunction %bignum-oddp ((bignum arg_z))
    8585  (testb ($ 1) (@ x8632::misc-data-offset (% bignum)))
    86   (cmovzl ($ x8632::nil-value) (% arg_z))
     86  (movl ($ x8632::nil-value) (% temp0))
     87  (cmovel (% temp0) (% arg_z))
    8788  (single-value-return))
    8889
     
    9192  (movl (@ (- 4 x8632::misc-data-offset) (% bignum)) (% imm0))
    9293  (testl ($ #x8000000) (% imm0))
    93   (cmovnzl ($ x8632::nil-value) (% arg_z))
     94  (movl ($ x8632::nil-value) (% temp0))
     95  (cmovnel (% temp0) (% arg_z))
    9496  (single-value-return))
    9597
     
    101103(defx8632lapfunction bignum-minusp ((bignum arg_z))
    102104  (vector-length bignum imm0)
    103   (movl (@ (- 4 x8632::misc-data-offset) (% bignum) (% imm0)))
     105  (movl (@ (- 4 x8632::misc-data-offset) (% bignum) (% imm0)) (% imm0))
    104106  (testl ($ #x8000000) (% imm0))
    105   (cmovzl ($ x8632::nil-value) (% arg_z))
     107  (movl ($ x8632::nil-value) (% temp0))
     108  (cmovel (% temp0) (% arg_z))
    106109  (single-value-return))
    107110
     
    132135  @add
    133136  (adc (% temp0) (% imm0))
    134   (cmovcl ($ fixnumone) (% arg_z))
    135137  (movl (@ r (% esp)) (% temp0))
    136138  (movl (@ k (% esp)) (% temp1))
    137139  (movl (% imm0) (@ x8632::misc-data-offset (% temp0) (% temp1)))
     140  (adc ($ 0) (% imm0))                  ;propagate carry flag
     141  (box-fixnum imm0 arg_z)
    138142  (mark-as-node temp0)
    139143  (single-value-return 7))
     
    164168  @sub
    165169  (sbb (% imm0) (% temp0))
    166   (cmovcl ($ fixnumone) (% arg_z))
    167170  (movl (@ r (% esp)) (% temp0))
    168171  (movl (@ k (% esp)) (% temp1))
    169172  (movl (% imm0) (@ x8632::misc-data-offset (% temp0) (% temp1)))
     173  (adc ($ 0) (% imm0))                  ;propagate carry flag
     174  (box-fixnum imm0 arg_z)
    170175  (mark-as-node temp0)
    171176  (single-value-return 7))
Note: See TracChangeset for help on using the changeset viewer.