Re: no crash dump ?

[Jeffrey Carter <jeffrey.carter@boeing.com>]

"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