TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Classic View

Use Monospaced Font
Show HTML Part by Default
Condense Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender: "Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
From: Fortier Andres <[log in to unmask]>
Date: Thu, 2 Mar 2000 00:26:36 -0300
Content-Type: multipart/alternative; boundary="----=_NextPart_000_000B_01BF83DD.F83076C0"
MIME-Version: 1.0
Reply-To: Fortier Andres <[log in to unmask]>
Parts/Attachments: text/plain (658 bytes) , text/html (4 kB)
HI,
   this is the code I wrote to hook to the keyboard interrupt with an entry call:

task X is
    Entry Foo;
    for Foo use at To_Address(16#9#);
end X;

task Body X is
begin
  loop
    Accept Foo do
       Put_Line("PPPPP");
       end Foo;
  end loop;
end X;

As the LRM said that we sholud provide the interrupt number, I put int. number 9.
(this number would work just fine if you use the setvect function in C)
Now the output I get is PPPPP
                        PPPPP
                        .
                        .
                        .
                        PPPPP
                        PPPPP
and so on.
What is wrong??
By the way, I'm using GW-GNAT 310.

Thanks in advance,
                  Chalito


ATOM RSS1 RSS2