From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7e7f7973df7202d0
X-Google-Attributes: gid103376,public
From: T.Cornah@shef.ac.uk (A J Cornah)
Subject: tasking under ms-dos
Date: 1997/10/24
Message-ID: <62q5np$k6p$1@bignews.shef.ac.uk>#1/1
X-Deja-AN: 284710569
Organization: AC&SE Sheffield
Newsgroups: comp.lang.ada
Date: 1997-10-24T00:00:00+00:00
List-Id: <comp.lang.ada>


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;