mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix representation for fadd/immediate

Browse source 
* module/language/cps/utils.scm (compute-var-representations): Add
fadd/immediate.
This commit is contained in:
Andy Wingo 2023-07-07 11:30:39 +02:00
parent 34c3467379
commit f8eaee9051
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -397,6 +397,7 @@ by a label, respectively."
(($ $primcall (or 'scm->f64 'load-f64 's64->f64 (($ $primcall (or 'scm->f64 'load-f64 's64->f64
'f32-ref 'f64-ref 'f32-ref 'f64-ref
'fadd 'fsub 'fmul 'fdiv 'fsqrt 'fabs 'fadd 'fsub 'fmul 'fdiv 'fsqrt 'fabs
'fadd/immediate
'ffloor 'fceiling 'ffloor 'fceiling
'fsin 'fcos 'ftan 'fasin 'facos 'fatan 'fatan2)) 'fsin 'fcos 'ftan 'fasin 'facos 'fatan 'fatan2))
(intmap-add representations var 'f64)) (intmap-add representations var 'f64))