paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 09:29:07 +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

10
rtl/inc/lineinfo.pp
View File

@ -34,6 +34,9 @@ const
N_IncludeFile = $84; N_IncludeFile = $84;
maxstabs = 40; { size of the stabs buffer } 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 type
pstab=^tstab; pstab=^tstab;
@ -316,6 +319,7 @@ begin
(* but it seems to be correct. :-) - TH *) (* but it seems to be correct. :-) - TH *)
StabCnt := AoutHeader.SymbSize div SizeOf (TStab); StabCnt := AoutHeader.SymbSize div SizeOf (TStab);
StabStrOfs := StabOfs + AoutHeader.SymbSize; StabStrOfs := StabOfs + AoutHeader.SymbSize;
StabsFunctionRelative:=false;
LoadEMXaout := (StabOfs <> -1) and (StabStrOfs <> -1); LoadEMXaout := (StabOfs <> -1) and (StabStrOfs <> -1);
end; end;
end; end;
@ -502,6 +506,7 @@ begin
N_DataLine, N_DataLine,
N_TextLine : N_TextLine :
begin begin
if (stabs[i].ntype=N_TextLine) and StabsFunctionRelative then
inc(stabs[i].nvalue,lastfunc.nvalue); inc(stabs[i].nvalue,lastfunc.nvalue);
if (stabs[i].nvalue<=addr) and if (stabs[i].nvalue<=addr) and
(stabs[i].nvalue>linestab.nvalue) then (stabs[i].nvalue>linestab.nvalue) then
@ -611,7 +616,10 @@ finalization
end. end.
{ {
$Log$ $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 + added support for EMX
Revision 1.5 2000/02/09 16:59:30 peter Revision 1.5 2000/02/09 16:59:30 peter