gcc/ch/expr.c

93 	error ("tuple without specified mode not allowed in %s", context);
97 	error ("internal error:  unknown expression mode in %s", context);
221   register enum machine_mode mode = TYPE_MODE (type);
232      if it's all in the wrong mode to form part of an address.
235   if (mode != Pmode && modifier == EXPAND_SUM)
375 		target = assign_stack_temp (mode, len0 + len1, 0);
383 		target = assign_stack_temp (mode, int_size_in_bytes (type), 0);
393 	  targetx = assign_stack_temp (mode, GET_MODE_SIZE (mode), 0);
707 build_chill_indirect_ref (ptr, mode, do_empty_check)
709      tree mode;
716   if (mode != NULL_TREE && TREE_CODE (mode) == ERROR_MARK)
734   if (mode && TREE_CODE (mode) == IDENTIFIER_NODE)
736       tree decl = lookup_name (mode);
740 	    error ("missing '.' operator or undefined mode name `%s'.",
741 		   IDENTIFIER_POINTER (mode));
744 	  error (" precede a STRUCT field reference, or `%s' is an undefined mode",
745 		 IDENTIFIER_POINTER (mode));
751   if (mode)
753       mode = get_type_of (mode);
754       ptr = convert (build_pointer_type (mode), ptr);
807 /* NODE is a COMPONENT_REF whose mode is an IDENTIFIER,
1191       error("ABS argument must be discrete or real mode");
1268       error ("mode mismatch in parameter 1.");
1309       error ("mode mismatch in parameter 1.");
1346       error ("mode mismatch in parameter 1.");
1410       error("CARD argument must be powerset mode");
1542       error ("argument 1 to `%s' must be of floating point mode", chillname);
1553 build_allocate_getstack (mode, value, chill_name, fnname, filename, linenumber)
1554      tree mode;
1565   if (mode == NULL_TREE || TREE_CODE (mode) == ERROR_MARK)
1568   if (TREE_CODE (mode) == TYPE_DECL)
1569     type = TREE_TYPE (mode);
1571     type = mode;
1573   /* check if we have a mode */
1576       error ("First argument to `%s' must be a mode", chill_name);
1634 build_chill_allocate (mode, value)
1635      tree mode;
1638   return build_allocate_getstack (mode, value, "ALLOCATE", "__allocate",
1644 build_chill_getstack (mode, value)
1645      tree mode;
1648   return build_allocate_getstack (mode, value, "GETSTACK", "__builtin_alloca",
1715       error ("argument 1 to INTTIME must be of mode TIME.");
1849 	      /* text mode name */
1862       error("LENGTH argument must be string, buffer, event mode, text location or mode");
1879       struct ch_class class;
1891 	    error ("UPPER argument must have a mode, or be a mode");
1893 	    error ("LOWER argument must have a mode, or be a mode");
1904 	  class.kind = CH_VALUE_CLASS;
1905 	  class.mode = type;
1906 	  return convert_to_class (class, val);
1912 	      class.kind = CH_DERIVED_CLASS;
1913 	      class.mode = integer_type_node;
1917 	      class.kind = CH_VALUE_CLASS;
1918 	      class.mode = TYPE_DOMAIN (type);
1921 	  return convert_to_class (class,
1927 	error("UPPER argument must be string, array, mode or integer");
1929 	error("LOWER argument must be string, array, mode or integer");
1965 	  error("%s argument must be POWERSET mode",
2084 	  error ("No integer mode which matches expression's mode");
2093 	    error ("NUM's parameter is below its mode range");
2096 	    error ("NUM's parameter is above its mode range");
2108       /* NUM delivers the INT derived class */
2122   struct ch_class class;
2156       error ("SUCC or PRED argument must be a discrete mode");
2160   class = chill_expr_class (expr);
2161   if (class.mode)
2162     class.mode = CH_ROOT_MODE (class.mode);
2163   etype = class.mode;
2189   return convert_to_class (class, expr);
2195  * TYPE may be a location or mode tree.  In pass 1, we build
2205       struct ch_class class;
2229 	    pedwarn ("size applied to a function mode");
2235 	    pedwarn ("sizeof applied to a void mode");
2240 	  error ("sizeof applied to an incomplete mode");
2259       class.kind = CH_DERIVED_CLASS;
2260       class.mode = integer_type_node;
2261       return convert_to_class (class, temp);
2470 		  error ("mode mismatch in parameter %d", parmno);
3334 	  result_class.mode = build_bitstring_type (result_size);
3347 	  result_class.mode = build_string_type (char_type_node, result_size);
3353 	      TYPE_MAX_VALUE (result_class.mode)
3363 	    SET_CH_NOVELTY_NONNIL (result_class.mode, novelty0);
3365 	    SET_CH_NOVELTY (result_class.mode,
3371       if (TREE_CODE (result_class.mode) == SET_TYPE
3383 	  res = expand_packed_set (buffer, size0 + size1, result_class.mode);
3386 	res = build (CONCAT_EXPR, result_class.mode, op0, op1);
3723       error ("relational operator not allowed for this mode");
3778       error ("Cannot use %s operator on PROC mode variable",
3914       struct ch_class class;
3915       class = CH_ROOT_RESULTING_CLASS (op0, op1);
3916       TREE_OPERAND (node, 0) = op0 = convert_to_class (class, op0);
3918       TREE_OPERAND (node, 1) = op1 = convert_to_class (class, op1);
3920       TREE_TYPE (node) = class.mode;
3921       folded = convert_to_class (class, fold (node));
4285   struct ch_class class;
4352   class = chill_expr_class (op0);
4353   if (class.mode)
4354     class.mode = CH_ROOT_MODE (class.mode);
4356   TREE_OPERAND (node, 0) = op0 = convert_to_class (class, op0);
4359   node = convert_to_class (class, fold (node));
4395     error ("non-boolean mode in conditional expression");