repos
/
benchmark
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file cxx.lisp
2009-05-25 tobias
1
(in-package :cl-smoke.benchmark)
14:59:32 '
2
'
3
(use-foreign-library libcl-smoke-benchmark)
'
4
(defctype size-t :unsigned-int)
'
5
'
6
(defcfun cl-smoke-benchmark-byte-array-size :char
'
7
(iterations size-t))
'
8
'
9
(defcfun cl-smoke-benchmark-overload :unsigned-int
'
10
(iterations size-t))
'
11
'
12
'
13
(defcfun cl-smoke-benchmark-construct-setup :void
'
14
(iterations size-t))
'
15
'
16
(defcfun cl-smoke-benchmark-construct :char
'
17
(iterations size-t))
'
18
'
19
(defcfun cl-smoke-benchmark-construct-cleanup :void
'
20
(iterations size-t))
'
21
'
22
'
23
(defmacro with-benchmark-cxx-construct ((iterations) &body body)
'
24
`(progn
'
25
(cl-smoke-benchmark-construct-setup ,iterations)
'
26
,@body
'
27
(cl-smoke-benchmark-construct-cleanup ,iterations)))
'
28
'
29
'
30
(defcfun cl-smoke-benchmark-simple-call :void
'
31
(iterations size-t))