From 0748a4f0573dd6fa41c3cbf4675618a8017b48eb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 19 Nov 2018 04:59:59 +0100
Subject: Fix constraint error for large number of local symbols.
---
src/ortho/mcode/binary_file.adb | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/ortho')
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;
--
cgit v1.2.3