comp.lang.ada
 help / color / mirror / Atom feed
From: T.Cornah@shef.ac.uk (A J Cornah)
Subject: tasking under ms-dos
Date: 1997/10/24
Date: 1997-10-24T00:00:00+00:00	[thread overview]
Message-ID: <62q5np$k6p$1@bignews.shef.ac.uk> (raw)


Probably a naive question but I would appreciate help.
I have obtained and installed the latest ez2load which gives me GNAT 3.07
and the documentation claims " .. It now includes tasking ... " but when I
try even a simple program like the one below which should interleaf As and Bs
I get all the As first then the Bs then my program freezes.

I used ADACAPS to compile it.

Thanks in advance.

tony


WITH TEXT_IO; USE TEXT_IO;

PROCEDURE   Ex2a   IS

  -- This is the worked answer to
  --     ACS313 Supervised Practical Sessions Example 2 a)
  
    c: CHARACTER;

TASK ProcedureA IS
    ENTRY Start;
END ProcedureA;

TASK ProcedureB IS
    ENTRY Start;
END ProcedureB;

TASK BODY ProcedureA IS
    count: integer;
BEGIN
    ACCEPT Start;
    FOR count IN 1..10 LOOP
        Delay 1.0;
        PUT("A");
    END LOOP;
    PUT_LINE(" ");
END ProcedureA;

TASK BODY ProcedureB IS
    count: integer;
BEGIN
    ACCEPT Start;
    FOR count IN 1..5 LOOP
        Delay 1.5;
        PUT("B");
    END LOOP;
    PUT_LINE(" ");
END ProcedureA;

BEGIN
    ProcedureA.Start;
    ProcedureB.Start;
END Ex2a;
\x1a





             reply	other threads:[~1997-10-24  0:00 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1997-10-24  0:00 A J Cornah [this message]
1997-10-24  0:00 ` tasking under ms-dos Larry Coon
1997-10-24  0:00   ` A J Cornah
1997-10-24  0:00     ` Larry Coon
1997-10-25  0:00 ` Jerry van Dijk
1997-10-25  0:00   ` A J Cornah
     [not found] <none>
1997-10-26  0:00 ` Jerry van Dijk
1997-10-27  0:00   ` A J Cornah
1997-10-27  0:00     ` Robert Dewar
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox