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

* fix for OS/2 hopefully

Browse Source
This commit is contained in:
pierre 2000-03-23 22:00:08 +00:00
parent edcf10f5c2
commit 799ed3311f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/lineinfo.pp
View File

@ -34,6 +34,9 @@ const
N_IncludeFile = $84;
maxstabs = 40; { size of the stabs buffer }
{ GDB after 4.18 uses offset to function begin
in text section but OS/2 version still uses 4.16 PM }
StabsFunctionRelative : boolean = true;
type
pstab=^tstab;
@ -316,6 +319,7 @@ begin
(* but it seems to be correct. :-) - TH *)
StabCnt := AoutHeader.SymbSize div SizeOf (TStab);
StabStrOfs := StabOfs + AoutHeader.SymbSize;
StabsFunctionRelative:=false;
LoadEMXaout := (StabOfs <> -1) and (StabStrOfs <> -1);
end;
end;
@ -502,7 +506,8 @@ begin
N_DataLine,
N_TextLine :
begin
inc(stabs[i].nvalue,lastfunc.nvalue);
if (stabs[i].ntype=N_TextLine) and StabsFunctionRelative then
inc(stabs[i].nvalue,lastfunc.nvalue);
if (stabs[i].nvalue<=addr) and
(stabs[i].nvalue>linestab.nvalue) then
begin
@ -611,7 +616,10 @@ finalization
end.
{
$Log$
Revision 1.6 2000-03-19 18:10:41 hajny
Revision 1.7 2000-03-23 22:00:08 pierre
* fix for OS/2 hopefully
Revision 1.6 2000/03/19 18:10:41 hajny
+ added support for EMX
Revision 1.5 2000/02/09 16:59:30 peter
@ -629,4 +637,4 @@ end.
Revision 1.1 2000/02/06 17:19:22 peter
* lineinfo unit added which uses stabs to get lineinfo for backtraces
}
}