* prevent endless stack dump if an exception occured during the dump itself.

git-svn-id: trunk@1427 -

rtl/inc/system.inc

@@ -749,6 +749,7 @@ var
   caller_frame,
   caller_addr : Pointer;
 Begin
+  try
     prevbp:=bp-1;
     i:=0;
     is_dev:=do_isdevice(textrec(f).Handle);
@@ -766,6 +767,9 @@ Begin
        prevbp:=bp;
        bp:=caller_frame;
      End;
+   except
+     { prevent endless dump if an exception occured }
+   end;
 End;