X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-allocate.lisp;h=2eec4aab8edd7032e373e9d36fe642af8ebb6b7b;hb=862c0325616a991a5bd7b50d79f7176d2115493b;hp=25ac6ff18b502027c6c8bee712ae8659956ddc99;hpb=6139c89c89f45c03509e4f3156293ff656716a8c;p=sbcl.git diff --git a/src/code/target-allocate.lisp b/src/code/target-allocate.lisp index 25ac6ff..2eec4aa 100644 --- a/src/code/target-allocate.lisp +++ b/src/code/target-allocate.lisp @@ -12,21 +12,21 @@ (in-package "SB!KERNEL") (sb!alien:define-alien-routine ("os_allocate" allocate-system-memory) - system-area-pointer + system-area-pointer (bytes sb!alien:unsigned-long)) (sb!alien:define-alien-routine ("os_allocate_at" allocate-system-memory-at) - system-area-pointer + system-area-pointer (address system-area-pointer) (bytes sb!alien:unsigned-long)) (sb!alien:define-alien-routine ("os_reallocate" reallocate-system-memory) - system-area-pointer + system-area-pointer (old system-area-pointer) (old-size sb!alien:unsigned-long) (new-size sb!alien:unsigned-long)) (sb!alien:define-alien-routine ("os_deallocate" deallocate-system-memory) - sb!alien:void + sb!alien:void (addr system-area-pointer) (bytes sb!alien:unsigned-long))