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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a24:5f93:: with SMTP id r141mr1787332itb.4.1550825761335;
        Fri, 22 Feb 2019 00:56:01 -0800 (PST)
X-Received: by 2002:a9d:da3:: with SMTP id 32mr27210ots.3.1550825760766; Fri,
 22 Feb 2019 00:56:00 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!weretis.net!feeder6.news.weretis.net!4.us.feeder.erje.net!feeder.erje.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!y42no75393ita.0!news-out.google.com!d79ni148itc.0!nntp.google.com!y22no75643ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 22 Feb 2019 00:56:00 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a01:c50e:ac00:b900:11c1:abd1:8248:d5e7;
 posting-account=C8J7NQoAAAD_ybGY7--QIRi6KpLjoH1Z
NNTP-Posting-Host: 2a01:c50e:ac00:b900:11c1:abd1:8248:d5e7
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <87222ca9-1b35-467c-9560-f44bd59e3e55@googlegroups.com>
Subject: Simple 4 lines hang code using Ravenscar. Its this a Gnat bug?
From: Daniel <danielnorberto@gmail.com>
Injection-Date: Fri, 22 Feb 2019 08:56:01 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: reader01.eternal-september.org comp.lang.ada:55624
Date: 2019-02-22T00:56:00-08:00
List-Id: <comp.lang.ada>


Hello,
I found something strange using Ravenscar with Gnat. The code hangs without=
 any explanation when i try to declare a task type...=C2=A1even if i dont u=
se any variable of this type!!. If i quit the Ravenscar pragma it works wel=
l. This is the code:

--MAIN PROCEDURE
with tmr;
with ada.Text_IO; use ada.Text_IO;
procedure main is
begin
   put_line("Let's hang..");
end main;

--- TMR.ADS FILE
pragma Profile (Ravenscar);
package Tmr is
   task type K_Timer is
   end K_Timer;
end Tmr;

-- TMR.ADB FILE
package body Tmr is
   task body K_Timer  is
   begin
     null;
   end K_Timer;
end Tmr;


Im using GNAT GPL 2017 for windows.=20
Thank you and best regards.