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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6e3cd8a6b7c1d008
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-11-27 12:46:12 PST
Sender: jerry@JVDSYS
Newsgroups: comp.lang.ada
Subject: Re: Error with:   for EntryName use at 16#address#;
References: <SwYL7.8837$qw1.2054447@weber.videotron.net>
 <ulmgsjor6.fsf@gsfc.nasa.gov> <3C03E97E.F91778A9@courriel.polymtl.ca>
From: Jerry van Dijk <jvandyk@attglobal.net>
Date: 27 Nov 2001 21:41:39 +0100
Message-ID: <wkvgfwrloc.fsf@attglobal.net>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Host: 139.92.166.47
X-Trace: 27 Nov 2001 20:42:20 GMT, 139.92.166.47
Organization: Global Network Services - Remote Access Mail & News Services
X-Complaints-To: abuse@prserv.net
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!washdc3-snh1.gtei.net!news.gtei.net!newsfeed.us.prserv.net!prserv.net!news3.prserv.net!139.92.166.47
Xref: archiver1.google.com comp.lang.ada:17063
Date: 2001-11-27T21:41:39+01:00
List-Id: <comp.lang.ada>


Louis Granger <louis.granger@courriel.polymtl.ca> writes:

> Why don't you try this one. It compiles without any error with GNAT 3.13p under
> W2K.

[snip]

>    with Text_IO; with System;
>    with System.Storage_Elements;
>    procedure main is
>    --------TASK-----------
>       task TKeyboard is
>          entry keyp;
>          for Keyp'Address use System.Storage_Elements.To_Address (16#20#);    
>       end TKeyboard;
>    
>       task body TKeyboard is
>       begin
>          loop
>             accept keyp do
>                text_io.put_line("Keypressed (numlock)");
>             end keyp;
>          end loop;
>       end TKeyboard;
>    ------END TASK---------
>    
>    begin
>       null;
>    end main;

Here it results, as expected, in a program error, since there is no
signal 32 in Win32. Maybe you are using the DOS compiler ?

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   home.trouwweb.nl/Jerry