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

* fixed FindSectionMachO32PPC() return value

Browse Source 
git-svn-id: trunk@10248 -
This commit is contained in:
Jonas Maebe 2008-02-08 14:06:31 +00:00
parent 70a6eeaa16
commit 521b5d88ff
1 changed files with 4 additions and 2 deletions

6
rtl/inc/exeinfo.pp
View File

@ -845,8 +845,9 @@ function FindSectionMachO32PPC(var e:TExeFile;const asecname:string;var secofs,s
var
i: longint;
block:cmdblock;
symbolsSeg: symbSeg;
symbolsSeg: symbSeg;
begin
FindSectionMachO32PPC:=false;
seek(e.f,e.sechdrofs);
for i:= 1 to e.nsects do
begin
@ -859,13 +860,14 @@ begin
secofs:=symbolsSeg.symoff;
{ the caller will divide again by sizeof(tstab) }
seclen:=symbolsSeg.nsyms*sizeof(tstab);
FindSectionMachO32PPC:=true;
end
else if asecname='.stabstr' then
begin
secofs:=symbolsSeg.stroff;
seclen:=symbolsSeg.strsize;
FindSectionMachO32PPC:=true;
end;
FindSectionMachO32PPC:=true;
exit;
end;
Seek(e.f, FilePos (e.f) + block.cmdsize - sizeof(block));