projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11615: 2007-04-12 Kevin Rosenberg (kevin@rosenberg.net)
[uffi.git]
/
benchmarks
/
allocation.lisp
diff --git
a/benchmarks/allocation.lisp
b/benchmarks/allocation.lisp
index 516902a6ae0cd4260eab04b048f01e64c2f868ae..38b7d09cae2dc8b87b1452d32b9002dba13bf0ba 100644
(file)
--- a/
benchmarks/allocation.lisp
+++ b/
benchmarks/allocation.lisp
@@
-7,13
+7,10
@@
;;;; 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
-2005
by Kevin M. Rosenberg
;;;;
;;;;
-;;;; UFFI users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the Lisp Lesser GNU Public License
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
@@
-31,6
+28,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
+44,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
+66,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
+91,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))
)
)