From 90830261ed9f2301f6b06627dcb94ba5b835b94a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 20 Feb 2004 22:15:26 +0000
Subject: [PATCH]   * fixed compiler err

---
 compiler/nld.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/nld.pas b/compiler/nld.pas
index 9da4b491eb..4dea2973ff 100644
--- a/compiler/nld.pas
+++ b/compiler/nld.pas
@@ -937,7 +937,7 @@ implementation
                      on the location in which the elements will be found in
                      pass 2.}
                     if not do_variant then
-                      include(procinfo.flags,pi_do_call);
+                      include(current_procinfo.flags,pi_do_call);
                     firstpass(hp.left);
                   end;
                 hp:=tarrayconstructornode(hp.right);
@@ -1122,7 +1122,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.123  2004-02-20 21:55:59  peter
+  Revision 1.124  2004-02-20 22:15:26  peter
+    * fixed compiler err
+
+  Revision 1.123  2004/02/20 21:55:59  peter
     * procvar cleanup
 
   Revision 1.122  2004/02/20 20:21:16  daniel