repos
/
benchmark
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
ASDF & modular smoke.
Annotate for file cxx.lisp
2009-05-25 tobias
1
(in-package :cl-smoke.benchmark)
14:59:32 '
2
2010-01-10 tobias
3
(define-foreign-library libcl-smoke-benchmark
10:16:40 '
4
(t (:default "libcl-smoke-benchmark")))
'
5
'
6
(let ((*foreign-library-directories*
'
7
(cons (asdf:component-pathname (asdf:find-system :cl-smoke.benchmark))
'
8
*foreign-library-directories*)))
'
9
(use-foreign-library libcl-smoke-benchmark))
'
10
2009-05-25 tobias
11
(defctype size-t :unsigned-int)
14:59:32 '
12
2009-06-19 tobias
13
(declaim (inline cl-smoke-benchmark-byte-array-size))
15:31:27 '
14
(defcfun cl-smoke-benchmark-byte-array-size :void
2009-05-25 tobias
15
(iterations size-t))
14:59:32 '
16
2009-06-19 tobias
17
(declaim (inline cl-smoke-benchmark-overload))
2009-05-25 tobias
18
(defcfun cl-smoke-benchmark-overload :unsigned-int
14:59:32 '
19
(iterations size-t))
'
20
2009-06-19 tobias
21
(declaim (inline cl-smoke-benchmark-signal-slot))
15:31:27 '
22
(defcfun cl-smoke-benchmark-signal-slot :void
'
23
(iterations size-t))
2009-05-25 tobias
24
14:59:32 '
25
(defcfun cl-smoke-benchmark-construct-setup :void
'
26
(iterations size-t))
'
27
2009-06-19 tobias
28
(declaim (inline cl-smoke-benchmark-construct))
2009-05-25 tobias
29
(defcfun cl-smoke-benchmark-construct :char
14:59:32 '
30
(iterations size-t))
'
31
'
32
(defcfun cl-smoke-benchmark-construct-cleanup :void
'
33
(iterations size-t))
'
34
'
35
'
36
(defmacro with-benchmark-cxx-construct ((iterations) &body body)
'
37
`(progn
'
38
(cl-smoke-benchmark-construct-setup ,iterations)
'
39
,@body
'
40
(cl-smoke-benchmark-construct-cleanup ,iterations)))
'
41
'
42
'
43
(defcfun cl-smoke-benchmark-simple-call :void
'
44
(iterations size-t))