From aa82f8227c34b711ea1d073585c89733ff30178b Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 17 Aug 2023 13:42:24 +0200
Subject: [PATCH] Add unboxed representations for fadd/immediate,
 fmul/immediate

* module/language/cps/utils.scm (primcall-raw-representations): Add
fadd/immediate, fmul/immediate as f64.
---
 module/language/cps/utils.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index 03d6a5435..7a9f3b34e 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -383,6 +383,7 @@ by a label, respectively."
       load-f64 s64->f64
       f32-ref f64-ref
       fadd fsub fmul fdiv fsqrt fabs
+      fadd/immediate fmul/immediate
       ffloor fceiling
       fsin fcos ftan fasin facos fatan fatan2)
      '(f64))