From 119ebd56c6af2658be64160d20e862de77e637ef Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 8 Feb 2000 13:55:13 +0000
Subject: [PATCH]   * reset section back to code after localdata

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

diff --git a/compiler/psub.pas b/compiler/psub.pas
index b3d2f5d5e7..1c03c5b19c 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -1590,6 +1590,7 @@ begin
          begin
             procinfo^.aktproccode^.concat(new(pai_section,init(sec_data)));
             procinfo^.aktproccode^.concatlist(procinfo^.aktlocaldata);
+            procinfo^.aktproccode^.concat(new(pai_section,init(sec_code)));
          end;
        { now we can insert a cut }
        if (cs_create_smart in aktmoduleswitches) then
@@ -1969,7 +1970,10 @@ end.
 
 {
   $Log$
-  Revision 1.46  2000-02-04 20:00:22  florian
+  Revision 1.47  2000-02-08 13:55:13  peter
+    * reset section back to code after localdata
+
+  Revision 1.46  2000/02/04 20:00:22  florian
     * an exception in a construcor calls now the destructor (this applies only
       to classes)