Skip to content
Snippets Groups Projects
Commit ec42ff4a authored by toy's avatar toy
Browse files

Revived SGI MIPS port, from Mike McDonald.

parent a6d30cac
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.19 2002/01/14 21:25:52 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.20 2003/03/02 18:55:55 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -250,4 +250,5 @@ ...@@ -250,4 +250,5 @@
(setf (floating-point-modes) (setf (floating-point-modes)
(logior (logand ,orig-modes ,(logior traps exceptions)) (logior (logand ,orig-modes ,(logior traps exceptions))
(logand (floating-point-modes) (logand (floating-point-modes)
,(logand trap-mask exception-mask)))))))) ,(logand trap-mask exception-mask)
#+mips ,(dpb 0 float-exceptions-byte #xffffffff))))))))
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.51 1994/10/31 04:44:16 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.52 2003/03/02 18:55:56 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -309,9 +309,9 @@ ...@@ -309,9 +309,9 @@
(inst addu alloc-tn 1)) (inst addu alloc-tn 1))
,@forms ,@forms
(without-scheduling () (without-scheduling ()
(inst nop)
(inst add alloc-tn ,flag-tn)))) (inst add alloc-tn ,flag-tn))))
;;;; Memory accessor vop generators ;;;; Memory accessor vop generators
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.115 2003/02/12 15:53:48 emarsden Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.116 2003/03/02 18:55:56 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -131,13 +131,17 @@ ...@@ -131,13 +131,17 @@
(export '(target-read-only-space-start (export '(target-read-only-space-start
target-static-space-start target-static-space-start
target-dynamic-space-start)) target-dynamic-space-start
target-foreign-linkage-space-start
target-foreign-linkage-entry-size))
;;; Where to put the different spaces. ;;; Where to put the different spaces.
;;; ;;;
(defparameter target-read-only-space-start #x01000000) (defparameter target-read-only-space-start #x01000000)
(defparameter target-static-space-start #x05000000) (defparameter target-static-space-start #x05000000)
(defparameter target-dynamic-space-start #x07000000) (defparameter target-dynamic-space-start #x07000000)
(defparameter target-foreign-linkage-space-start #x0fc00000)
(defconstant target-foreign-linkage-entry-size 8)
;;; LARGE-OBJECT-CUTOFF -- Size in words where we start allocating in the ;;; LARGE-OBJECT-CUTOFF -- Size in words where we start allocating in the
;;; large object space instead. Must be less then a page. ;;; large object space instead. Must be less then a page.
...@@ -221,6 +225,14 @@ ...@@ -221,6 +225,14 @@
lisp::*free-interrupt-context-index* lisp::*free-interrupt-context-index*
unix::*interrupts-enabled* unix::*interrupts-enabled*
unix::*interrupt-pending* unix::*interrupt-pending*
;; Make the ..slot-unbound.. symbol static to optimise the
;; common slot unbound check.
pcl::..slot-unbound..
;; These are filled in the C run-time.
lisp::*cmucl-lib*
lisp::*cmucl-core-path*
)) ))
#+gengc #+gengc
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.47 2000/01/10 14:46:07 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.48 2003/03/02 18:55:56 toy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -391,9 +391,6 @@ ...@@ -391,9 +391,6 @@
(def-type-vops funcallable-instance-p nil nil nil (def-type-vops funcallable-instance-p nil nil nil
funcallable-instance-header-type) funcallable-instance-header-type)
(def-type-vops dylan::dylan-function-p nil nil nil
dylan-function-header-type)
(def-type-vops array-header-p nil nil nil (def-type-vops array-header-p nil nil nil
simple-array-type complex-string-type complex-bit-vector-type simple-array-type complex-string-type complex-bit-vector-type
complex-vector-type complex-array-type) complex-vector-type complex-array-type)
......
...@@ -5,6 +5,8 @@ CC = cc # -Wall -Wstrict-prototypes -Wmissing-prototypes ...@@ -5,6 +5,8 @@ CC = cc # -Wall -Wstrict-prototypes -Wmissing-prototypes
CPP = cpp CPP = cpp
CFLAGS = -Dirix -DSVR4 -D_BSD_SIGNALS -g CFLAGS = -Dirix -DSVR4 -D_BSD_SIGNALS -g
DEPEND = $(CC) -M -E
# For some reason mips-assem.S and mips-assem.s must both be linked to the # For some reason mips-assem.S and mips-assem.s must both be linked to the
# mips-assem.S source file. It seems that .S means something wierd on this # mips-assem.S source file. It seems that .S means something wierd on this
# platform. Also, make sure that "as" is /usr/bin/as, not the # platform. Also, make sure that "as" is /usr/bin/as, not the
......
# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/GNUmakefile,v 1.18 2002/10/01 20:10:49 toy Exp $ # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/GNUmakefile,v 1.19 2003/03/02 18:55:57 toy Exp $
all: lisp.nm all: lisp.nm
CC = gcc CC = gcc
DEPEND_FLAGS = DEPEND = $(CC) -MM -E
include Config include Config
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.98 2002/11/05 22:45:53 cracauer Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.99 2003/03/02 18:56:43 toy Exp $
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -97,7 +97,7 @@ ...@@ -97,7 +97,7 @@
#+alpha #+alpha
(rename-package "ALPHA" "ALPHA" '("VM" "OLD-ALPHA")) (rename-package "ALPHA" "ALPHA" '("VM" "OLD-ALPHA"))
#+sgi #+sgi
(rename-package "SGI" "SGI" '("VM" "OLD-SGI")) (rename-package "SGI" "SGI" '("VM" "MIPS" "OLD-SGI"))
#+ppc #+ppc
(rename-package "PPC" "PPC" '("VM" "OLD-PPC")) (rename-package "PPC" "PPC" '("VM" "OLD-PPC"))
......
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