Explorar el Código

* fixed netware compilation

git-svn-id: trunk@2514 -
Jonas Maebe hace 19 años
padre
commit
79403454c5
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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 }
   { 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;