paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +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 }
{ this is wrong for string or other complex
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(tstatementnode(hp.left).right) and
(tstatementnode(hp.left).right.nodetype=exitn) and
@ -394,7 +396,10 @@ begin
end.
{
$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
* include ncgbas for independent nodes