From 49e9cc95b0fd8dcaf0029c5c9a467f938064403c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 15 Aug 1998 16:50:29 +0000
Subject: [PATCH]   * fixed proc()=expr which was not allowed anymore by my
 previous fix

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

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index e4f5c23b3d..216d061932 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -1035,7 +1035,7 @@ unit pexpr;
                                 end;
                               pd:=pprocvardef(pd)^.retdef;
                            { proc():= is never possible }
-                              if token in [ASSIGNMENT,UNEQUAL,EQUAL] then
+                              if token=ASSIGNMENT then
                                begin
                                  Message(cg_e_illegal_expression);
                                  p1:=genzeronode(errorn);
@@ -1829,7 +1829,10 @@ unit pexpr;
 end.
 {
   $Log$
-  Revision 1.35  1998-08-14 18:18:46  peter
+  Revision 1.36  1998-08-15 16:50:29  peter
+    * fixed proc()=expr which was not allowed anymore by my previous fix
+
+  Revision 1.35  1998/08/14 18:18:46  peter
     + dynamic set contruction
     * smallsets are now working (always longint size)