From cc8e98237d965c7b4bf99bacf52859ebe1a64b14 Mon Sep 17 00:00:00 2001
From: Richard Miller <miller.research@gmail.com>
Date: Tue, 8 Dec 2020 18:56:25 +0000
Subject: jc: fix opcode for vlong shifts

---
 utils/ic/cgen.c | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'utils/ic/cgen.c')

diff --git a/utils/ic/cgen.c b/utils/ic/cgen.c
index a8bf5ea1..7afe3290 100644
--- a/utils/ic/cgen.c
+++ b/utils/ic/cgen.c
@@ -179,11 +179,21 @@ cgen(Node *n, Node *nn)
 			cgen(r, &nod1);
 			gopcode(o, &nod1, Z, &nod);
 		} else {
-			regalloc(&nod, r, nn);
-			cgen(r, &nod);
-			regalloc(&nod1, l, Z);
-			cgen(l, &nod1);
-			gopcode(o, &nod, &nod1, &nod);
+			if(typev[n->type->etype] &&
+			   (o == OLSHR || o == OASHL || o == OASHR)){
+				/* vlong shifts: result has type of l, not type of r */
+				regalloc(&nod1, r, Z);
+				cgen(r, &nod1);
+				regalloc(&nod, l, nn);
+				cgen(l, &nod);
+				gopcode(o, &nod1, Z, &nod);
+			}else{
+				regalloc(&nod, r, nn);
+				cgen(r, &nod);
+				regalloc(&nod1, l, Z);
+				cgen(l, &nod1);
+				gopcode(o, &nod, &nod1, &nod);
+			}
 		}
 		gopcode(OAS, &nod, Z, nn);
 		regfree(&nod);
-- 
cgit v1.2.3