+ added text arg for dump_stack

rtl/go32v2/dpmiexcp.pp

@@ -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

rtl/inc/heap.inc

@@ -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

rtl/inc/heaptrc.pp

@@ -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

rtl/inc/system.inc

@@ -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

rtl/inc/systemh.inc

@@ -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)