mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
c6733ed9a5
can create ambiguities for the parser in case the field names also exist
as modifiers (TP- and Delphi-compatible, mantis #13971) + tests
* fixed tests that broke because of this change
git-svn-id: trunk@13334 -
47 lines
636 B
ObjectPascal
47 lines
636 B
ObjectPascal
program bug;
|
|
|
|
{$MODE OBJFPC} {$H+}
|
|
{$INLINE ON}
|
|
|
|
uses
|
|
SysUtils, Classes;
|
|
|
|
type
|
|
TBug = class
|
|
protected
|
|
fL: longword;
|
|
function InlinedMethod : longword; inline;
|
|
public
|
|
procedure Method1(var Buf);
|
|
procedure Method2;
|
|
end;
|
|
|
|
function TBug.InlinedMethod : longword; inline;
|
|
begin
|
|
Method1(Result);
|
|
end;
|
|
|
|
procedure TBug.Method2;
|
|
var aValue: longword;
|
|
begin
|
|
aValue := InlinedMethod;
|
|
fL:=aValue;
|
|
end;
|
|
|
|
procedure TBug.Method1(var Buf);
|
|
type
|
|
plongword=^longword;
|
|
begin
|
|
plongword(@buf)^:=$12345678;
|
|
end;
|
|
|
|
var
|
|
b: tbug;
|
|
begin
|
|
b:=tbug.create;
|
|
b.method2;
|
|
if (b.fl<>$12345678) then
|
|
halt(1);
|
|
b.free;
|
|
end.
|