From 93ec8d154c4e1b583f98144df362ea9d463053a4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 29 Jan 2005 17:01:18 +0000
Subject: [PATCH]   * fix crash with backtrace if invalid frame is passed

---
 rtl/inc/except.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index 586708e926..835a5d374e 100644
--- a/rtl/inc/except.inc
+++ b/rtl/inc/except.inc
@@ -152,7 +152,7 @@ begin
   ExceptObjectStack^.refcount:=0;
   { Backtrace }
   curr_frame:=AFrame;
-  prev_frame:=AFrame-1;
+  prev_frame:=get_frame;
   frames:=nil;
   framebufsize:=0;
   framecount:=0;
@@ -346,7 +346,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.17  2005-01-26 17:07:10  peter
+  Revision 1.18  2005-01-29 17:01:18  peter
+    * fix crash with backtrace if invalid frame is passed
+
+  Revision 1.17  2005/01/26 17:07:10  peter
     * retrieve backtrace when exception is raised
     * RaiseMaxFrameCount added to limit the number of backtraces, setting
       it to 0 disables backtraces. Default is 16