diff options
Diffstat (limited to 'src/main/stanza/errors.stanza')
| -rw-r--r-- | src/main/stanza/errors.stanza | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/main/stanza/errors.stanza b/src/main/stanza/errors.stanza index d8969dd3..6cdd1dca 100644 --- a/src/main/stanza/errors.stanza +++ b/src/main/stanza/errors.stanza @@ -6,6 +6,7 @@ defpackage firrtl/errors : import firrtl/primops import firrtl/passes import firrtl-main + import bigint ; TODO ; make sure it compiles, write tests, look over code to make sure its right @@ -277,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) < to-long $ 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) |