From 1ae9256e9c906d6aa13e111d11f05493ffa1cc46 Mon Sep 17 00:00:00 2001
From: Wolfgang Thaller <wolfgang.thaller@gmx.net>
Date: Mon, 14 May 2018 00:01:59 +0200
Subject: [PATCH] Fix compilation for PowerPC - see #57

---
 gcc/gcc/function.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gcc/gcc/function.c b/gcc/gcc/function.c
index 8e656c6bc8..85df14c03b 100644
--- a/gcc/gcc/function.c
+++ b/gcc/gcc/function.c
@@ -5513,6 +5513,7 @@ expand_function_end (void)
       tree decl_result = DECL_RESULT (current_function_decl);
       rtx decl_rtl = DECL_RTL (decl_result);
 
+#ifdef IS_PASCAL_FUNC
       if (IS_PASCAL_FUNC(TREE_TYPE(current_function_decl), current_function_decl))
 	{
 	  enum machine_mode mode = GET_MODE(decl_rtl);;
@@ -5524,7 +5525,9 @@ expand_function_end (void)
 	  emit_move_insn (return_slot, decl_rtl);
 	  crtl->return_rtx = return_slot;
 	}
-      else if (REG_P (decl_rtl)
+      else
+#endif
+      if (REG_P (decl_rtl)
 	  ? REGNO (decl_rtl) >= FIRST_PSEUDO_REGISTER
 	  : DECL_REGISTER (decl_result))
 	{