CONTR47@NOSC-TECR.ARPA.UUCP (01/06/87)
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)
-------