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

tosunits: fix a bug in objc_find

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-08 14:49:50 +01:00 committed by Charlie Balogh
parent 0ad2150457
commit d06ab24389
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/tosunits/src/gem.pas
View File

@ -468,7 +468,7 @@ function objc_find(ob_ftree: AESTreePtr;
ob_fstartob, ob_fdepth, ob_fstartob, ob_fdepth,
ob_fmx, ob_fmy: smallint): smallint; ob_fmx, ob_fmy: smallint): smallint;
begin begin
objc_find:=aes.objc_find(@ob_ftree[0], ob_fstartob, ob_fdepth, ob_fmx, ob_fmx); objc_find:=aes.objc_find(@ob_ftree[0], ob_fstartob, ob_fdepth, ob_fmx, ob_fmy);
end; end;
function objc_offset(ob_oftree: AESTreePtr; function objc_offset(ob_oftree: AESTreePtr;