Sfoglia il codice sorgente

* fixed netware compilation

git-svn-id: trunk@2514 -
Jonas Maebe 19 anni fa
parent
commit
79403454c5
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      rtl/inc/lineinfo.pp

+ 2 - 2
rtl/inc/lineinfo.pp

@@ -68,7 +68,7 @@ var
   filestab   : tstab;   { stab with current file info }
   filestab   : tstab;   { stab with current file info }
   { value to subtract to addr parameter to get correct address on file }
   { value to subtract to addr parameter to get correct address on file }
   { this should be equal to the process start address in memory        }
   { this should be equal to the process start address in memory        }
-  processaddress : cardinal;
+  processaddress : ptruint;
 
 
 
 
 
 
@@ -1097,7 +1097,7 @@ var
 begin
 begin
   { reset to prevent infinite recursion if problems inside the code PM }
   { reset to prevent infinite recursion if problems inside the code PM }
   {$ifdef netware}
   {$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}
   {$endif}
   Store:=BackTraceStrFunc;
   Store:=BackTraceStrFunc;
   BackTraceStrFunc:=@SysBackTraceStr;
   BackTraceStrFunc:=@SysBackTraceStr;