;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: memory.lisp,v 1.1 2006-04-25 20:31:35 espen Exp $
+;; $Id: memory.lisp,v 1.3 2006-12-21 16:38:19 espen Exp $
(in-package "GFFI")
#+clisp(ffi:memory-as location 'ffi:uchar offset)
byte))
+(defparameter *memory-allocator* nil)
+(defparameter *memory-deallocator* nil)
+
(defun allocate-memory (size)
- (declare (ignore size))
- (error "Memory allocator not set"))
+ (if *memory-allocator*
+ (funcall *memory-allocator* size)
+ (error "Memory allocator not set")))
(declaim (ftype (function (integer) system-area-pointer) allocate-memory))
(defun deallocate-memory (location)
- (declare (ignore location))
- (warn "Memory deallocator not set"))
+ (if *memory-deallocator*
+ (funcall *memory-deallocator* location)
+ (warn "Memory deallocator not set")))
(defun copy-memory (from length &optional (to (allocate-memory length)))
#+cmu(system-area-copy from 0 to 0 (* 8 length))
(sb-alien-internals:parse-alien-type type nil)))
(defun sb-sizeof (type)
- (/ (sb-sizeof-bits type) 8)))
+ (/ (sb-sizeof-bits type) 8))
+
+ (defun sb-alignment (type)
+ (/ (sb-alien-internals:alien-type-alignment
+ (sb-alien-internals:parse-alien-type type nil))
+ 8)))