From 1f4bbf566ac5b9b01b3fdb18e5a33103b3182d01 Mon Sep 17 00:00:00 2001
From: azidar
Date: Fri, 15 Jan 2016 16:11:42 -0800
Subject: shift right does not cast input as signed

---
 src/main/stanza/verilog.stanza | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/main/stanza/verilog.stanza b/src/main/stanza/verilog.stanza
index 9bbb9aae..6b51f390 100644
--- a/src/main/stanza/verilog.stanza
+++ b/src/main/stanza/verilog.stanza
@@ -139,7 +139,7 @@ defn emit (e:Expression) -> String :
                if type(e) typeof SIntType : [emit-as-type(args(e)[0],type(e)) " >>> " emit(args(e)[1])]
                else : [emit-as-type(args(e)[0],type(e)) " >> " emit(args(e)[1])]
             SHIFT-LEFT-OP : [emit-as-type(args(e)[0],type(e)) " << " consts(e)[0]]
-            SHIFT-RIGHT-OP : [emit-as-type(args(e)[0],type(e)) "[" width!(type(args(e)[0])) - to-long(1) ":" consts(e)[0] "]"]
+            SHIFT-RIGHT-OP : [emit(args(e)[0]) "[" width!(type(args(e)[0])) - to-long(1) ":" consts(e)[0] "]"]
                ;if type(e) typeof SIntType : [emit-as-type(args(e)[0],type(e)) " >>> " consts(e)[0]]
                ;else : [emit-as-type(args(e)[0],type(e)) " >> " consts(e)[0]]
             NEG-OP : ["-{" emit-as-type(args(e)[0],type(e)) "}"]
-- 
cgit v1.2.3