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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!cbatt!ucbvax!NOSC-TECR.ARPA!CONTR47
From: CONTR47@NOSC-TECR.ARPA.UUCP
Newsgroups: comp.lang.ada
Subject: try 2 (oh boy, if the net were a horse we would have to shoot it)
Message-ID: <8701060604.AA23499@ucbvax.Berkeley.EDU>
Date: Mon, 5-Jan-87 18:24:06 EST
Article-I.D.: ucbvax.8701060604.AA23499
Posted: Mon Jan  5 18:24:06 1987
Date-Received: Tue, 6-Jan-87 06:05:25 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
List-Id: <comp.lang.ada>

From:	PONY%"Mailer@NOSC-TECR.ARPA"  5-JAN-1987 14:10
To:	CONTR47
Subj:	[Resent-MM Mail]   Undeliverable message


Date: Mon 5 Jan 87 14:06:55-PST
From: Pony Express Mailer  <Mailer@NOSC-TECR.ARPA>
Subject: Undeliverable message
To: CONTR47@NOSC-TECR.ARPA
Reply-To: <Postmaster@NOSC-TECR.ARPA>

Pony Express was unable to deliver mail to the following recipients:

	info-ada @ USC-ISIF.ARPA

Reason for failure is:

	Unable to connect to host  USC-ISIF.ARPA

Undelivered message follows:

----------------------------------------

Date: Thu 1 Jan 87 08:41:11-PST
From: CONTR47@NOSC-TECR.ARPA
To: info-ada@USC-ISIF.ARPA
Subject: regarding Rick Wilson's elaboration question

  In response to Rick Wilson's question I asked my old and
trusted friend NYU Ada/Ed. The program and output
listing (with all trace switches on) follows. I hope this
helps. P.S. compile+code gen+binding took 3 minutes 20 seconds
on IBM PC/XT (8088 with 4.77 MHz clock).
regards, sam harbaugh
---------------------
NYU Ada/ED-C 1.7  (MS/DOS 3.0)     Thu  01 Jan 1987  11:24:17  PAGE    1





   1:   

   2:   

   3:   with text_io; use text_io;

   4:   with system;

   5:   procedure wilson1 is

   6:     task T is

   7:       pragma PRIORITY( SYSTEM.PRIORITY'last );

   8:     end T;

   9:   

  10:     procedure P;

  11:   

  12:     task body T is

  13:     begin

  14:       PUT_LINE( "task body T has begun executing and will next call P ********" );

  15:       P;

  16:       PUT_LINE( "task body T has received control back from call to P ********" );

  17:     end T;

  18:   

  19:     procedure P is

  20:     begin

  21:       PUT_LINE( "Hi! from procedure P				    ********" );

  22:     end P;

  23:   

  24:   begin -- wilson1

  25:     null;

  26:   end wilson1;

  27:   





    No errors detected

task 0 creating task 1

task 0 activating task 1

calling  (tos 48 -> 52)

returning from  (tos 48)

calling  (tos 48 -> 52)

returning from  (tos 48)

calling  (tos 48 -> 52)

returning from  (tos 48)

calling WILSON1 (tos 48 -> 60)

at line 6 (tos 67)

task 1 creating task 2

at line 10 (tos 67)

task 1 activating task 2

at line 26 (tos 67)

at line 14 (tos 50)

task body T has begun executing and will next call P ********

at line 15 (tos 50)

calling P (tos 50 -> 54)

at line 21 (tos 61)

Hi! from procedure P				    ********

at line 22 (tos 61)

returning from P (tos 50)

at line 16 (tos 50)

task body T has received control back from call to P ********

at line 17 (tos 50)

task 2 terminating

returning from WILSON1 (tos 48)


-------