From 2427baa6a21925178f99726083e38d53b2276b9b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 19 Nov 2010 11:06:10 +0100
Subject: [PATCH] Add fixnum arithmetic benchmarks.

* benchmark-suite/benchmarks/arithmetic.bm ("fixnum")["*", "/"]: New
  benchmarks.
---
 benchmark-suite/benchmarks/arithmetic.bm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/benchmark-suite/benchmarks/arithmetic.bm b/benchmark-suite/benchmarks/arithmetic.bm
index 62d67be70..0755c0324 100644
--- a/benchmark-suite/benchmarks/arithmetic.bm
+++ b/benchmark-suite/benchmarks/arithmetic.bm
@@ -58,4 +58,10 @@
     (repeat (+ 2 <>) 7 100))
 
   (benchmark "-" 1e7
-    (repeat (+ 2 <>) 7 100)))
+    (repeat (+ 2 <>) 7 100))
+
+  (benchmark "*" 1e7
+    (repeat (* 1 <>) 1 100))
+
+  (benchmark "/" 1e7
+    (repeat (/ 2 <>) 1 100)))