paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 22:31:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* refcount fixed, it is now correctly using the same temp

Browse Source
This commit is contained in:
peter 2004-03-29 14:28:15 +00:00
parent 4c61aa26c4
commit dc67ea9d52
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tw2911.pp
View File

@ -48,19 +48,21 @@ begin
end; end;
begin begin
writeln('All reference counts should be 1 for the following...');
onestring := 'one'; onestring := 'one';
twostring := 'two'; twostring := 'two';
ARecordWithStrings.one := onestring + twostring; ARecordWithStrings.one := onestring + twostring;
twostring := onestring + twostring; twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,1);
{ Here we allocate a temp so refcount will be 2 }
ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings);
twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,2); RefCount(ARecordWithStrings.one,2);
{ Temp is reused, refcount should stay 2 }
ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings); ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings);
twostring := onestring + twostring; twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,3); RefCount(ARecordWithStrings.one,2);
{ Temp is reused, refcount should stay 2 }
ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings); ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings);
twostring := onestring + twostring; twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,4); RefCount(ARecordWithStrings.one,2);
ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings);
twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,5);
end. end.