diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index f14d3a8a15..4e4f3bd730 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -382,8 +382,6 @@ begin
 end;
 
 procedure try_finish_heap_free_todo_list(loc_info: pheap_info);
-var
-  bp: pointer;
 begin
   if loc_info^.heap_free_todo <> nil then
   begin
@@ -622,7 +620,6 @@ function InternalFreeMemSize(loc_info: pheap_info; p: pointer; pp: pheap_mem_inf
   size: ptruint; release_todo_lock: boolean): ptruint;
 var
   i,ppsize : ptruint;
-  bp : pointer;
   extra_size: ptruint;
   release_mem: boolean;
 begin
@@ -1252,7 +1249,6 @@ end;
 procedure TraceExitThread;
 var
   loc_info: pheap_info;
-  heap_mem: pheap_mem_info;
 begin
   loc_info := @heap_info;
   entercriticalsection(todo_lock);
diff --git a/rtl/inc/lineinfo.pp b/rtl/inc/lineinfo.pp
index edb1367b84..73f74f839f 100644
--- a/rtl/inc/lineinfo.pp
+++ b/rtl/inc/lineinfo.pp
@@ -1270,9 +1270,9 @@ begin
   GetLineInfo(ptruint(addr),func,source,line);
 { create string }
   {$ifdef netware}
-  StabBackTraceStr:='  CodeStart + $'+HexStr(ptrint(addr),sizeof(ptrint)*2);
+  StabBackTraceStr:='  CodeStart + $'+HexStr(ptruint(addr),sizeof(ptruint)*2);
   {$else}
-  StabBackTraceStr:='  $'+HexStr(ptrint(addr),sizeof(ptrint)*2);
+  StabBackTraceStr:='  $'+HexStr(ptruint(addr),sizeof(ptruint)*2);
   {$endif}
   if func<>'' then
    StabBackTraceStr:=StabBackTraceStr+'  '+func;
diff --git a/rtl/inc/lnfodwrf.pp b/rtl/inc/lnfodwrf.pp
index 703e67611c..8ae6687c0b 100644
--- a/rtl/inc/lnfodwrf.pp
+++ b/rtl/inc/lnfodwrf.pp
@@ -948,7 +948,7 @@ begin
   BackTraceStrFunc := @SysBackTraceStr;
   GetLineInfo(ptruint(addr), func, source, line);
   { create string }
-  DwarfBackTraceStr :='  $' + HexStr(ptrint(addr), sizeof(ptrint) * 2);
+  DwarfBackTraceStr :='  $' + HexStr(ptruint(addr), sizeof(ptruint) * 2);
   if func<>'' then
    DwarfBackTraceStr := DwarfBackTraceStr + '  ' + func;