mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Consider $code to make 'ptr representation

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2023-05-12 10:58:44 +02:00
parent db826ab909
commit aa2cfe7cf6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/utils.scm
View file

@ -418,7 +418,7 @@ by a label, respectively."
'tail-pointer-ref/immediate)) 'tail-pointer-ref/immediate))
(intmap-add representations var 'ptr)) (intmap-add representations var 'ptr))
(($ $code) (($ $code)
(intmap-add representations var 'u64)) (intmap-add representations var 'ptr))
(_ (_
(intmap-add representations var 'scm)))) (intmap-add representations var 'scm))))
(vars (vars