Wed Jul 8 17:34:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Benchmark overload resolution at compile time.
diff -rN -u old-benchmark/benchmark.lisp new-benchmark/benchmark.lisp
--- old-benchmark/benchmark.lisp 2014-10-30 06:53:59.000000000 +0100
+++ new-benchmark/benchmark.lisp 2014-10-30 06:53:59.000000000 +0100
@@ -39,7 +39,7 @@
(dotimes (n 3)
(funcall function iterations)) ;; startup
(dotimes (n 20 data)
- (sb-ext:gc :full t)
+ (tg:gc :full t)
(push (nconc (list :iterations iterations)
(timing function iterations))
data))))
@@ -62,11 +62,13 @@
(defun run (&optional construct)
(write-lisp-info "info.dat")
(run-compare "signal-slot" #'signal-slot
- #'cl-smoke-benchmark-signal-slot 5000 1000)
+ #'cl-smoke-benchmark-signal-slot 1000 1000)
(run-compare "inline-call" #'inline-call
- #'cl-smoke-benchmark-byte-array-size 50000 3000)
+ #'cl-smoke-benchmark-byte-array-size 10000 3000)
(run-compare "simple-call" #'simple-call
- #'cl-smoke-benchmark-simple-call 50000 3000)
+ #'cl-smoke-benchmark-simple-call 10000 3000)
+ (run-compare "simple-call-compile-time" #'simple-call-compile-time
+ #'cl-smoke-benchmark-simple-call 10000 3000)
(when construct
(with-benchmark-cxx-construct ((* 50 1000))
(run-compare "construct" #'construct
diff -rN -u old-benchmark/cl-smoke.benchmark.mbd new-benchmark/cl-smoke.benchmark.mbd
--- old-benchmark/cl-smoke.benchmark.mbd 2014-10-30 06:53:59.000000000 +0100
+++ new-benchmark/cl-smoke.benchmark.mbd 2014-10-30 06:53:59.000000000 +0100
@@ -30,4 +30,4 @@
"cxx"
"lisp-benchmark"
"benchmark")
- (:needs :qt :cffi :sysdef.cmake))
+ (:needs :qt :cffi :sysdef.cmake :trivial-garbage))
diff -rN -u old-benchmark/lisp-benchmark.lisp new-benchmark/lisp-benchmark.lisp
--- old-benchmark/lisp-benchmark.lisp 2014-10-30 06:53:59.000000000 +0100
+++ new-benchmark/lisp-benchmark.lisp 2014-10-30 06:53:59.000000000 +0100
@@ -10,13 +10,24 @@
(setf char (cxx:aref array 0))))))
(let ((object (make-instance 'qt:object)))
- (declare (qt:object object))
+; (declare (qt:object object))
(defun simple-call (iterations)
(declare (fixnum iterations)
(optimize (speed 3)))
(dotimes (i iterations)
(cxx:kill-timer object 0))))
+#+sbcl
+(smoke::define-resolve-at-compile-time cxx:kill-timer)
+
+(let ((object (make-instance 'qt:object)))
+ (declare (qt:object object))
+ (defun simple-call-compile-time (iterations)
+ (declare (fixnum iterations)
+ (optimize (speed 3)))
+ (dotimes (i iterations)
+ (cxx:kill-timer object 0))))
+
(defclass my-object (qt:object)
()
(:metaclass cxx:class))
diff -rN -u old-benchmark/plot.R new-benchmark/plot.R
--- old-benchmark/plot.R 2014-10-30 06:53:59.000000000 +0100
+++ new-benchmark/plot.R 2014-10-30 06:53:59.000000000 +0100
@@ -36,6 +36,11 @@
title("Simple Call",
paste(info$TYPE[1], info$VERSION[1], "on", info$OS[1], info$OS.VERSION[1]))
+cxx_simple_call <- read.table("cxx-simple-call-compile-time.dat", header=TRUE)
+simple_call <- read.table("simple-call-compile-time.dat", header=TRUE)
+boxplot_benchmark(simple_call, cxx_simple_call)
+title("Simple Call with overload resolution at compile time.")
+
cxx_inline_call <- read.table("cxx-inline-call.dat", header=TRUE)
inline_call <- read.table("inline-call.dat", header=TRUE)
boxplot_benchmark(inline_call, cxx_inline_call)