From d2e720a52af078262774e927322d826d72f1454f Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Thu, 11 May 2006 15:31:49 +0000
Subject: fix ccall on 64 bit platforms with Real result

---
 cginstructions.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cginstructions.c b/cginstructions.c
index b56aeed..f39a79c 100644
--- a/cginstructions.c
+++ b/cginstructions.c
@@ -3861,7 +3861,7 @@ void code_ccall (char *c_function_name,char *s,int length)
 				break;
 			case 'R':
 				begin_new_basic_block();
-				init_b_stack (2,r_vector);
+				init_b_stack (1,r_vector);
 				break;
 			case 'S':
 				if (string_to_string_node_label==NULL)
-- 
cgit v1.2.3