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

+ added text arg for dump_stack

Browse Source
This commit is contained in:
pierre 1999-01-22 12:39:19 +00:00
parent 7ffa0f6ac0
commit ab763cd69c
5 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/dpmiexcp.pp
View File

@ -439,7 +439,7 @@ procedure show_call_frame(djgpp_exception_state : pexception_state);
begin
errln('Call frame traceback EIPs:');
errln(' 0x'+hexstr(djgpp_exception_state^.__eip, 8));
dump_stack(djgpp_exception_state^.__ebp);
dump_stack(stderr,djgpp_exception_state^.__ebp);
end;
@ -907,7 +907,10 @@ begin
end.
{
$Log$
Revision 1.3 1999-01-18 09:14:20 pierre
Revision 1.4 1999-01-22 12:39:19 pierre
+ added text arg for dump_stack
Revision 1.3 1999/01/18 09:14:20 pierre
* exception_level counting was wrong if dpmi_jmp_buf was copied
Revision 1.2 1998/12/21 14:23:12 pierre

7
rtl/inc/heap.inc
View File

@ -258,7 +258,7 @@ end;
begin
Writeln('Marked memory at ',HexStr(longint(p),8),' released');
call_stack(p+sizeof(heap_mem_info));
dump_stack(get_caller_frame(get_frame));
dump_stack(output,get_caller_frame(get_frame));
end;
@ -1086,7 +1086,10 @@ end;
{
$Log$
Revision 1.4 1998-12-16 00:22:24 peter
Revision 1.5 1999-01-22 12:39:21 pierre
+ added text arg for dump_stack
Revision 1.4 1998/12/16 00:22:24 peter
* more temp symbols removed
Revision 1.3 1998/10/22 23:50:45 peter

11
rtl/inc/heaptrc.pp
View File

@ -117,14 +117,14 @@ begin
Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' released');
call_free_stack(p);
Writeln(stderr,'freed again at');
dump_stack(get_caller_frame(get_frame));
dump_stack(stderr,get_caller_frame(get_frame));
end;
procedure dump_error(p : pheap_mem_info);
begin
Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid');
Writeln(stderr,'Wrong signature $',hexstr(p^.sig,8));
dump_stack(get_caller_frame(get_frame));
dump_stack(stderr,get_caller_frame(get_frame));
end;
procedure dump_wrong_size(p : pheap_mem_info;size : longint);
@ -133,7 +133,7 @@ var
begin
Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid');
Writeln(stderr,'Wrong size : ',p^.size,' allocated ',size,' freed');
dump_stack(get_caller_frame(get_frame));
dump_stack(stderr,get_caller_frame(get_frame));
for i:=0 to (exact_info_size div 4)-1 do
writeln(stderr,'info ',i,'=',plongint(@p^.extra_info+4*i)^);
end;
@ -360,7 +360,10 @@ begin
end.
{
$Log$
Revision 1.8 1998-12-15 23:49:51 michael
Revision 1.9 1999-01-22 12:39:22 pierre
+ added text arg for dump_stack
Revision 1.8 1998/12/15 23:49:51 michael
+ Removed underscores in heaptrc unit
Revision 1.7 1998/11/16 12:20:13 peter

9
rtl/inc/system.inc
View File

@ -350,7 +350,7 @@ Begin
End;
Procedure dump_stack(bp : Longint);
Procedure dump_stack(var f : text;bp : Longint);
var
i, prevbp : Longint;
Begin
@ -384,7 +384,7 @@ Begin
If erroraddr<>nil Then
Begin
Writeln(stdout,'Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
dump_stack(ErrorBase);
dump_stack(stdout,ErrorBase);
End;
{ call system dependent exit code }
System_exit;
@ -472,7 +472,10 @@ end;
{
$Log$
Revision 1.51 1999-01-18 10:05:52 pierre
Revision 1.52 1999-01-22 12:39:23 pierre
+ added text arg for dump_stack
Revision 1.51 1999/01/18 10:05:52 pierre
+ system_exit procedure added
Revision 1.50 1998/12/28 15:50:46 peter

7
rtl/inc/systemh.inc
View File

@ -401,7 +401,7 @@ Function Sptr:Longint;
Function Paramcount:Longint;
Function ParamStr(l:Longint):string;
{$ifndef RTLLITE}
Procedure Dump_Stack(bp:Longint);
Procedure Dump_Stack(var f : text;bp:Longint);
{$endif RTLLITE}
Procedure RunError(w:Word);
Procedure RunError;
@ -431,7 +431,10 @@ const
{
$Log$
Revision 1.47 1999-01-11 19:26:53 jonas
Revision 1.48 1999-01-22 12:39:24 pierre
+ added text arg for dump_stack
Revision 1.47 1999/01/11 19:26:53 jonas
* made inster(string,string,index) a bit faster
+ overloaded insert(char,string,index)