Skip to content
Snippets Groups Projects
Commit 3ec756b1 authored by wlott's avatar wlott
Browse files

Changed two-arg-+, etc to two-arg-plus, etc to keep genesis from generating

a strange header file for C.
parent 1e034df2
No related branches found
No related tags found
No related merge requests found
......@@ -245,9 +245,9 @@
(nop)))
(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-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 /)
(define-static-function negate (x) :translate -)
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.26 1990/03/08 11:09:26 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.27 1990/03/08 21:38:05 wlott Exp $
;;;
;;; This file contains some parameterizations of various VM
;;; attributes for the MIPS. This file is separate from other stuff so
......@@ -250,7 +250,8 @@
lisp::*eval-stack-top*
;; Static functions.
c::two-arg-+ c::two-arg-- c::two-arg-* c::two-arg-/ c::negate
c::two-arg-plus c::two-arg-minus c::two-arg-times c::two-arg-divide
c::negate
))
(defun static-symbol-p (symbol)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment