diff options
author | Andy Wingo <wingo@pobox.com> | 2023-05-12 10:58:44 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-06-19 13:53:46 +0200 |
commit | aa2cfe7cf69327285a17de97682d696f2f6c43ef (patch) | |
tree | e0259286b20dd1594d2f0a89ef57127dcf13a5df | |
parent | db826ab909c437c20c4365d0404ab8b853beb07c (diff) | |
download | guile-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.scm | 2 |
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 |