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