Browse Source

* StabsFunctionRelative initialization hopefully fixed

git-svn-id: trunk@9810 -
Tomas Hajny 17 years ago
parent
commit
03de80785d
2 changed files with 2 additions and 4 deletions
  1. 2 1
      rtl/inc/exeinfo.pp
  2. 0 3
      rtl/inc/lineinfo.pp

+ 2 - 1
rtl/inc/exeinfo.pp

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

+ 0 - 3
rtl/inc/lineinfo.pp

@@ -75,9 +75,6 @@ begin
   result:=false;
   if staberr then
     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
     exit;
   StabsFunctionRelative := E.FunctionRelative;