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

* fixed web bug #1501 in conjunction with -Or

Browse Source
This commit is contained in:
Jonas Maebe 2001-06-11 17:41:12 +00:00
parent c6b667ae85
commit f855dff46d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nbas.pas
View File

@ -266,7 +266,9 @@ implementation
{ concat function result to exit } { concat function result to exit }
{ this is wrong for string or other complex { this is wrong for string or other complex
result types !!! } result types !!! }
if ret_in_acc(procinfo^.returntype.def) and if {ret_in_acc(procinfo^.returntype.def) and }
(is_ordinal(procinfo^.returntype.def) or
is_smallset(procinfo^.returntype.def)) and
assigned(hp.left) and assigned(hp.left) and
assigned(tstatementnode(hp.left).right) and assigned(tstatementnode(hp.left).right) and
(tstatementnode(hp.left).right.nodetype=exitn) and (tstatementnode(hp.left).right.nodetype=exitn) and
@ -394,7 +396,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.11 2001-05-18 22:31:06 peter Revision 1.12 2001-06-11 17:41:12 jonas
* fixed web bug 1501 in conjunction with -Or
Revision 1.11 2001/05/18 22:31:06 peter
* tasmnode.pass_2 is independent of cpu, moved to ncgbas * tasmnode.pass_2 is independent of cpu, moved to ncgbas
* include ncgbas for independent nodes * include ncgbas for independent nodes