fpc/tests/webtbf/tw20907.pp
Jonas Maebe bacdd8be81 * don't ever mark the function result as vs_initialised, also not when
it is passed as a hidden parameter (mantis #20907)

git-svn-id: trunk@20373 -
2012-02-17 16:25:50 +00:00

17 lines
146 B
ObjectPascal

{ %opt=-vew -Sew }
{ %fail }
type
trec = record
s: set of byte;
end;
function f: trec;
begin
if f.s <>[] then ;
end;
begin
f;
end.