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
X-Google-Thread: 103376,477d2c7239b77805
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-08 14:36:08 PST
Newsgroups: comp.lang.ada
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!cyclone.bc.net!newsswitch.lcs.mit.edu!newsfeed.cwix.com!nntp.abs.net!uunet!dca.uu.net!ash.uu.net!xyzzy!nntp
From: Jeffrey Carter <jeffrey.carter@boeing.com>
Subject: Re: no crash dump ?
X-Nntp-Posting-Host: e246420.msc.az.boeing.com
Content-Type: text/plain; charset=iso-8859-1
Message-ID: <3C893786.12E70BCA@boeing.com>
Sender: nntp@news.boeing.com (Boeing NNTP News Access)
Content-Transfer-Encoding: 8bit
Organization: The Boeing Company
X-Accept-Language: en
References: <20020307215639.37cf3f6d.bjorn.lundin@swipnet.se>
		<mailman.1015547882.32690.comp.lang.ada@ada.eu.org>
 <20020308172207.2a82c68a.bjorn.lundin@swipnet.se>
Mime-Version: 1.0
Date: Fri, 8 Mar 2002 22:13:26 GMT
X-Mailer: Mozilla 4.73 [en]C-CCK-MCD Boeing Kit  (WinNT; U)
Xref: archiver1.google.com comp.lang.ada:20958
Date: 2002-03-08T22:13:26+00:00
List-Id: <comp.lang.ada>

"Bj�rn Lundin" wrote:
> 
> with Text_io; use Text_io;
> with system;
> with GNAT.Traceback.Symbolic;
> 
> procedure interrupt is
> 
>   Joystick_address : system.address := system'to_address(16#0201#);
> 
>   type byte is range 0..255;
>   for byte'size use 8;
>   Joystick : byte;
>   for Joystick'address use Joystick_address;
> 
> begin
>    put_line("Main program started!");
>    loop
>      put_line(byte'image(Joystick));
>      delay 0.2;
>    end loop;
> 
> exception
>   when Event : others =>
>     Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback (Event));
> 
> end interrupt;

You probably want to apply pragma Volatile to Joystick.


-- 
Jeffrey Carter