From 0fe4c2ca3b1952fb2a534e96edbb6d724b1077f8 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 17:14:59 +0000 Subject: [PATCH] Use def-vm-support-routine to define the vm support routines. Changed the package from ``C'' to ``MIPS''. --- assembly/mips/support.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/assembly/mips/support.lisp b/assembly/mips/support.lisp index cbda9e1e2..2bcaebc04 100644 --- a/assembly/mips/support.lisp +++ b/assembly/mips/support.lisp @@ -1,4 +1,4 @@ -;;; -*- Package: C; Log: C.Log -*- +;;; -*- Package: MIPS -*- ;;; ;;; ********************************************************************** ;;; This code was written as part of the Spice Lisp project at @@ -7,14 +7,14 @@ ;;; 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 ;;; 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 (:raw (values @@ -55,7 +55,7 @@ nil)))) -(defun generate-return-sequence (style) +(def-vm-support-routine generate-return-sequence (style) (ecase style (:raw `((inst j lip-tn) -- GitLab