paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 21:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't complain in X- mode for internal generated function calls

Browse Source 
with funcretrefnode set
  * give statement error at the correct line position instead of the
    block begin
This commit is contained in:
peter 2002-10-05 15:15:19 +00:00
parent b998cc4012
commit d8495ac883
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/nbas.pas
View File

@ -265,7 +265,10 @@ implementation
if (not (cs_extsyntax in aktmoduleswitches)) and
assigned(right.resulttype.def) and
not((right.nodetype=calln) and
(tcallnode(right).procdefinition.proctypeoption=potype_constructor)) and
{ don't complain when funcretrefnode is set, because then the
value is already used. And also not for constructors }
(assigned(tcallnode(right).funcretrefnode) or
(tcallnode(right).procdefinition.proctypeoption=potype_constructor))) and
not(is_void(right.resulttype.def)) then
CGMessage(cg_e_illegal_expression);
if codegenerror then
@ -351,9 +354,12 @@ implementation
if (not (cs_extsyntax in aktmoduleswitches)) and
assigned(hp.right.resulttype.def) and
not((hp.right.nodetype=calln) and
(tcallnode(hp.right).procdefinition.proctypeoption=potype_constructor)) and
{ don't complain when funcretrefnode is set, because then the
value is already used. And also not for constructors }
(assigned(tcallnode(hp.right).funcretrefnode) or
(tcallnode(hp.right).procdefinition.proctypeoption=potype_constructor))) and
not(is_void(hp.right.resulttype.def)) then
CGMessage(cg_e_illegal_expression);
CGMessagePos(hp.right.fileinfo,cg_e_illegal_expression);
{ the resulttype of the block is the last type that is
returned. Normally this is a voidtype. But when the
compiler inserts a block of multiple statements then the
@ -761,7 +767,13 @@ begin
end.
{
$Log$
Revision 1.35 2002-09-01 08:01:16 daniel
Revision 1.36 2002-10-05 15:15:19 peter
* don't complain in X- mode for internal generated function calls
with funcretrefnode set
* give statement error at the correct line position instead of the
block begin
Revision 1.35 2002/09/01 08:01:16 daniel
* Removed sets from Tcallnode.det_resulttype
+ Added read/write notifications of variables. These will be usefull
for providing information for several optimizations. For example