diff --git a/compiler/mips/c-call.lisp b/compiler/mips/c-call.lisp index d0a125681bbef65de4006866fa22163e04b6f809..b88d5403398bbd293a0b831641c967c327e97d6d 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))