diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-10-13 01:31:19 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-10-13 01:31:19 +0200 |
commit | e78d4bf9a9501654024a18f8d0baa1597d57fcb8 (patch) | |
tree | baac08c8bcab8232ff9babdad2511236ecb12b2f /libguile/vm.c | |
parent | de6b3a5cb919534773e9bde571bdf500dc604eff (diff) | |
download | guile-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.c | 1 |
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> |