From a80ccec2078d36405472137f11104020e5832bf4 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 5 Sep 2023 11:54:31 +0200
Subject: [PATCH] Add reprs for more s64 macro-instructions

* module/language/cps/utils.scm (primcall-raw-representations): Add
sadd, ssub, etc; these are lowered to uadd, usub, etc later for the
guile-vm target, but it is still useful to record their reprs for
pre-lowering analysis.
---
 module/language/cps/utils.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index 7a9f3b34e..b04c35dc3 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -404,6 +404,9 @@ by a label, respectively."
     ((untag-fixnum
       assume-s64
       scm->s64 load-s64 u64->s64
+      sadd ssub smul
+      sadd/immediate ssub/immediate smul/immediate
+      slsh slsh/immediate
       srsh srsh/immediate
       s8-ref s16-ref s32-ref s64-ref)
      '(s64))