mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
497df2bb37
different from the native size, or when reading enums (because those
are handled via a temp internally -> regular var parameter checks
were not automatically performed)
git-svn-id: trunk@7398 -
35 lines
453 B
ObjectPascal
35 lines
453 B
ObjectPascal
{ %fail }
|
|
program BugTest;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TTest = class
|
|
private
|
|
FTest: Byte;
|
|
procedure SetTest(const Value: Byte);
|
|
public
|
|
property Test: Byte read FTest write SetTest;
|
|
end;
|
|
|
|
procedure p(var i : byte);
|
|
begin
|
|
end;
|
|
|
|
{ TTest }
|
|
|
|
procedure TTest.SetTest(const Value: Byte);
|
|
begin
|
|
Writeln('SetTest called!');
|
|
FTest := Value;
|
|
end;
|
|
|
|
var
|
|
Test: TTest;
|
|
|
|
begin
|
|
Test := TTest.Create;
|
|
Test.Test := 2;
|
|
ReadLn(Test.Test);
|
|
end.
|