cxx.lisp
Fri Jun 19 17:31:27 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* add signal-slot benchmark & better graphs
--- old-benchmark/cxx.lisp 2014-10-30 07:07:10.000000000 +0100
+++ new-benchmark/cxx.lisp 2014-10-30 07:07:10.000000000 +0100
@@ -3,16 +3,22 @@
(use-foreign-library libcl-smoke-benchmark)
(defctype size-t :unsigned-int)
-(defcfun cl-smoke-benchmark-byte-array-size :char
+(declaim (inline cl-smoke-benchmark-byte-array-size))
+(defcfun cl-smoke-benchmark-byte-array-size :void
(iterations size-t))
+(declaim (inline cl-smoke-benchmark-overload))
(defcfun cl-smoke-benchmark-overload :unsigned-int
(iterations size-t))
+(declaim (inline cl-smoke-benchmark-signal-slot))
+(defcfun cl-smoke-benchmark-signal-slot :void
+ (iterations size-t))
(defcfun cl-smoke-benchmark-construct-setup :void
(iterations size-t))
+(declaim (inline cl-smoke-benchmark-construct))
(defcfun cl-smoke-benchmark-construct :char
(iterations size-t))