src/code/target-allocate.lisp

   1 ;;;; system memory allocation
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "SB!KERNEL")
  13
  14 (sb!alien:define-alien-routine ("os_allocate" allocate-system-memory)
  15                                system-area-pointer
  16   (bytes sb!alien:unsigned-long))
  17
  18 (sb!alien:define-alien-routine ("os_allocate_at" allocate-system-memory-at)
  19                                system-area-pointer
  20   (address system-area-pointer)
  21   (bytes sb!alien:unsigned-long))
  22
  23 (sb!alien:define-alien-routine ("os_reallocate" reallocate-system-memory)
  24                                system-area-pointer
  25   (old system-area-pointer)
  26   (old-size sb!alien:unsigned-long)
  27   (new-size sb!alien:unsigned-long))
  28
  29 (sb!alien:define-alien-routine ("os_deallocate" deallocate-system-memory)
  30                                sb!alien:void
  31   (addr system-area-pointer)
  32   (bytes sb!alien:unsigned-long))