paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 20:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed warnings and notes.

Browse Source 
git-svn-id: trunk@9044 -
This commit is contained in:
yury 2007-11-01 15:45:33 +00:00
parent 4fa9516b58
commit 05f718fbd2
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/heaptrc.pp
View File

@ -382,8 +382,6 @@ begin
end; end;
procedure try_finish_heap_free_todo_list(loc_info: pheap_info); procedure try_finish_heap_free_todo_list(loc_info: pheap_info);
var
bp: pointer;
begin begin
if loc_info^.heap_free_todo <> nil then if loc_info^.heap_free_todo <> nil then
begin begin
@ -622,7 +620,6 @@ function InternalFreeMemSize(loc_info: pheap_info; p: pointer; pp: pheap_mem_inf
size: ptruint; release_todo_lock: boolean): ptruint; size: ptruint; release_todo_lock: boolean): ptruint;
var var
i,ppsize : ptruint; i,ppsize : ptruint;
bp : pointer;
extra_size: ptruint; extra_size: ptruint;
release_mem: boolean; release_mem: boolean;
begin begin
@ -1252,7 +1249,6 @@ end;
procedure TraceExitThread; procedure TraceExitThread;
var var
loc_info: pheap_info; loc_info: pheap_info;
heap_mem: pheap_mem_info;
begin begin
loc_info := @heap_info; loc_info := @heap_info;
entercriticalsection(todo_lock); entercriticalsection(todo_lock);

4
rtl/inc/lineinfo.pp
View File

@ -1270,9 +1270,9 @@ begin
GetLineInfo(ptruint(addr),func,source,line); GetLineInfo(ptruint(addr),func,source,line);
{ create string } { create string }
{$ifdef netware} {$ifdef netware}
StabBackTraceStr:=' CodeStart + $'+HexStr(ptrint(addr),sizeof(ptrint)*2); StabBackTraceStr:=' CodeStart + $'+HexStr(ptruint(addr),sizeof(ptruint)*2);
{$else} {$else}
StabBackTraceStr:=' $'+HexStr(ptrint(addr),sizeof(ptrint)*2); StabBackTraceStr:=' $'+HexStr(ptruint(addr),sizeof(ptruint)*2);
{$endif} {$endif}
if func<>'' then if func<>'' then
StabBackTraceStr:=StabBackTraceStr+' '+func; StabBackTraceStr:=StabBackTraceStr+' '+func;

2
rtl/inc/lnfodwrf.pp
View File

@ -948,7 +948,7 @@ begin
BackTraceStrFunc := @SysBackTraceStr; BackTraceStrFunc := @SysBackTraceStr;
GetLineInfo(ptruint(addr), func, source, line); GetLineInfo(ptruint(addr), func, source, line);
{ create string } { create string }
DwarfBackTraceStr :=' $' + HexStr(ptrint(addr), sizeof(ptrint) * 2); DwarfBackTraceStr :=' $' + HexStr(ptruint(addr), sizeof(ptruint) * 2);
if func<>'' then if func<>'' then
DwarfBackTraceStr := DwarfBackTraceStr + ' ' + func; DwarfBackTraceStr := DwarfBackTraceStr + ' ' + func;