projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8116: Automated commit for Debian build of uffi upstream-version-1.3.8
[uffi.git]
/
benchmarks
/
allocation.lisp
diff --git
a/benchmarks/allocation.lisp
b/benchmarks/allocation.lisp
index 516902a6ae0cd4260eab04b048f01e64c2f868ae..dbdaa2395d335893766305b831fe6188a9506554 100644
(file)
--- a/
benchmarks/allocation.lisp
+++ b/
benchmarks/allocation.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id
: allocation.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp
$
+;;;; $Id$
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; 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)))
(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 ()
)
(defun stk-vector ()
@@
-43,6
+47,9
@@
#+cmu
(alien:with-alien ((ptr (alien:array alien:signed 10)))
(setf (alien:deref ptr 5) 0))
#+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 ()
)
(defun stat-int ()
@@
-62,6
+69,12
@@
(dynamic-extent ptr))
(setf (alien:deref ptr) 0)
(alien:free-alien ptr))
(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 ()
)
(defun stat-vector ()
@@
-81,6
+94,12
@@
(dynamic-extent ptr))
(setf (alien:deref ptr 5) 0)
(alien:free-alien ptr))
(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))
)
)