Skip to content

Commit e8910fa

Browse files
committed
Exclude func symbols from E type prefix rule
1 parent 3109f2e commit e8910fa

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

Source/SourceUtils/dwsGabelouStdRules.pas

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -400,6 +400,8 @@ procedure TGR_TypesNaming.EvaluateSymbol(const aSymbolList : TSymbolPositionList
400400
isException := False;
401401

402402
typeSymbol := TTypeSymbol(aSymbolList.Symbol).UnAliasedType;
403+
if typeSymbol is TFuncSymbol then Exit;
404+
403405
if typeSymbol is TClassSymbol then begin
404406
classSymbol := TClassSymbol(typeSymbol);
405407
while classSymbol.Parent <> nil do begin

0 commit comments

Comments
 (0)