Re: no crash dump ?

[Bj�rn Lundin <bjorn.lundin@swipnet.se>]

On Thu, 07 Mar 2002 18:37:36 -0600
sk <noname@myob.com> wrote:

> Firstly, wont compile without a line adding a  definition for "b"

How embarrissing , I sent modified code. Below is what i meant to send

> But, the real issue is where are you actually
> trying to write data to the "Joystick" ?
No read from it, putline was for print on screen

Thanks for suggetions
/Bj�rn


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;