From 038c73aed0dbcbedc700cfd93fc90175c9a4bfa4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 9 Dec 1999 09:35:54 +0000
Subject: [PATCH]   * allow assigning to self

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

diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index 6532d14197..612d8590ad 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -779,6 +779,7 @@ implementation
                   CGMessagePos(hp^.fileinfo,type_e_no_assign_to_addr);
                  exit;
                end;
+             selfn,
              funcretn :
                begin
                  valid_for_assign:=true;
@@ -842,7 +843,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.50  1999-11-30 10:40:43  peter
+  Revision 1.51  1999-12-09 09:35:54  peter
+    * allow assigning to self
+
+  Revision 1.50  1999/11/30 10:40:43  peter
     + ttype, tsymlist
 
   Revision 1.49  1999/11/18 15:34:45  pierre