From d79b2aecbf58052262871265e42c78df6d0e8f4c Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin@c9x.me>
Date: Mon, 12 Dec 2022 13:57:28 +0100
Subject: [PATCH] zero msbs of 32-bit constants

Some noisy assemblers complain
when asked to do it themselves.
---
 fold.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fold.c b/fold.c
index 4b4a811..f992b3a 100644
--- a/fold.c
+++ b/fold.c
@@ -525,6 +525,8 @@ opfold(int op, int cls, Con *cl, Con *cr, Fn *fn)
 			return Bot;
 	} else
 		foldflt(&c, op, cls == Kd, cl, cr);
+	if (!KWIDE(cls))
+		c.bits.i &= 0xffffffff;
 	r = newcon(&c, fn);
 	assert(!(cls == Ks || cls == Kd) || c.flt);
 	return r.val;
-- 
2.11.4.GIT