From 892d38d1f4c0c42d06ba86c0153bbf24aa09ed8b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 15 Nov 1999 21:49:09 +0000
Subject: [PATCH]   * push address also for raise at

---
 compiler/cg386flw.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/cg386flw.pas b/compiler/cg386flw.pas
index 555848780e..cd6ebd211a 100644
--- a/compiler/cg386flw.pas
+++ b/compiler/cg386flw.pas
@@ -548,6 +548,7 @@ do_jmp:
                    secondpass(p^.right);
                    if codegenerror then
                      exit;
+                   emit_push_loc(p^.right^.location);
                 end
               else
                 begin
@@ -769,7 +770,10 @@ do_jmp:
 end.
 {
   $Log$
-  Revision 1.56  1999-11-06 14:34:17  peter
+  Revision 1.57  1999-11-15 21:49:09  peter
+    * push address also for raise at
+
+  Revision 1.56  1999/11/06 14:34:17  peter
     * truncated log to 20 revs
 
   Revision 1.55  1999/10/30 17:35:26  peter