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