~ chicken-core (chicken-5) e4f829b6a6028169a8294afb9be480e49e0bf389

commit e4f829b6a6028169a8294afb9be480e49e0bf389
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Nov 26 12:29:38 2018 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Nov 26 12:29:38 2018 +0100

    Added unboxing benchmark to test suite

diff --git a/tests/runtests.bat b/tests/runtests.bat
index 5024889a..f739a297 100644
--- a/tests/runtests.bat
+++ b/tests/runtests.bat
@@ -142,6 +142,18 @@ echo specialized:
 fft2.out 1000 7
 if errorlevel 1 exit /b 1
 
+echo ======================================== unboxing benchmark ...
+%compile% fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out
+if errorlevel 1 exit /b 1
+%compile% fft.scm -O4 -debug x -d0 -disable-interrupts -b -o fft2.out
+if errorlevel 1 exit /b 1
+echo normal:
+fft1.out 1000 7
+if errorlevel 1 exit /b 1
+echo unboxing:
+fft2.out 1000 7
+if errorlevel 1 exit /b 1
+
 echo ======================================== callback tests ...
 %compile% -extend c-id-valid.scm callback-tests.scm
 if errorlevel 1 exit /b 1
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 6675bb0d..6da7630d 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -158,6 +158,14 @@ $time ./fft1.out 1000 7
 echo "specialized:"
 $time ./fft2.out 1000 7
 
+echo "======================================== unboxing benchmark ..."
+$compile fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out
+$compile fft.scm -O4 -debug x -d0 -disable-interrupts -b -o fft2.out
+echo "normal:"
+$time ./fft1.out 1000 7
+echo "unboxing:"
+$time ./fft2.out 1000 7
+
 echo "======================================== callback tests ..."
 $compile -extend c-id-valid.scm callback-tests.scm
 ./a.out