diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index 0491a880f71d22a9cc4004dd9618cf906cddecd5..4165506aaea9cfba16b47f00aafbe623ce466aad 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -304,9 +304,20 @@ (nop))) -(define-static-function two-arg-plus (x y) :translate +) -(define-static-function two-arg-minus (x y) :translate -) -(define-static-function two-arg-times (x y) :translate *) -(define-static-function two-arg-divide (x y) :translate /) + + +;;;; Static functions. + +(define-static-function two-arg-+ (x y) :translate +) +(define-static-function two-arg-- (x y) :translate -) +(define-static-function two-arg-* (x y) :translate *) +(define-static-function two-arg-/ (x y) :translate /) + +(define-static-function two-arg-< (x y) :translate <) +(define-static-function two-arg-<= (x y) :translate <=) +(define-static-function two-arg-> (x y) :translate >) +(define-static-function two-arg->= (x y) :translate >=) +(define-static-function two-arg-= (x y) :translate =) +(define-static-function two-arg-/= (x y) :translate /=) (define-static-function negate (x) :translate -)