(lisp-return lra lip :offset 2)
DO-STATIC-FUN
- (inst lwz lip null-tn (static-fun-offset 'two-arg-+) )
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'two-arg-+))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(lisp-return lra lip :offset 2)
DO-STATIC-FUN
- (inst lwz lip null-tn (static-fun-offset 'two-arg--))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'two-arg--))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(lisp-return lra lip :offset 2)
DO-STATIC-FUN
- (inst lwz lip null-tn (static-fun-offset 'two-arg-*))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'two-arg-*))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(:res quo any-reg nl2-offset)
(:res rem any-reg nl0-offset))
(aver (location= rem dividend))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
(:res rem any-reg nl0-offset))
(aver (location= rem dividend))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
(:res quo signed-reg nl2-offset)
(:res rem signed-reg nl0-offset))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
(inst beq DO-COMPARE)
DO-STATIC-FN
- (inst lwz lip null-tn (static-fun-offset ',static-fn))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset ',static-fn))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(lisp-return lra lip :offset 2)
DO-STATIC-FN
- (inst lwz lip null-tn (static-fun-offset 'eql))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'eql))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(lisp-return lra lip :offset 2)
DO-STATIC-FN
- (inst lwz lip null-tn (static-fun-offset 'two-arg-=))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'two-arg-=))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst mr cfp-tn csp-tn)
(lisp-return lra lip :offset 2)
DO-STATIC-FN
- (inst lwz lip null-tn (static-fun-offset 'two-arg-/=))
+ (inst addi lexenv-tn null-tn (static-fdefn-offset 'two-arg-/=))
+ (loadw code-tn lexenv-tn fdefn-fun-slot other-pointer-lowtag)
+ (loadw lip lexenv-tn fdefn-raw-addr-slot other-pointer-lowtag)
(inst li nargs (fixnumize 2))
(inst mr ocfp cfp-tn)
(inst j lip 0)