diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-10-23 13:25:10 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-11-09 19:37:20 +0000 |
commit | 82ee873033f51e856e69cea95db95e292bd0aea9 (patch) | |
tree | 6c3e27c5a94589b20e72ccb79e96bdb8ed676c51 /src/verilog | |
parent | 9d6979baa0e4b505862bcedee1dfd075f36579c3 (diff) | |
download | vericert-kvx-82ee873033f51e856e69cea95db95e292bd0aea9.tar.gz vericert-kvx-82ee873033f51e856e69cea95db95e292bd0aea9.zip |
Fix printing of negative numbers
Diffstat (limited to 'src/verilog')
-rw-r--r-- | src/verilog/PrintVerilog.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/verilog/PrintVerilog.ml b/src/verilog/PrintVerilog.ml index 0f64066..353bfac 100644 --- a/src/verilog/PrintVerilog.ml +++ b/src/verilog/PrintVerilog.ml @@ -72,7 +72,11 @@ let register a = sprintf "reg_%d" (P.to_int a) (*let literal l = sprintf "%d'd%d" (Nat.to_int l.vsize) (Z.to_int (uvalueToZ l))*) -let literal l = sprintf "32'd%ld" (camlint_of_coqint l) +let literal l = + let l' = camlint_of_coqint l in + if l' < Int32.zero + then sprintf "(- 32'd%ld)" (Int32.neg l') + else sprintf "32'd%ld" l' let rec pprint_expr = function | Vlit l -> literal l |