From 0a1d3ed3781a6db77091b84f88b97370803e815e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Mar 1992 12:38:19 +0000
Subject: [PATCH] Changed alien-type-class SAP to SYSTEM-AREA-POINTER.

---
 compiler/mips/c-call.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/mips/c-call.lisp b/compiler/mips/c-call.lisp
index d0a125681..b88d54033 100644
--- a/compiler/mips/c-call.lisp
+++ b/compiler/mips/c-call.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.8 1992/02/14 23:50:27 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.9 1992/03/10 12:38:19 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.8 1992/02/14 23:50:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/c-call.lisp,v 1.9 1992/03/10 12:38:19 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and other necessary machine specific support
 ;;; routines for call-out to C.
@@ -45,7 +45,7 @@
 	  (my-make-wired-tn ptype reg-sc (+ stack-frame-size 4))
 	  (my-make-wired-tn ptype stack-sc stack-frame-size)))))
 
-(def-alien-type-method (alien::sap :arg-tn) (type state)
+(def-alien-type-method (system-area-pointer :arg-tn) (type state)
   (declare (ignore type))
   (let ((stack-frame-size (arg-state-stack-frame-size state)))
     (setf (arg-state-stack-frame-size state) (1+ stack-frame-size))
@@ -108,7 +108,7 @@
 	    (values 'unsigned-byte-32 'unsigned-reg))
       (my-make-wired-tn ptype reg-sc (+ num-results 2)))))
 
-(def-alien-type-method (alien::sap :result-tn) (type state)
+(def-alien-type-method (system-area-pointer :result-tn) (type state)
   (declare (ignore type))
   (let ((num-results (result-state-num-results state)))
     (setf (result-state-num-results state) (1+ num-results))
-- 
GitLab