From: sboyd@meridian.COM
Subject: Re: converted types as actual in out parameters
Date: 16 Sep 88 23:48:58 GMT [thread overview]
Message-ID: <8809162348.AA00188@meridian.com> (raw)
Regarding your procedure --
procedure TEST is
a : short_integer;
procedure set_value( value : in out integer ) is
begin
value := 1;
end set_value;
begin
set_value( integer(a) );
if a = 1
then
put_line("This is a Vax-Ada compiler!");
else
put_line("Is this a Verdix Ada compiler?");
end if;
end TEST;
--
Meridian's v2.2 AdaVantage also considers "a = 1" as a true predicate.
Stowe Boyd Meridian Software Systems
Director of Research and Development 23141 Verdugo Drive #105
sboyd%Meridian.COM@ICS.UCI.EDU Laguna Hills CA 92653
714/380-9800
next reply other threads:[~1988-09-16 23:48 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1988-09-16 23:48 sboyd [this message]
-- strict thread matches above, loose matches on Subject: below --
1988-09-17 11:18 converted types as actual in out parameters "Jonathan B. Owen"
1988-09-20 16:05 ` Scott Moody
1988-09-23 15:41 ` Burch Seymour
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox