From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 29 Apr 2003 19:51:20 +0000 (+0000)
Subject: r4706: *** empty log message ***
X-Git-Tag: v1.6.1~224
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=b7409095bc08c7220d4905a1cb168fff084fcc54

r4706: *** empty log message ***
---

diff --git a/benchmarks/allocation.lisp b/benchmarks/allocation.lisp
index 516902a..4b24bc7 100644
--- a/benchmarks/allocation.lisp
+++ b/benchmarks/allocation.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: allocation.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id: allocation.lisp,v 1.2 2003/04/29 19:51:20 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -31,6 +31,10 @@
   (alien:with-alien ((ptr alien:signed))
     (let ((p (alien:addr ptr)))
       (setf (alien:deref p) 0)))
+  #+sbcl
+  (sb-alien:with-alien ((ptr sb-alien:signed))
+    (let ((p (sb-alien:addr ptr)))
+      (setf (sb-alien:deref p) 0)))
   )
 
 (defun stk-vector ()
@@ -43,6 +47,9 @@
   #+cmu
   (alien:with-alien ((ptr (alien:array alien:signed 10)))
     (setf (alien:deref ptr 5) 0))
+  #+sbcl
+  (sb-alien:with-alien ((ptr (sb-alien:array sb-alien:signed 10)))
+    (setf (sb-alien:deref ptr 5) 0))
   )
 
 (defun stat-int ()
@@ -62,6 +69,12 @@
 	     (dynamic-extent ptr))
     (setf (alien:deref ptr) 0)
     (alien:free-alien ptr))
+  #+sbcl
+  (let ((ptr (sb-alien:make-alien (sb-alien:signed 32))))
+    (declare ;;(type (alien (* (alien:unsigned 32))) ptr)
+     (dynamic-extent ptr))
+    (setf (sb-alien:deref ptr) 0)
+    (sb-alien:free-alien ptr))
   )
 
 (defun stat-vector ()
@@ -81,6 +94,12 @@
 	     (dynamic-extent ptr))
     (setf (alien:deref ptr 5) 0)
     (alien:free-alien ptr))
+  #+sbcl
+  (let ((ptr (sb-alien:make-alien (sb-alien:array (sb-alien:signed 32) 10))))
+    (declare ;;(type (sb-alien (* (sb-alien:unsigned 32))) ptr)
+	     (dynamic-extent ptr))
+    (setf (sb-alien:deref ptr 5) 0)
+    (sb-alien:free-alien ptr))
   )