Skip to content
Snippets Groups Projects
Commit acb3686e authored by ram's avatar ram
Browse files

Added DEFTYPE for PERQ-STRING and NULL-TERMINATED-STRING. FIxed VECTOR-SAP to

be a function call rather than %PRIMITIVE.
parent 89e170c5
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.11 1991/05/21 22:18:05 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.12 1991/11/06 15:47:51 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1161,6 +1161,12 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock. ...@@ -1161,6 +1161,12 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock.
;;;; Strings accesses: ;;;; Strings accesses:
;;; Can't use length, because it may be less than the limit.
;;;
(deftype perq-string (&optional length)
(declare (ignore length))
'simple-base-string)
;;; Alien-Access expert for String -- Internal ;;; Alien-Access expert for String -- Internal
;;; ;;;
;;; Read a Perq-String into a string or write a string out into ;;; Read a Perq-String into a string or write a string out into
...@@ -1190,6 +1196,12 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock. ...@@ -1190,6 +1196,12 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock.
(+ ,1+off ,len))))))) (+ ,1+off ,len)))))))
;;; Can't use length, because it may be less than the limit.
;;;
(deftype null-terminated-string (&optional length)
(declare (ignore length))
'simple-base-string)
;;; Alien-Access expert for null terminated string -- Internal ;;; Alien-Access expert for null terminated string -- Internal
;;; ;;;
;;; Read a null terminated string into a string or write a string out into ;;; Read a null terminated string into a string or write a string out into
...@@ -1275,6 +1287,7 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock. ...@@ -1275,6 +1287,7 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock.
`(setf (sap-ref-sap ,sap ,offset) `(setf (sap-ref-sap ,sap ,offset)
(alien-value-sap ,value))))))) (alien-value-sap ,value)))))))
;;; Alien-Access expert for (Pointer xxx) -- Internal ;;; Alien-Access expert for (Pointer xxx) -- Internal
;;; ;;;
;;; We can't read pointers, and can only store pointers to unboxed ;;; We can't read pointers, and can only store pointers to unboxed
...@@ -1298,7 +1311,7 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock. ...@@ -1298,7 +1311,7 @@ don't know that it is supposed to be used for. I suspect it is a PERQ crock.
((or simple-string ((or simple-string
simple-bit-vector simple-bit-vector
(simple-array unsigned-byte (*))) (simple-array unsigned-byte (*)))
(%primitive c::vector-sap ,n-value))))))))) (vector-sap ,n-value)))))))))
;;;; Enumeration Alien access: ;;;; Enumeration Alien access:
......
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