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 10.66.158.193 with SMTP id ww1mr12528553pab.12.1407501991319;
 Fri, 08 Aug 2014 05:46:31 -0700 (PDT)
X-Received: by 10.140.87.67 with SMTP id q61mr276230qgd.1.1407501991262; Fri,
 08 Aug 2014 05:46:31 -0700 (PDT)
Path: 
 border1.nntp.dca1.giganews.com!nntp.giganews.com!h18no16159011igc.0!news-out.google.com!j6ni34289qas.0!nntp.google.com!j15no5490539qaq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 8 Aug 2014 05:46:31 -0700 (PDT)
In-Reply-To: <94976f36-e795-4899-91fa-219481eaaf09@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=69.54.29.134;
 posting-account=YMGx1QoAAABkILZRyRBIC1qEtDwG1Rz1
NNTP-Posting-Host: 69.54.29.134
References: <94976f36-e795-4899-91fa-219481eaaf09@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <176eedc4-03a8-440a-a9b8-9fb1a5b02545@googlegroups.com>
Subject: Re: ARM Compiler Locks Up on Declaration of Timing_Event
From: williamjthomas7777@gmail.com
Injection-Date: Fri, 08 Aug 2014 12:46:31 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: number.nntp.dca.giganews.com comp.lang.ada:188250
Date: 2014-08-08T05:46:31-07:00
List-Id: <comp.lang.ada>

On Friday, August 8, 2014 7:21:39 AM UTC-4, williamjt...@gmail.com wrote:
> When I take the LED demo and add this package to it and then "with" it from the main program the compiler locks up (starts to compile, never returns). I'm not using a local timer which is restricted. Please show me the error its choking on.
> 
> 
> 
> with Ada.Real_Time.Timing_Events; 
> 
> use Ada.Real_Time.Timing_Events;
> 

Too many late nights! Forget the post.

> 
> 
> package Timer_Pack is
> 
> 
> 
>    Event_1 : Timing_Event;
> 
>    
> 
>    R1 : constant Integer := 500;
> 
> 
> 
>   procedure Initialize;
> 
> 
> 
>    protected Timers is
> 
>      procedure Rate_1 ( Event : in out Timing_Event );
> 
>    private
> 
>      State : Boolean := False;
> 
>    end Timers;
> 
> 
> 
> end Timer_Pack;
> 
> 
> 
> with LEDs; use LEDs;
> 
> 
> 
> package body Timer_Pack is
> 
> 
> 
>    procedure Initialize is
> 
>    begin
> 
>      Set_Handler(Event1,Milliseconds(R1),Rate_1'Access);
> 
>    end Initialize;
> 
> 
> 
>     protected body Timers is
> 
> 
> 
>      procedure Rate_1 ( Event : in out Timing_Event ) is
> 
>      begin
> 
>         State := not State;
> 
>         if 
> 
>           State 
> 
>         then 
> 
>           On(Green); 
> 
>         else 
> 
>           Off(Green); 
> 
>         end if;
> 
>         Set_Handler(Event,Milliseconds(R1),Current_Event_Handler(Event));
> 
>      end Rate_1;
> 
> 
> 
>    end Timers;
> 
> 
> 
> end Timer_Pack;