From 2ef753faae0a9efffeb0eb175664bbfb754472cc Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 4 Apr 2015 14:28:54 +0000
Subject: [PATCH]   * support llvm spilling_get_reg_type() for the destination
 of call/invoke

git-svn-id: trunk@30422 -
---
 compiler/llvm/aasmllvm.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/llvm/aasmllvm.pas b/compiler/llvm/aasmllvm.pas
index 1f3fb78969..0af5ab7e12 100644
--- a/compiler/llvm/aasmllvm.pas
+++ b/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: