Interrupts service

["Szygula" <szygula@szygula.prv.pl>]

WHAT'S WRONG IN THIS PROGRAM ???


with Text_Io, Ada.Calendar, Ada.Integer_Text_Io;
use Text_Io, Ada.Calendar, Ada.Integer_Text_Io;
with Ada.Interrupts;
use Ada.Interrupts;

with Ada.Interrupts.Names;
use Ada.Interrupts.Names;
with System; use System;
with system.storage_elements; use system.storage_elements;


procedure program is

type Parameterless_Handler is access protected procedure;


protected type Sygnal(p:Interrupt_ID)is

procedure Steruj;
pragma Interrupt_handler(Steruj);
pragma Attach_Handler(Steruj,p);
end Sygnal;


protected body sygnal is

procedure Steruj is
begin
Put("przerwanie");
end steruj;

end sygnal;

begin
null;

end program;


I NEED INFORMATION OF INTERRUPTS IN ADA95.
thanks.

szygula@szygula.prv.pl
POLAND