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

- removed unnecessary dependencies on tprocdef.funcretloc being a tlocation

Browse Source 
(has to be changed into a tcgpara to fix the x86-64 abi bugs)

git-svn-id: trunk@15272 -
This commit is contained in:
Jonas Maebe 2010-05-13 18:29:01 +00:00
parent 0d447b29cd
commit ca660d409c
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgld.pas
View File

@ -173,8 +173,7 @@ implementation
rr.new := @newref;
rr.ressym := nil;
if (current_procinfo.procdef.funcretloc[calleeside].loc<>LOC_VOID) and
assigned(current_procinfo.procdef.funcretsym) and
if assigned(current_procinfo.procdef.funcretsym) and
(tabstractvarsym(current_procinfo.procdef.funcretsym).refs <> 0) then
if (current_procinfo.procdef.proctypeoption=potype_constructor) then
rr.ressym:=tsym(current_procinfo.procdef.parast.Find('self'))

2
compiler/ncgutil.pas
View File

@ -1379,7 +1379,7 @@ implementation
funcretloc : tlocation;
begin
{ Is the loading needed? }
if (current_procinfo.procdef.funcretloc[calleeside].loc=LOC_VOID) or
if is_void(current_procinfo.procdef.returndef) or
(
(po_assembler in current_procinfo.procdef.procoptions) and
(not(assigned(current_procinfo.procdef.funcretsym)) or