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=-1.9 required=5.0 tests=BAYES_00,WEIRD_PORT
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!news.redatomik.org!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!85.12.16.69.MISMATCH!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer03.am4!peer.am4.highwinds-media.com!news.highwinds-media.com!fx16.am4.POSTED!not-for-mail
Subject: Re: Yet another gnat bug
Newsgroups: comp.lang.ada
References: <987a6ff2-32d0-45a0-b90a-be9fbf1ff47b@googlegroups.com>
 <uM25E.171780$592.61943@fx16.am4>
 <048a6dce-ee26-4850-a1db-980fef58e8a2@googlegroups.com>
 <a50c8750-a8c1-4de6-be1e-44d3b12809d8@googlegroups.com>
From: Per Sandberg <per.s.sandberg@bahnhof.se>
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101
 Thunderbird/60.4.0
MIME-Version: 1.0
In-Reply-To: <a50c8750-a8c1-4de6-be1e-44d3b12809d8@googlegroups.com>
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Language: en-US
Content-Transfer-Encoding: 7bit
Message-ID: <2qb5E.172675$592.78651@fx16.am4>
X-Complaints-To: abuse@usenet.se
NNTP-Posting-Date: Sat, 02 Feb 2019 07:13:02 UTC
Organization: usenet.se
Date: Sat, 2 Feb 2019 08:13:02 +0100
X-Received-Bytes: 2764
X-Received-Body-CRC: 1908431120
Xref: reader01.eternal-september.org comp.lang.ada:55431
Date: 2019-02-02T08:13:02+01:00
List-Id: <comp.lang.ada>

I did put some effort to reduce the problem and the workaround is quite 
simple, in file "wann-nets.ads:69" mark the procedure Del_Neuron as 
abstract instead of null.

Here is the small reproducible i ended up with after stripping the code:
-----------------------------------------------------------------
pragma Warnings (Off);
generic
     type Real is digits <>;
package wann is
end Wann;
--
generic
package Wann.Neurons is
end Wann.Neurons;
---
generic
package Wann.Nets is
    type NNet_Interface is limited interface;
    procedure Del (Net : in out NNet_Interface) is null;--  Fails
    --procedure Del (Net : in out NNet_Interface) is abstract;--  Works
    type Cached_NNet_Interface is limited interface and NNet_Interface
end Wann.Nets;
--
generic
package wann.nets.vectors is
     type Proto_NNet is abstract new NNet_Interface with NULL record;
     type Cached_Proto_NNet is abstract new Proto_NNet and 
Cached_NNet_Interface with null record;
end wann.nets.vectors;
--
pragma Warnings (Off);
with wann.nets.vectors;
procedure run_customNN is
     package PW is new wann(Real => Float);
     package PNet   is new PW.nets;
     package PNetV  is new PNet.vectors;
begin
    null;
end Run_CustomNN;
-----------------------------------------------------------------
/P

On 2/1/19 10:36 PM, George Shapovalov wrote:
> On Friday, February 1, 2019 at 10:34:12 PM UTC+1, George Shapovalov wrote:
>> Just fixed this, literally a minute ago. You can sync again and retry. That was some stale path I forgot to remove. Fixed now..
> 
> Please also run "mkdir -p obj/dbg" (needs done one time only) if compiler complains about this obj/dbg not existing (see my message above about .gitignore details).
>