From 870677f16481cedfff2050c37eda01e959129e00 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 1 Apr 1990 17:37:49 +0000 Subject: [PATCH] Added static function definitions for two-arg comparisons. --- compiler/mips/arith.lisp | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index 0491a880f..4165506aa 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 -) -- GitLab