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

* initialise processaddress for darwin

Browse Source 
git-svn-id: trunk@2485 -
This commit is contained in:
Jonas Maebe 2006-02-08 20:31:45 +00:00
parent d11329f9cd
commit 1e47e5a2db
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/lineinfo.pp
View File

@ -861,6 +861,7 @@ var
mh:MachoHeader; mh:MachoHeader;
i: longint; i: longint;
begin begin
processaddress := 0;
StabsFunctionRelative:=false; StabsFunctionRelative:=false;
LoadMachO32PPC := false; LoadMachO32PPC := false;
blockread (f, mh, sizeof(mh)); blockread (f, mh, sizeof(mh));