From 09d99a60092ee7757045f390b9e00c576b59f9ec Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 20 Aug 2017 15:21:55 +0000
Subject: [PATCH] * sparc64 does not generate a unimp instruction if a
 parameter is returned in a memory location

git-svn-id: trunk@36949 -
---
 compiler/sparcgen/ncpucall.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/sparcgen/ncpucall.pas b/compiler/sparcgen/ncpucall.pas
index 5c8be07892..a9174e787b 100644
--- a/compiler/sparcgen/ncpucall.pas
+++ b/compiler/sparcgen/ncpucall.pas
@@ -46,8 +46,10 @@ implementation
 
     procedure tsparccallnode.extra_post_call_code;
       begin
+{$ifndef SPARC64}
         if paramanager.ret_in_param(procdefinition.returndef,procdefinition) then
           current_asmdata.CurrAsmList.concat(taicpu.op_const(A_UNIMP,procdefinition.returndef.size and $3fffff));
+{$endif SPARC64}
       end;