(:res quo any-reg nl2-offset)
(:res rem any-reg nl0-offset))
- (assert (location= rem dividend))
+ (aver (location= rem dividend))
(let ((error (generate-error-code nil division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(:res quo any-reg nl2-offset)
(:res rem any-reg nl0-offset))
- (assert (location= rem dividend))
+ (aver (location= rem dividend))
(let ((error (generate-error-code nil division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(lisp-return lra lip :offset 2)
DO-STATIC-FN
- (inst lwz lip null-tn (static-fun-offset 'two-arg-=))
+ (inst lwz lip null-tn (static-fun-offset 'two-arg-/=))
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst j lip 0)