paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 01:38:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only check for the method if one is given at all (otherwise everything would be skipped)

Browse Source 
git-svn-id: trunk@38115 -
This commit is contained in:
svenbarth 2018-02-04 20:20:32 +00:00
parent 17c010b9a3
commit 2d52536460
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classes.inc
View File

@ -559,7 +559,7 @@ begin
Continue;
end;
{ then check for the method }
if entry^.Method <> aMethod then begin
if Assigned(aMethod) and (entry^.Method <> aMethod) then begin
lastentry := entry;
entry := entry^.Next;
Continue;