Ver código fonte

* initialise processaddress for darwin

git-svn-id: trunk@2485 -
Jonas Maebe 19 anos atrás
pai
commit
1e47e5a2db
1 arquivos alterados com 1 adições e 0 exclusões
  1. 1 0
      rtl/inc/lineinfo.pp

+ 1 - 0
rtl/inc/lineinfo.pp

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