From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_00,PDS_OTHER_BAD_TLD
	autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED.DFxaDADwSkn+6wW9Ah21PA.user.gioia.aioe.org!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: ada-mode: Debian sid compilation failure
Date: Wed, 25 Mar 2020 20:03:14 +0000
Organization: Aioe.org NNTP Server
Message-ID: <lyv9mskxrx.fsf@pushface.org>
References: <87pnd4bqji.fsf@gaheris.vdwege.eu>
	<5811e1d3-d536-4998-a95c-c3cc3b42d14a@googlegroups.com>
NNTP-Posting-Host: DFxaDADwSkn+6wW9Ah21PA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (darwin)
Cancel-Lock: sha1:Lig9I9Wug8hSmkBluasHIh++Ijg=
X-Notice: Filtered by postfilter v. 0.9.2
Xref: reader01.eternal-september.org comp.lang.ada:58243
Date: 2020-03-25T20:03:14+00:00
List-Id: <comp.lang.ada>

Per Jakobsen <pdj@knaldgas.dk> writes:

> søndag den 22. marts 2020 kl. 12.10.03 UTC+1 skrev Mart van de Wege:
>> Since gnat_util lives in gnatprj on Debian, I patched that in
>> ada_mode_wisi_parse.gpr.gp and build *seems* to work fine, until it
>> errors out with:
>> 
>>    compilation of wisitoken-parse-lr.adb failed
>
> Yep, drops out there with me as well.
>
> Although, before that, mine complains about:
> sal-gen_bounded_definite_stacks.ads:101:06: visibility of aspect for
> "Stack" changes after freeze point
> sal-gen_bounded_definite_stacks.ads:101:27: Meaning of "Top" differs
> because of declaration at line 96
>
> GPRBUILD Community 2019 (20190517) (x86_64-pc-linux-gnu)
> GNATMAKE 9.3.0

The messages on :101 are a problem with GCC 9. I don't have a
compilation to hand, but the reason for the overall failure is likely
that the compilation is done with -gnatwe (treat warnings as errors).

This is the current version of the code:

   type Stack (Size : Size_Type) is tagged record
      Top  : Base_Peek_Type := Invalid_Peek_Index; -- empty
      Data : Element_Array (1 .. Size);
      --  Top of stack is at Data (Top).
      --  Data (1 .. Top) has been set at some point.
   end record with
     Dynamic_Predicate => Stack.Top in 0 .. Stack.Size;