From 33d57ac646240541aaaed7307758d44eb93ebc7c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Apr 2019 18:18:07 +0000
Subject: [PATCH] * replaced TCmdStrListItem getter function with a property
git-svn-id: trunk@41906 -
---
compiler/cclasses.pas | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas
index e12cb19263..02a5df5f6d 100644
--- a/compiler/cclasses.pas
+++ b/compiler/cclasses.pas
@@ -397,7 +397,7 @@ type
constructor Create(const s:TCmdStr);
destructor Destroy;override;
function GetCopy:TLinkedListItem;override;
- function Str:TCmdStr; {$ifdef CCLASSESINLINE}inline;{$endif}
+ property Str: TCmdStr read FPStr;
end;
{ string container }
@@ -2383,12 +2383,6 @@ end;
end;
- function TCmdStrListItem.Str:TCmdStr;
- begin
- Str:=FPStr;
- end;
-
-
function TCmdStrListItem.GetCopy:TLinkedListItem;
begin
Result:=(inherited GetCopy);