diff options
author | Andy Wingo <wingo@pobox.com> | 2020-08-11 23:09:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-08-12 23:30:08 +0200 |
commit | 03998db647546df017feb19c0d5912e7451a61fc (patch) | |
tree | 968fe99c1a0e39b96a340b37c0f0ed2199e1e65e /libguile | |
parent | cd5ab6377bb14cb8248e0ba577ee0c44bce43b60 (diff) | |
download | guile-03998db647546df017feb19c0d5912e7451a61fc.tar.gz |
Add new pass to optimize branch chains to table dispatch
* module/language/cps/switch.scm: New pass.
* module/Makefile.am (SOURCES):
* am/bootstrap.am (SOURCES): Add switch.scm.
* module/system/base/optimize.scm (available-optimizations):
* module/language/cps/optimize.scm (optimize-first-order-cps): Run
switch optimization at level 2.
* libguile/hash.c (JENKINS_LOOKUP3_HASHWORD2): Add note regarding
cross-compilation.
* module/language/cps/graphs.scm (intmap-select): New definition.
* module/language/cps/utils.scm (compute-singly-referenced-labels): Move
here, from various places. Doesn't take a body intset argument.
* module/language/cps/contification.scm:
* module/language/cps/closure-conversion.scm:
* module/language/cps/simplify.scm: Use compute-singly-referenced-labels
from utils.
* module/language/cps/effects-analysis.scm (annotation->memory-kind*):
(annotation->memory-kind): Add symbol annotation cases.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/hash.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/hash.c b/libguile/hash.c index 9cb8fcedd..11a35c2cb 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -110,6 +110,10 @@ extern double floor(); break; \ } \ \ + /* Scheme can access symbol-hash, which exposes this value. For \ + cross-compilation reasons, we ensure that the high 32 bits of \ + the hash on a 64-bit system are equal to the hash on a 32-bit \ + system. The low 32 bits just add more entropy. */ \ if (sizeof (ret) == 8) \ ret = (((unsigned long) c) << 32) | b; \ else \ |