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

* don't give illegal expression for errorn statements. The error is already given

Browse Source 
or can be ignored during a generic template parsing

git-svn-id: trunk@9520 -
This commit is contained in:
peter 2007-12-23 20:57:59 +00:00
parent 13ca601510
commit 505e4f7809
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pstatmnt.pas
View File

@ -1079,7 +1079,7 @@ implementation
{ blockn support because a read/write is changed into a blocknode } { blockn support because a read/write is changed into a blocknode }
{ with a separate statement for each read/write operation (JM) } { with a separate statement for each read/write operation (JM) }
{ the same is true for val() if the third parameter is not 32 bit } { the same is true for val() if the third parameter is not 32 bit }
if not(p.nodetype in [nothingn,calln,ifn,assignn,breakn,inlinen, if not(p.nodetype in [nothingn,errorn,calln,ifn,assignn,breakn,inlinen,
continuen,labeln,blockn,exitn]) or continuen,labeln,blockn,exitn]) or
((p.nodetype=inlinen) and ((p.nodetype=inlinen) and
not is_void(p.resultdef)) then not is_void(p.resultdef)) then