From 7d90aed73fdc53e7a9a5ba25644de991c4fa4eff Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 26 Jul 1999 12:11:28 +0000
Subject: [PATCH]   * reraise doesn't call popaddrstack anymode

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

diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index 045c05fad6..6662ff27cf 100644
--- a/rtl/inc/except.inc
+++ b/rtl/inc/except.inc
@@ -170,7 +170,6 @@ begin
 {$ifdef excdebug}
   writeln ('In reraise');
 {$endif}
-  PopAddrStack;
   If ExceptAddrStack=Nil then
     DoUnHandledException;
   longjmp(ExceptAddrStack^.Buf^,FPC_Exception);
@@ -213,7 +212,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.11  1999-06-14 00:47:35  peter
+  Revision 1.12  1999-07-26 12:11:28  florian
+    * reraise doesn't call popaddrstack anymode
+
+  Revision 1.11  1999/06/14 00:47:35  peter
     * merged
 
   Revision 1.10.2.1  1999/06/14 00:38:18  peter