diff mbox

[Ada] Fix PR ada/78524

Message ID 4461235.SPGCjJISnp@polaris
State New
Headers show

Commit Message

Eric Botcazou Nov. 27, 2016, 10:04 p.m. UTC
This is the failure of ACATS c41104a introduced by the recent match.pd change.

Fixed thusly, tested on x86_64-suse-linux, applied on the mainline.


2016-11-27  Eric Botcazou  <ebotcazou@adacore.com>

	PR ada/78524
	* gcc-interface/utils.c (max_size) <tcc_reference>: Add missing
	conversion to original type in the PLACEHOLDER_EXPR case.

-- 
Eric Botcazou
diff mbox

Patch

Index: gcc-interface/utils.c
===================================================================
--- gcc-interface/utils.c	(revision 242863)
+++ gcc-interface/utils.c	(working copy)
@@ -3548,7 +3548,9 @@  max_size (tree exp, bool max_p)
 	{
 	  tree val_type = TREE_TYPE (TREE_OPERAND (exp, 1));
 	  tree val = (max_p ? TYPE_MAX_VALUE (type) : TYPE_MIN_VALUE (type));
-	  return max_size (convert (get_base_type (val_type), val), true);
+	  return
+	    convert (type,
+		     max_size (convert (get_base_type (val_type), val), true));
 	}
 
       return exp;