Sfoglia il codice sorgente

* support llvm spilling_get_reg_type() for the destination of call/invoke

git-svn-id: trunk@30422 -
Jonas Maebe 10 anni fa
parent
commit
2ef753faae
1 ha cambiato i file con 4 aggiunte e 1 eliminazioni
  1. 4 1
      compiler/llvm/aasmllvm.pas

+ 4 - 1
compiler/llvm/aasmllvm.pas

@@ -424,7 +424,10 @@ uses
             end;
           la_invoke, la_call:
             begin
-              internalerror(2013110102);
+              if opnr=0 then
+                result:=oper[1]^.def
+              else
+                internalerror(2013110102);
             end;
           la_br,
           la_unreachable: