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

.../systems-work/code/alieneval.lisp, 22-Oct-89 22:36:51, Edit by Wlott.

  Moved DO-VALIDATE from machio.lisp to here, cause machio.lisp is going away.
parent 480bacd5
No related branches found
No related tags found
No related merge requests found
......@@ -276,6 +276,17 @@
alien))
;;; DO-VALIDATE -- Internal Interface.
;;;
;;; Do a ValidateMemory on our kernel port and flame out if error.
;;;
;;; Hemlock and other code files use this, even though it is not exported from
;;; a more appropriate package.
;;;
(defun do-validate (addr bytes mask)
(gr-call* mach::vm_allocate *task-self* addr bytes (if (eq mask -1) t NIL)))
;;; Make-Alien -- Public
;;;
;;; Create an Alien value structure, validating memory to hold the data
......
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