summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-05-12 10:58:44 +0200
committerAndy Wingo <wingo@pobox.com>2023-06-19 13:53:46 +0200
commitaa2cfe7cf69327285a17de97682d696f2f6c43ef (patch)
treee0259286b20dd1594d2f0a89ef57127dcf13a5df
parentdb826ab909c437c20c4365d0404ab8b853beb07c (diff)
downloadguile-aa2cfe7cf69327285a17de97682d696f2f6c43ef.tar.gz
Consider $code to make 'ptr representation
* module/language/cps/utils.scm (compute-var-representations): For the wasm target, these values are (ref $kvarargs), not i64. Will need to distinguish from bytevector pointers at some point, though.
-rw-r--r--module/language/cps/utils.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index 584fb3ba5..d3aff7f5a 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -418,7 +418,7 @@ by a label, respectively."
'tail-pointer-ref/immediate))
(intmap-add representations var 'ptr))
(($ $code)
- (intmap-add representations var 'u64))
+ (intmap-add representations var 'ptr))
(_
(intmap-add representations var 'scm))))
(vars