cxx.lisp
Mon May 25 16:59:32 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-benchmark/cxx.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-benchmark/cxx.lisp 2014-10-30 07:07:34.000000000 +0100
@@ -0,0 +1,31 @@
+(in-package :cl-smoke.benchmark)
+
+(use-foreign-library libcl-smoke-benchmark)
+(defctype size-t :unsigned-int)
+
+(defcfun cl-smoke-benchmark-byte-array-size :char
+ (iterations size-t))
+
+(defcfun cl-smoke-benchmark-overload :unsigned-int
+ (iterations size-t))
+
+
+(defcfun cl-smoke-benchmark-construct-setup :void
+ (iterations size-t))
+
+(defcfun cl-smoke-benchmark-construct :char
+ (iterations size-t))
+
+(defcfun cl-smoke-benchmark-construct-cleanup :void
+ (iterations size-t))
+
+
+(defmacro with-benchmark-cxx-construct ((iterations) &body body)
+ `(progn
+ (cl-smoke-benchmark-construct-setup ,iterations)
+ ,@body
+ (cl-smoke-benchmark-construct-cleanup ,iterations)))
+
+
+(defcfun cl-smoke-benchmark-simple-call :void
+ (iterations size-t))