From 71679e0662cb196bd4ea110be8ab9be14ac3f81c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 2 Feb 2005 19:02:47 +0000
Subject: [PATCH]   * type = type <procvar>; ignored

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

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 6dfebf1b64..32116a61f7 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -4582,6 +4582,7 @@ implementation
 
     function tprocvardef.getcopy : tstoreddef;
       begin
+        result:=self;
       (*
           { saves a definition to the return type }
           rettype         : ttype;
@@ -6378,7 +6379,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.293  2005-02-01 08:46:13  michael
+  Revision 1.294  2005-02-02 19:02:47  florian
+    * type = type <procvar>; ignored
+
+  Revision 1.293  2005/02/01 08:46:13  michael
    * Patch from peter: fix macpas anonymous function procvar
 
   Revision 1.292  2005/01/30 11:26:40  peter