From: Lutz Donnerhacke <lutz@iks-jena.de>
Subject: YACB: Protected type and array assignment causes backend failure
Date: Fri, 2 Apr 2004 15:31:08 +0000 (UTC)
Date: 2004-04-02T15:31:08+00:00 [thread overview]
Message-ID: <slrnc6r1ps.42v.lutz@taranis.iks-jena.de> (raw)
$ cat > t.adb <<END
procedure T is
protected type PT(size : Positive) is
entry Copy(Boolean)(data : out String; last : out Natural);
private
mydata : String(1 .. size);
end PT;
protected body PT is
entry Copy(for b in Boolean)(data : out String; last : out Natural)
when True is
mylast : Positive := Natural'Min(data'Length, mydata'Length) - 1;
begin
last := data'First + mylast;
data(data'First .. last) := mydata(1 .. mylast);
end Copy;
end PT;
begin
null;
end T;
END
$ gcc -c t.adb
t.adb: In function t.ptPT.E15b':
t.adb:2: error: prior parameter's size depends on size'
reply other threads:[~2004-04-02 15:31 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox