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

* integrated potype_constructor check in maybe_create_funcret_node

Browse Source 
git-svn-id: trunk@23507 -
This commit is contained in:
Jonas Maebe 2013-01-24 09:44:52 +00:00
parent 280b307068
commit 9145f1d67d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncal.pas
View File

@ -2371,6 +2371,8 @@ implementation
var var
temp : ttempcreatenode; temp : ttempcreatenode;
begin begin
if procdefinition.proctypeoption=potype_constructor then
exit;
{ For the function result we need to create a temp node for: { For the function result we need to create a temp node for:
- Inlined functions - Inlined functions
- Types requiring initialization/finalization - Types requiring initialization/finalization
@ -3513,7 +3515,6 @@ implementation
maybe_load_in_temp(methodpointer); maybe_load_in_temp(methodpointer);
{ Create destination (temp or assignment-variable reuse) for function result if it not yet set } { Create destination (temp or assignment-variable reuse) for function result if it not yet set }
if (procdefinition.proctypeoption<>potype_constructor) then
maybe_create_funcret_node; maybe_create_funcret_node;
{ Insert the self,vmt,function result in the parameters } { Insert the self,vmt,function result in the parameters }