summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-10-13 01:31:19 +0200
committerLudovic Courtès <ludo@gnu.org>2010-10-13 01:31:19 +0200
commite78d4bf9a9501654024a18f8d0baa1597d57fcb8 (patch)
treebaac08c8bcab8232ff9babdad2511236ecb12b2f /libguile/vm.c
parentde6b3a5cb919534773e9bde571bdf500dc604eff (diff)
downloadguile-e78d4bf9a9501654024a18f8d0baa1597d57fcb8.tar.gz
Optimize `1+' and `1-' on fixnums.
* libguile/vm-i-scheme.c (INUM_MAX, INUM_MIN): New macros. (add1, sub1): Add/subtract without untagging the operand. This leads to a 44% run time improvement compared to the previous implementation. * libguile/vm.c: Include <stdint.h>. * test-suite/tests/numbers.test ("1+", "1-"): Add tests for MOST-POSITIVE-FIXNUM, resp. MOST-NEGATIVE-FIXNUM, for 32-bit and 34-bit values thereof. * benchmark-suite/benchmarks/arithmetic.bm: New file. * benchmark-suite/Makefile.am (SCM_BENCHMARKS): Add it.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 58d9a9f80..e1a90e127 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -24,6 +24,7 @@
#include <alloca.h>
#include <alignof.h>
#include <string.h>
+#include <stdint.h>
#include "libguile/bdw-gc.h"
#include <gc/gc_mark.h>