mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Free Pascal 3.2.0 support

Browse source
This commit is contained in:
Alexander Koblov 2018-08-23 18:10:00 +00:00
commit db99ceed38
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/uformcommands.pas
View file

@ -496,16 +496,16 @@ type
var
methodtable : pmethodnametable;
i : dword;
vmt : tclass;
vmt : PVmt;
pentry: pmethodnamerec;
CommandRec: PCommandRec;
Command: String;
Action: TContainedAction;
begin
vmt := Instance.ClassType;
vmt := PVmt(Instance.ClassType);
while assigned(vmt) do
begin
methodtable := pmethodnametable((Pointer(vmt)+vmtMethodTable)^);
methodtable := pmethodnametable(vmt^.vMethodTable);
if assigned(methodtable) then
begin
pentry := @methodtable^.entries;
@ -528,7 +528,7 @@ begin
end;
end;
end;
vmt := pclass(pointer(vmt) + vmtParent)^;
vmt := vmt^.vParent;
end;
end;