paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 03:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed proc()=expr which was not allowed anymore by my previous fix

Browse Source
This commit is contained in:
peter 1998-08-15 16:50:29 +00:00
parent 1b24a06769
commit 49e9cc95b0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -1035,7 +1035,7 @@ unit pexpr;
end; end;
pd:=pprocvardef(pd)^.retdef; pd:=pprocvardef(pd)^.retdef;
{ proc():= is never possible } { proc():= is never possible }
if token in [ASSIGNMENT,UNEQUAL,EQUAL] then if token=ASSIGNMENT then
begin begin
Message(cg_e_illegal_expression); Message(cg_e_illegal_expression);
p1:=genzeronode(errorn); p1:=genzeronode(errorn);
@ -1829,7 +1829,10 @@ unit pexpr;
end. end.
{ {
$Log$ $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 + dynamic set contruction
* smallsets are now working (always longint size) * smallsets are now working (always longint size)