summaryrefslogtreecommitdiff
path: root/module/language
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-11-17 15:28:59 +0100
committerAndy Wingo <wingo@pobox.com>2023-11-17 15:28:59 +0100
commit5b0c261b04e02e467db672c7abb328a4a16a1caa (patch)
treefc1ddbcd556aca395789ea8f9ad33344ecdcef6e /module/language
parent49aa0940bcd1f77819326e73aaee44f5f359d830 (diff)
downloadguile-5b0c261b04e02e467db672c7abb328a4a16a1caa.tar.gz
Mark symbol-hash primcall as having unboxed result
* module/language/cps/utils.scm (primcall-raw-representations): Add symbol-hash.
Diffstat (limited to 'module/language')
-rw-r--r--module/language/cps/utils.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index b04c35dc3..ec8c2b3af 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -399,7 +399,8 @@ by a label, respectively."
word-ref word-ref/immediate
untag-char
vector-length vtable-size bv-length
- string-length string-ref)
+ string-length string-ref
+ symbol-hash)
'(u64))
((untag-fixnum
assume-s64