From 8fe98b9f488a9e0c25ce9db3ab67ca92d0609dee Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 10 Mar 1992 13:01:34 +0000 Subject: [PATCH] Changed the sap alien-type-class to system-area-pointer. Removed alien:: from in front of alien-double-float-type{,-p} now that they are exported. --- compiler/sparc/c-call.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp index 986c39abb..5516103db 100644 --- a/compiler/sparc/c-call.lisp +++ b/compiler/sparc/c-call.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.5 1992/03/02 02:50:52 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.6 1992/03/10 13:01:34 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -44,7 +44,7 @@ (int-arg state 'signed-byte-32 'signed-reg 'signed-stack) (int-arg state 'unsigned-byte-32 'unsigned-reg 'unsigned-stack))) -(def-alien-type-method (alien::sap :arg-tn) (type state) +(def-alien-type-method (system-area-pointer :arg-tn) (type state) (declare (ignore type)) (int-arg state 'system-area-pointer 'sap-reg 'sap-stack)) @@ -53,7 +53,7 @@ (my-make-wired-tn 'signed-byte-32 'signed-reg nl0-offset) (my-make-wired-tn 'unsigned-byte-32 'unsigned-reg nl0-offset))) -(def-alien-type-method (alien::sap :result-tn) (type) +(def-alien-type-method (system-area-pointer :result-tn) (type) (declare (ignore type)) (my-make-wired-tn 'system-area-pointer 'sap-reg nl0-offset)) @@ -86,12 +86,12 @@ (arg-types (alien-function-type-arg-types type)) (result-type (alien-function-type-result-type type))) (assert (= (length arg-types) (length args))) - (if (some #'alien::alien-double-float-type-p arg-types) + (if (some #'alien-double-float-type-p arg-types) (collect ((new-args) (lambda-vars) (new-arg-types)) (dolist (type arg-types) (let ((arg (gensym))) (lambda-vars arg) - (cond ((alien::alien-double-float-type-p type) + (cond ((alien-double-float-type-p type) (new-args `(double-float-high-bits ,arg)) (new-args `(double-float-low-bits ,arg)) (new-arg-types (parse-alien-type '(signed 32))) @@ -102,7 +102,7 @@ `(lambda (function type ,@(lambda-vars)) (declare (ignore type)) (%alien-funcall function - ',(alien::make-alien-function-type + ',(make-alien-function-type :arg-types (new-arg-types) :result-type result-type) ,@(new-args)))) -- GitLab