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:78c:: with SMTP id f134mr1179523itf.30.1551388761740;
        Thu, 28 Feb 2019 13:19:21 -0800 (PST)
X-Received: by 2002:a9d:5889:: with SMTP id x9mr1155006otg.109.1551388761549;
 Thu, 28 Feb 2019 13:19:21 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.166.216.MISMATCH!y42no5730ita.0!news-out.google.com!v188ni23itb.0!nntp.google.com!y42no5728ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 28 Feb 2019 13:19:21 -0800 (PST)
In-Reply-To: <q599k3$1t6e$1@gioia.aioe.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=149.32.224.35;
 posting-account=Qh2kiQoAAADpCLlhT_KTYoGO8dU3n4I6
NNTP-Posting-Host: 149.32.224.35
References: <q599k3$1t6e$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <adf615d1-d250-4962-a504-1b44dedf2d9f@googlegroups.com>
Subject: Re: Gnat Problem - Freezing too soon
From: Anh Vo <anhvofrcaus@gmail.com>
Injection-Date: Thu, 28 Feb 2019 21:19:21 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:55722
Date: 2019-02-28T13:19:21-08:00
List-Id: <comp.lang.ada>

On Thursday, February 28, 2019 at 10:34:46 AM UTC-8, russ lyttle wrote:
> Example from the bookAnalysable Real-Time Systems :
> 
> 1  package Environment_Monitor.Ch4_Status is --Protected
> 2    protected type Methane_Agent (Ceiling : Priority)
> 3     with Priority => Ceiling
> 4       is new CH4_Safety
> 5    with
> 6      overriding function Check_Safe return Methane_Status;
> 7      overriding procedure Set_Safety (M : Methane_Status);
> 8    private
> 9       Current_Status : Methane_Status := Motor_Unsafe;
> 10   end Methane_Agent;
> 11 end Environment_Monitor.Ch4_Status;
> 
> Gnat complains that Methane_Agent is frozen at line 2, and line 3 is 
> trying to change an attribute after being frozen.
 
I do not have this book. Could you post a minimally compile-able codes if not completed ones.

Anh Vo