comp.lang.ada
 help / color / mirror / Atom feed
* PL/1 a dead language?
@ 1988-05-25  9:40 vaguely human
  1988-05-30 18:38 ` Steven Deller
  0 siblings, 1 reply; 3+ messages in thread
From: vaguely human @ 1988-05-25  9:40 UTC (permalink / raw)


Ok, so this has nothing to do with PL/1.  Got you to look at least.

Anyone have any negative experiences with the TeleGen 2.15 (I think)
compiler for the Sun 3?  We are engaged in a fault tolerant software
experiment, and are using the TeleGen compiler.  Our programs have
many concurrent tasks, and it seems that the TeleGen compiler is way
faulty.  For one thing, it seems that guards (i.e. when statements)
on accept statements simply do not get evaluated sometimes.

I enclose a short sample program.

-------------------- START OF PROGRAM ---------------------

with text_io; use text_io;

procedure blah is

    task bogus is
	entry maybe;
    end bogus;

    task body bogus is
	x : integer := 1;

    begin
	loop
	    if x > 10 then
		put_line ("x>10");
	    end if;
	    select
		when (x > 10) =>
		    accept maybe do
			put_line ("we made it");
		    end;
		    exit;
	    or				-- XXX
		delay 1.0;
		x := x + 1;
		put_line ("can't accept yet");
	    end select;
	end loop;
    end bogus;

begin
    bogus.maybe;
end blah;

-------------------- END OF PROGRAM -----------------------

With the TeleGen compiler, the program prints "we made it" then exits.
This does not seem correct to me.  When I compile this with the Verdix
Ada compiler on our Vax, the program prints "==> DEADLOCK! <== No tasks
to run, no delays waiting."  If I change the "or" marked with "XXX" to
an "else," the programs works "as expected" for both compilers, i.e.
it prints "can't accept yet" 9 times, then prints "we made it" and exits.

Anyone have any ideas?  Please email unless you feel it would be of
interest to the group as a whole.  Many thanks in advance!

P.S. If you want to try the program on your compiler, I'd be interested
to know what happens.

	     "The stuff that undermines the best of me and you"

It was a pleasure |	        Dave Stein	      | on my back.  Just a
to meet you, you  |     angst%csilvax@hub.ucsb.edu    | pleasure to meet you,
slapped me right  |  ...ucbvax!ucsbcsl!csilvax!angst  | you got it almost exact.

^ permalink raw reply	[flat|nested] 3+ messages in thread
* Re: PL/1 a dead language?
@ 1988-06-01 17:45 Ted J. Nothorn @spot
  0 siblings, 0 replies; 3+ messages in thread
From: Ted J. Nothorn @spot @ 1988-06-01 17:45 UTC (permalink / raw)




Concerning the recent item from Dave Stein: 


>With the TeleGen compiler, the program prints "we made it" then exits.
>This does not seem correct to me.  When I compile this with the Verdix
>Ada compiler on our Vax, the program prints "==> DEADLOCK! <== No tasks
>to run, no delays waiting."  If I change the "or" marked with "XXX" to
>an "else," the programs works "as expected" for both compilers, i.e.
>it prints "can't accept yet" 9 times, then prints "we made it" and exits.

>Anyone have any ideas?  Please email unless you feel it would be of
>interest to the group as a whole.  Many thanks in advance!


Thanks to Mr Deller for a **MOST** appropriate response.

Dave Stein is indeed running under an outdated environment. He is
using version 1.0 of the TeleGen2 Sun Ada compiler, an early
beta release which has been replaced by the current release, version 
1.2 TeleGen2 Sun Ada compiler.

The particular problem that Dave was referring to here is a known bug
with the early beta release version of the compiler. This bug has been
fixed in the current released version of TeleGen2 Sun Ada 1.2.
The particular test that was posted has been run on version 1.2 and
PRODUCES CORRECT RESULTS.

I would like to reiterate Mr Deller's encouragement to contact the
vendor with specific problems you are having with their product. This
is the quickest and most effective means of getting **ACCURATE**
information about the product while avoiding the waste of time and
effort of many on the net.

Ted Nothorn
TeleSoft Customer Support
(619) 457-2700

^ permalink raw reply	[flat|nested] 3+ messages in thread
end of thread, other threads:[~1988-06-01 17:45 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1988-05-25  9:40 PL/1 a dead language? vaguely human
1988-05-30 18:38 ` Steven Deller
  -- strict thread matches above, loose matches on Subject: below --
1988-06-01 17:45 Ted J. Nothorn @spot

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