paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replaced TCmdStrListItem getter function with a property

Browse Source 
git-svn-id: trunk@41906 -
This commit is contained in:
Jonas Maebe 2019-04-20 18:18:07 +00:00
parent 0225a3a39a
commit 33d57ac646
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cclasses.pas
View File

@ -397,7 +397,7 @@ type
constructor Create(const s:TCmdStr); constructor Create(const s:TCmdStr);
destructor Destroy;override; destructor Destroy;override;
function GetCopy:TLinkedListItem;override; function GetCopy:TLinkedListItem;override;
function Str:TCmdStr; {$ifdef CCLASSESINLINE}inline;{$endif} property Str: TCmdStr read FPStr;
end; end;
{ string container } { string container }
@ -2383,12 +2383,6 @@ end;
end; end;
function TCmdStrListItem.Str:TCmdStr;
begin
Str:=FPStr;
end;
function TCmdStrListItem.GetCopy:TLinkedListItem; function TCmdStrListItem.GetCopy:TLinkedListItem;
begin begin
Result:=(inherited GetCopy); Result:=(inherited GetCopy);