From 565bfe20a9681b5ecb2ea5b4b0869447ad1289c1 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 25 Mar 2001 12:27:59 +0000
Subject: [PATCH]   * set funcret to assigned (merged)

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

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index f370980754..46af795996 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -582,6 +582,7 @@ implementation
          if assigned(left) then
            begin
               firstpass(left);
+              set_varstate(left,true);
               procinfo^.funcret_state:=vs_assigned;
               if codegenerror then
                exit;
@@ -1027,7 +1028,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.13  2001-02-26 19:44:53  peter
+  Revision 1.14  2001-03-25 12:27:59  peter
+    * set funcret to assigned (merged)
+
+  Revision 1.13  2001/02/26 19:44:53  peter
     * merged generic m68k updates from fixes branch
 
   Revision 1.12  2000/12/31 11:14:10  jonas