* try 2 (oh boy, if the net were a horse we would have to shoot it)
@ 1987-01-05 23:24 CONTR47
0 siblings, 0 replies; only message in thread
From: CONTR47 @ 1987-01-05 23:24 UTC (permalink / raw)
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
---------------------
\fNYU 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)
-------
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1987-01-05 23:24 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1987-01-05 23:24 try 2 (oh boy, if the net were a horse we would have to shoot it) CONTR47
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox