paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* StabsFunctionRelative initialization hopefully fixed

Browse Source 
git-svn-id: trunk@9810 -
This commit is contained in:
Tomas Hajny 2008-01-20 12:12:01 +00:00
parent 894dc04966
commit 03de80785d
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/exeinfo.pp
View File

@ -1072,6 +1072,8 @@ begin
e.isopen:=true; e.isopen:=true;
// cache filesize // cache filesize
e.size:=filesize(e.f); e.size:=filesize(e.f);
E.FunctionRelative := true;
if ExeProcs.OpenProc<>nil then if ExeProcs.OpenProc<>nil then
result:=ExeProcs.OpenProc(e); result:=ExeProcs.OpenProc(e);
end; end;
@ -1099,4 +1101,3 @@ end;
end. end.


3
rtl/inc/lineinfo.pp
View File

@ -75,9 +75,6 @@ begin
result:=false; result:=false;
if staberr then if staberr then
exit; exit;
{ GDB after 4.18 uses offset to function begin
in text section but OS/2 version still uses 4.16 PM }
E.FunctionRelative := true;
if not OpenExeFile(e,paramstr(0)) then if not OpenExeFile(e,paramstr(0)) then
exit; exit;
StabsFunctionRelative := E.FunctionRelative; StabsFunctionRelative := E.FunctionRelative;