diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-19 04:59:59 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-19 04:59:59 +0100 |
commit | 0748a4f0573dd6fa41c3cbf4675618a8017b48eb (patch) | |
tree | e5fb78c9ab416111e778a02fcd5ec529ccc13ae6 /src/ortho/mcode | |
parent | 86773563f0c689f97c1c1c647757bb9bd8341e4f (diff) | |
download | ghdl-0748a4f0573dd6fa41c3cbf4675618a8017b48eb.tar.gz ghdl-0748a4f0573dd6fa41c3cbf4675618a8017b48eb.tar.bz2 ghdl-0748a4f0573dd6fa41c3cbf4675618a8017b48eb.zip |
Fix constraint error for large number of local symbols.
Diffstat (limited to 'src/ortho/mcode')
-rw-r--r-- | src/ortho/mcode/binary_file.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ortho/mcode/binary_file.adb b/src/ortho/mcode/binary_file.adb index e135b3cbf..7d8b9348a 100644 --- a/src/ortho/mcode/binary_file.adb +++ b/src/ortho/mcode/binary_file.adb @@ -594,9 +594,9 @@ package body Binary_File is begin if S_Local (Sym) then N := 10; - for I in 3 .. 8 loop + for I in 1 .. 8 loop if Get_Number (Sym) < N then - return I; + return I + 2; end if; N := N * 10; end loop; |