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

* fixed buf 1364

Browse Source
This commit is contained in:
peter 2001-02-05 20:45:49 +00:00
parent 1be1aab60d
commit 2531d36bff
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/nbas.pas
View File

@ -75,9 +75,9 @@ implementation
uses uses
cutils,cclasses, cutils,cclasses,
verbose,globals,globtype,systems, verbose,globals,globtype,systems,
symtype,symdef,types, symconst,symtype,symdef,types,
pass_1, pass_1,
nflw,tgcpu,hcodegen ncal,nflw,tgcpu,hcodegen
{$ifdef newcg} {$ifdef newcg}
,cgbase ,cgbase
{$endif} {$endif}
@ -150,6 +150,8 @@ implementation
firstpass(right); firstpass(right);
if (not (cs_extsyntax in aktmoduleswitches)) and if (not (cs_extsyntax in aktmoduleswitches)) and
assigned(right.resulttype) and assigned(right.resulttype) and
not((right.nodetype=calln) and
(tcallnode(right).procdefinition^.proctypeoption=potype_constructor)) and
(right.resulttype<>pdef(voiddef)) then (right.resulttype<>pdef(voiddef)) then
CGMessage(cg_e_illegal_expression); CGMessage(cg_e_illegal_expression);
if codegenerror then if codegenerror then
@ -265,6 +267,8 @@ implementation
firstpass(hp.right); firstpass(hp.right);
if (not (cs_extsyntax in aktmoduleswitches)) and if (not (cs_extsyntax in aktmoduleswitches)) and
assigned(hp.right.resulttype) and assigned(hp.right.resulttype) and
not((hp.right.nodetype=calln) and
(tcallnode(hp.right).procdefinition^.proctypeoption=potype_constructor)) and
(hp.right.resulttype<>pdef(voiddef)) then (hp.right.resulttype<>pdef(voiddef)) then
CGMessage(cg_e_illegal_expression); CGMessage(cg_e_illegal_expression);
{if codegenerror then {if codegenerror then
@ -345,7 +349,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.7 2000-12-31 11:14:10 jonas Revision 1.8 2001-02-05 20:45:49 peter
* fixed buf 1364
Revision 1.7 2000/12/31 11:14:10 jonas
+ implemented/fixed docompare() mathods for all nodes (not tested) + implemented/fixed docompare() mathods for all nodes (not tested)
+ nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings + nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings
and constant strings/chars together and constant strings/chars together