diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-31 18:47:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-31 18:47:55 +0200 |
| commit | eaae9cb33f67aa6cf230e345724511b4b4d5c9cf (patch) | |
| tree | 7955374b9cb1f4f4371b6c8aea457455adead832 /src/synth | |
| parent | 84a5ac49cf88e8c25b0e492a419906eaef56df86 (diff) | |
| download | ghdl-eaae9cb33f67aa6cf230e345724511b4b4d5c9cf.tar.gz ghdl-eaae9cb33f67aa6cf230e345724511b4b4d5c9cf.tar.bz2 ghdl-eaae9cb33f67aa6cf230e345724511b4b4d5c9cf.zip | |
netlists-dump: shorten UB32 constants.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/netlists-dump.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 7bde0be81..dc1ca9a0c 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -470,7 +470,11 @@ package body Netlists.Dump is Put_Width (W); Put ("'uh"); V := Get_Param_Uns32 (Inst, 0); - I := (Natural (W) + 3) / 4; + if W >= 32 then + I := 8; + else + I := (Natural (W) + 3) / 4; + end if; while I > 0 loop I := I - 1; Put (Xdigits (Shift_Right (V, I * 4) and 15)); |