Skip to content
Snippets Groups Projects
Commit 0fe4c2ca authored by wlott's avatar wlott
Browse files

Use def-vm-support-routine to define the vm support routines.

Changed the package from ``C'' to ``MIPS''.
parent 5c481f91
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: C; Log: C.Log -*- ;;; -*- Package: MIPS -*-
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; This code was written as part of the Spice Lisp project at ;;; This code was written as part of the Spice Lisp project at
...@@ -7,14 +7,14 @@ ...@@ -7,14 +7,14 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.3 1990/11/01 01:22:07 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.4 1990/11/03 17:14:59 wlott Exp $
;;; ;;;
;;; This file contains the machine specific support routines needed by ;;; This file contains the machine specific support routines needed by
;;; the file assembler. ;;; the file assembler.
;;; ;;;
(in-package "C") (in-package "MIPS")
(defun generate-call-sequence (name style vop) (def-vm-support-routine generate-call-sequence (name style vop)
(ecase style (ecase style
(:raw (:raw
(values (values
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
nil)))) nil))))
(defun generate-return-sequence (style) (def-vm-support-routine generate-return-sequence (style)
(ecase style (ecase style
(:raw (:raw
`((inst j lip-tn) `((inst j lip-tn)
......
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