paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:49:22 +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 begin
errln('Call frame traceback EIPs:'); errln('Call frame traceback EIPs:');
errln(' 0x'+hexstr(djgpp_exception_state^.__eip, 8)); errln(' 0x'+hexstr(djgpp_exception_state^.__eip, 8));
dump_stack(djgpp_exception_state^.__ebp); dump_stack(stderr,djgpp_exception_state^.__ebp);
end; end;
@ -907,7 +907,10 @@ begin
end. end.
{ {
$Log$ $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 * exception_level counting was wrong if dpmi_jmp_buf was copied
Revision 1.2 1998/12/21 14:23:12 pierre Revision 1.2 1998/12/21 14:23:12 pierre

7
rtl/inc/heap.inc
View File

@ -258,7 +258,7 @@ end;
begin begin
Writeln('Marked memory at ',HexStr(longint(p),8),' released'); Writeln('Marked memory at ',HexStr(longint(p),8),' released');
call_stack(p+sizeof(heap_mem_info)); call_stack(p+sizeof(heap_mem_info));
dump_stack(get_caller_frame(get_frame)); dump_stack(output,get_caller_frame(get_frame));
end; end;
@ -1086,7 +1086,10 @@ end;
{ {
$Log$ $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 * more temp symbols removed
Revision 1.3 1998/10/22 23:50:45 peter 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'); Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' released');
call_free_stack(p); call_free_stack(p);
Writeln(stderr,'freed again at'); Writeln(stderr,'freed again at');
dump_stack(get_caller_frame(get_frame)); dump_stack(stderr,get_caller_frame(get_frame));
end; end;
procedure dump_error(p : pheap_mem_info); procedure dump_error(p : pheap_mem_info);
begin begin
Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid'); Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid');
Writeln(stderr,'Wrong signature $',hexstr(p^.sig,8)); Writeln(stderr,'Wrong signature $',hexstr(p^.sig,8));
dump_stack(get_caller_frame(get_frame)); dump_stack(stderr,get_caller_frame(get_frame));
end; end;
procedure dump_wrong_size(p : pheap_mem_info;size : longint); procedure dump_wrong_size(p : pheap_mem_info;size : longint);
@ -133,7 +133,7 @@ var
begin begin
Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid'); Writeln(stderr,'Marked memory at ',HexStr(longint(p+sizeof(theap_mem_info)),8),' invalid');
Writeln(stderr,'Wrong size : ',p^.size,' allocated ',size,' freed'); 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 for i:=0 to (exact_info_size div 4)-1 do
writeln(stderr,'info ',i,'=',plongint(@p^.extra_info+4*i)^); writeln(stderr,'info ',i,'=',plongint(@p^.extra_info+4*i)^);
end; end;
@ -360,7 +360,10 @@ begin
end. end.
{ {
$Log$ $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 + Removed underscores in heaptrc unit
Revision 1.7 1998/11/16 12:20:13 peter Revision 1.7 1998/11/16 12:20:13 peter

9
rtl/inc/system.inc
View File

@ -350,7 +350,7 @@ Begin
End; End;
Procedure dump_stack(bp : Longint); Procedure dump_stack(var f : text;bp : Longint);
var var
i, prevbp : Longint; i, prevbp : Longint;
Begin Begin
@ -384,7 +384,7 @@ Begin
If erroraddr<>nil Then If erroraddr<>nil Then
Begin Begin
Writeln(stdout,'Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8)); Writeln(stdout,'Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
dump_stack(ErrorBase); dump_stack(stdout,ErrorBase);
End; End;
{ call system dependent exit code } { call system dependent exit code }
System_exit; System_exit;
@ -472,7 +472,10 @@ end;
{ {
$Log$ $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 + system_exit procedure added
Revision 1.50 1998/12/28 15:50:46 peter 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 Paramcount:Longint;
Function ParamStr(l:Longint):string; Function ParamStr(l:Longint):string;
{$ifndef RTLLITE} {$ifndef RTLLITE}
Procedure Dump_Stack(bp:Longint); Procedure Dump_Stack(var f : text;bp:Longint);
{$endif RTLLITE} {$endif RTLLITE}
Procedure RunError(w:Word); Procedure RunError(w:Word);
Procedure RunError; Procedure RunError;
@ -431,7 +431,10 @@ const
{ {
$Log$ $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 * made inster(string,string,index) a bit faster
+ overloaded insert(char,string,index) + overloaded insert(char,string,index)