paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 14:39:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed netware compilation

Browse Source 
git-svn-id: trunk@2514 -
This commit is contained in:
Jonas Maebe 2006-02-11 08:50:46 +00:00
parent 0b92a85012
commit 79403454c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/lineinfo.pp
View File

@ -68,7 +68,7 @@ var
filestab : tstab; { stab with current file info }
{ value to subtract to addr parameter to get correct address on file }
{ this should be equal to the process start address in memory }
processaddress : cardinal;
processaddress : ptruint;
@ -1097,7 +1097,7 @@ var
begin
{ reset to prevent infinite recursion if problems inside the code PM }
{$ifdef netware}
dec(addr,system.NWGetCodeStart); {we need addr relative to code start on netware}
dec(addr,ptruint(system.NWGetCodeStart)); {we need addr relative to code start on netware}
{$endif}
Store:=BackTraceStrFunc;
BackTraceStrFunc:=@SysBackTraceStr;