From 7646c2e3edf90ea13a83b76c97f35877263c5e63 Mon Sep 17 00:00:00 2001
From: Adam Izraelevitz
Date: Wed, 29 Jul 2015 15:00:37 -0700
Subject: Finished supporting Chisel 2.0 Ref Chip

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

(limited to 'src/main/stanza/errors.stanza')

diff --git a/src/main/stanza/errors.stanza b/src/main/stanza/errors.stanza
index 80ad3e56..6cdd1dca 100644
--- a/src/main/stanza/errors.stanza
+++ b/src/main/stanza/errors.stanza
@@ -278,7 +278,7 @@ public defn check-high-form (c:Circuit) -> Circuit :
                (e) : add(errors,InvalidIndex(info))
          (e:DoPrim) : check-high-form-primop(e,errors,info)
          (e:UIntValue) :
-            if value(e) < BigIntLit("0") : add(errors,NegUInt(info))
+            if value(e) < BigIntLit("h0",length(value(e))) : add(errors,NegUInt(info))
          (e) : false
       map(check-high-form-w{info,_:Width},e)
       map(check-high-form-t{info,_:Type},e)
-- 
cgit v1.2.3