Re: Interrupts service

["Marc A. Criley" <mcquad2@earthlink.net>]

What is this program supposed to do?  How does what it is doing differ
from what you expect?  What compiler are you using?  On what platform?

It is much easier to help if you provide that kind of information when
you ask a question like this.

Marc A. Criley
Senior Staff Engineer
Quadrus Corporation
www.quadruscorp.com


Szygula wrote:
> 
> 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