mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
8e0ee6599c
temp if the original temp was marked as ti_const, and the new parameter
gets modified (mantis #30015)
git-svn-id: trunk@34289 -
39 lines
794 B
ObjectPascal
39 lines
794 B
ObjectPascal
program project1;
|
|
|
|
{$mode objfpc}
|
|
|
|
{$Inline On} // inline must be turned on for both methods
|
|
type
|
|
TTest = object // both methods must be inside of object
|
|
procedure ModifyValue(ValueModify: Int32); inline;
|
|
procedure SetKey(const ValueConst: Int32); inline;
|
|
end;
|
|
|
|
procedure TTest.ModifyValue(ValueModify: Int32);
|
|
begin
|
|
ValueModify := 1;
|
|
end;
|
|
|
|
procedure TTest.SetKey(const ValueConst: Int32);
|
|
var
|
|
OriginalValue: Int32;
|
|
begin
|
|
OriginalValue := ValueConst;
|
|
ModifyValue(ValueConst);
|
|
WriteLn('Current Value: ', ValueConst); //Outputs 1
|
|
WriteLn('Original Value: ', OriginalValue); //Outputs 2
|
|
if (OriginalValue<>2) or
|
|
(ValueConst<>2) then
|
|
halt(1);
|
|
end;
|
|
|
|
var
|
|
TestObj: TTest;
|
|
i: Int32;
|
|
|
|
begin
|
|
i := 1;
|
|
TestObj.SetKey(i + 1);
|
|
end.
|
|
|