瀏覽代碼

- removed unnecessary dependencies on tprocdef.funcretloc being a tlocation
(has to be changed into a tcgpara to fix the x86-64 abi bugs)

git-svn-id: trunk@15272 -

Jonas Maebe 15 年之前
父節點
當前提交
ca660d409c
共有 2 個文件被更改,包括 2 次插入3 次删除
  1. 1 2
      compiler/ncgld.pas
  2. 1 1
      compiler/ncgutil.pas

+ 1 - 2
compiler/ncgld.pas

@@ -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'))

+ 1 - 1
compiler/ncgutil.pas

@@ -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