c-decl.c (grokdeclarator): Use ISO word.

	* c-decl.c (grokdeclarator): Use ISO word.
	* cppinit.c: Remove leading capital from diagnostic messages, as
	per GNU coding standards.
	* diagnostic.c: Similarly.
	* emit-rtl.c: Similarly.
	* final.c: Similarly.
	* gcc.c: Similarly.
	* tradcpp.c: Similarly.
	* config/arm/arm.c: Similarly.
	* config/arm/arm.h: Similarly.
	* config/avr/avr.c: Similarly.
	* config/avr/avr.h: Similarly.
	* config/c4x/c4x.c: Similarly.
	* config/cris/cris.c: Similarly.
	* config/cris/cris.h: Similarly.
	* config/d30v/d30v.c: Similarly.
	* config/dsp16xx/dsp16xx.c: Similarly.
	* config/dsp16xx/dsp16xx.h: Similarly.
	* config/h8300/h8300.c: Similarly.
	* config/i386/i386.c: Similarly.
	* config/i386/xm-djgpp.h: Similarly.
	* config/i960/i960.h: Similarly.
	* config/m32r/m32r.c: Similarly.
	* config/m68hc11/m68hc11.c: Similarly.
	* config/m88k/m88k.c: Similarly.
	* config/m88k/m88k.h: Similarly.
	* config/mcore/mcore.c: Similarly.
	* config/mcore/mcore.h: Similarly.
	* config/mips/mips.c: Similarly.
	* config/mmix/mmix.c: Similarly.
	* config/pa/pa.c: Similarly.
	* config/rs6000/rs6000.c: Similarly.
	* config/rs6000/sysv4.h: Similarly.
	* config/s390/s390.c: Similarly.
	* config/sparc/sparc.c: Similarly.
	* config/v850/v850-c.c: Similarly.
	* config/v850/v850.c: Similarly.
ch:
	* actions.c: Remove leading capital from diagnostic messages, as
	per GNU coding standards.
	* decl.c: Similarly.
	* expr.c: Similarly.
	* inout.c: Similarly.
	* lang.c: Similarly.
	* loop.c: Similarly.
	* nloop.c: Similarly.
	* parse.c: Similarly.
	* satisfy.c: Similarly.
	* tasking.c: Similarly.
	* tree.c: Similarly.
	* typeck.c: Similarly.
cp:
	* typeck2.c: Remove leading capital from diagnostic messages, as
	per GNU coding standards.
f:
	* com.c: Remove leading capital from diagnostic messages, as
	per GNU coding standards.
	* g77spec.c: Similarly.
	* lex.c: Similarly.
java:
	* expr.c: Remove leading capital from diagnostic messages, as
	per GNU coding standards.
	* jcf-io.c: Similarly.
	* jcf-parse.c: Similarly.
	* jv-scan.c: Similarly.
	* jvspec.c: Similarly.
	* mangle.c: Similarly.

From-SVN: r47558

15 files changed, 139 insertions, 123 deletions

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index af7c838..c3641f4 100644
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,19 @@
+2001-12-03  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+	* actions.c: Remove leading capital from diagnostic messages, as
+	per GNU coding standards.
+	* decl.c: Similarly.
+	* expr.c: Similarly.
+	* inout.c: Similarly.
+	* lang.c: Similarly.
+	* loop.c: Similarly.
+	* nloop.c: Similarly.
+	* parse.c: Similarly.
+	* satisfy.c: Similarly.
+	* tasking.c: Similarly.
+	* tree.c: Similarly.
+	* typeck.c: Similarly.
+
 2001-11-29  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* Make-lang.in (CHILL.generated-manpages): New dummy target.
diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index afbd423..b8b06eb 100644
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -1279,12 +1279,12 @@ chill_handle_multi_case_label (selector, label)
 	  tree high = TREE_OPERAND (label, 1);
 	  if (TREE_CODE (low) != INTEGER_CST)
 	    {
-	      error ("Lower bound of range must be a discrete literal expression");
+	      error ("lower bound of range must be a discrete literal expression");
 	      expr = error_mark_node;
 	    }
 	  if (TREE_CODE (high) != INTEGER_CST)
 	    {
-	      error ("Upper bound of range must be a discrete literal expression");
+	      error ("upper bound of range must be a discrete literal expression");
 	      expr = error_mark_node;
 	    }
 	  if (expr != error_mark_node)
@@ -1308,7 +1308,7 @@ chill_handle_multi_case_label (selector, label)
     }
   else
     {
-      error ("The CASE label is not valid");
+      error ("CASE label is not valid");
       expr = error_mark_node;
     }
 
@@ -1354,7 +1354,7 @@ build_multi_case_selector_expression (selector_list, label_spec)
     }
 
   if (labels != NULL_TREE || selector != NULL_TREE)
-    error ("The number of CASE selectors does not match the number of CASE label lists");
+    error ("number of CASE selectors does not match the number of CASE label lists");
 
   return larg;
 }
@@ -1603,7 +1603,7 @@ chill_expand_assignment (lhs, modifycode, rhs)
 	  tree type = TREE_TYPE (decl);
 	  if (CH_IS_BUFFER_MODE (type) || CH_IS_EVENT_MODE (type))
 	    {
-	      error ("You may not assign a value to a BUFFER or EVENT location");
+	      error ("you may not assign a value to a BUFFER or EVENT location");
 	      return;
 	    }
 	}
@@ -1811,7 +1811,7 @@ expand_varying_length_assignment (lhs, rhs)
       
   if (! CH_LOCATION_P (lhs))
     {
-      error ("Can only set LENGTH of array location");
+      error ("can only set LENGTH of array location");
       return;
     }
 
diff --git a/gcc/ch/decl.c b/gcc/ch/decl.c
index f1f5383..9b8592f 100644
--- a/gcc/ch/decl.c
+++ b/gcc/ch/decl.c
@@ -2278,7 +2278,7 @@ find_granted_decls ()
 	    }
 	  if (!found)
 	    {
-	      error_with_decl (alias, "Nothing named `%s' to grant.");
+	      error_with_decl (alias, "nothing named `%s' to grant");
 	      DECL_ABSTRACT_ORIGIN (alias) = error_mark_node;
 	    }
 	}
@@ -4615,7 +4615,7 @@ build_enumerator (name, value)
       if (!unnamed_value_warned)
 	{
 	  unnamed_value_warned = 1;
-	  warning ("undefined value in SET mode is obsolete and deprecated.");
+	  warning ("undefined value in SET mode is obsolete and deprecated");
 	}
       sprintf (buf, "__star_%d", next_dummy_enum_value++);
       name = get_identifier (buf);
diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c
index 59371e8..9a1ab09 100644
--- a/gcc/ch/expr.c
+++ b/gcc/ch/expr.c
@@ -684,9 +684,9 @@ check_arglist_length (args, min_length, max_length, name)
 {
   int length = list_length (args);
   if (length < min_length)
-    error ("Too few arguments in call to `%s'", IDENTIFIER_POINTER (name));
+    error ("too few arguments in call to `%s'", IDENTIFIER_POINTER (name));
   else if (max_length != -1 && length > max_length)
-    error ("Too many arguments in call to `%s'", IDENTIFIER_POINTER (name));
+    error ("too many arguments in call to `%s'", IDENTIFIER_POINTER (name));
   else
     return length;
   return -1;
@@ -755,7 +755,7 @@ build_chill_indirect_ref (ptr, mode, do_empty_check)
   /* check for ptr is really a POINTER */
   if (TREE_CODE (type) != POINTER_TYPE)
     {
-      error ("cannot dereference, not a pointer.");
+      error ("cannot dereference, not a pointer");
       return error_mark_node;
     }
   
@@ -765,10 +765,10 @@ build_chill_indirect_ref (ptr, mode, do_empty_check)
       if (decl == NULL_TREE || TREE_CODE (decl) != TYPE_DECL)
 	{
 	  if (pass == 2)
-	    error ("missing '.' operator or undefined mode name `%s'.",
+	    error ("missing '.' operator or undefined mode name `%s'",
 		   IDENTIFIER_POINTER (mode));
 #if 0
-	  error ("You have forgotten the '.' operator which must");
+	  error ("you have forgotten the '.' operator which must");
 	  error (" precede a STRUCT field reference, or `%s' is an undefined mode", 
 		 IDENTIFIER_POINTER (mode));
 #endif
@@ -783,7 +783,7 @@ build_chill_indirect_ref (ptr, mode, do_empty_check)
     }
   else if (type == ptr_type_node)
     {
-      error ("Can't dereference PTR value using unary `->'.");
+      error ("can't dereference PTR value using unary `->'");
       return error_mark_node;
     }
 
@@ -906,7 +906,7 @@ resolve_component_ref (node)
 	}
     }
 
-  error ("No field named `%s'", IDENTIFIER_POINTER (field_name));
+  error ("no field named `%s'", IDENTIFIER_POINTER (field_name));
   return error_mark_node;
 }
 
@@ -1247,7 +1247,7 @@ build_chill_abstime (exprlist)
 	had_errors = 1;
       else if (TREE_CODE (TREE_TYPE (exp)) != INTEGER_TYPE)
 	{
-	  error ("argument %d to ABSTIME must be of integer type.", i);
+	  error ("argument %d to ABSTIME must be of integer type", i);
 	  had_errors = 1;
 	}
       tmp = TREE_CHAIN (tmp);
@@ -1285,20 +1285,20 @@ build_allocate_memory_call (ptr, size)
   /* check for ptr is referable */
   if (! CH_REFERABLE (ptr))
     {
-      error ("parameter 1 must be referable.");
+      error ("parameter 1 must be referable");
       err++;
     }
    /* check for pointer */
   else if (TREE_CODE (TREE_TYPE (ptr)) != POINTER_TYPE)
     {
-      error ("mode mismatch in parameter 1.");
+      error ("mode mismatch in parameter 1");
       err++;
     }
 
   /* check for size > 0 if it is a constant */
   if (TREE_CODE (size) == INTEGER_CST && TREE_INT_CST_LOW (size) <= 0)
     {
-      error ("parameter 2 must be a positive integer.");
+      error ("parameter 2 must be a positive integer");
       err++;
     }
   if (err)
@@ -1326,20 +1326,20 @@ build_allocate_global_memory_call (ptr, size)
   /* check for ptr is referable */
   if (! CH_REFERABLE (ptr))
     {
-      error ("parameter 1 must be referable.");
+      error ("parameter 1 must be referable");
       err++;
     }
   /* check for pointer */
   else if (TREE_CODE (TREE_TYPE (ptr)) != POINTER_TYPE)
     {
-      error ("mode mismatch in parameter 1.");
+      error ("mode mismatch in parameter 1");
       err++;
     }
 
   /* check for size > 0 if it is a constant */
   if (TREE_CODE (size) == INTEGER_CST && TREE_INT_CST_LOW (size) <= 0)
     {
-      error ("parameter 2 must be a positive integer.");
+      error ("parameter 2 must be a positive integer");
       err++;
     }
   if (err)
@@ -1369,7 +1369,7 @@ build_return_memory (ptr)
   /* check for pointer */
   if (TREE_CODE (TREE_TYPE (ptr)) != POINTER_TYPE)
     {
-      error ("mode mismatch in parameter 1.");
+      error ("mode mismatch in parameter 1");
       return error_mark_node;
     }
 
@@ -1484,7 +1484,7 @@ build_chill_descr (expr)
       /* check for expression is referable */
       if (! CH_REFERABLE (expr))
 	{
-	  error ("expression for DESCR-builtin must be referable.");
+	  error ("expression for DESCR-builtin must be referable");
 	  return error_mark_node;
 	}
       
@@ -1532,7 +1532,7 @@ build_chill_duration (expr, multiplier, fnname, maxvalue)
 
   if (TREE_CODE (TREE_TYPE (expr)) != INTEGER_TYPE)
     {
-      error ("argument to `%s' must be of integer type.", IDENTIFIER_POINTER (fnname));
+      error ("argument to `%s' must be of integer type", IDENTIFIER_POINTER (fnname));
       return error_mark_node;
     }
 
@@ -1599,7 +1599,7 @@ build_allocate_getstack (mode, value, chill_name, fnname, filename, linenumber)
   /* check if we have a mode */
   if (TREE_CODE_CLASS (TREE_CODE (type)) != 't')
     {
-      error ("First argument to `%s' must be a mode", chill_name);
+      error ("first argument to `%s' must be a mode", chill_name);
       return error_mark_node;
     }
 
@@ -1738,7 +1738,7 @@ build_chill_inttime (t, loclist)
   /* check first argument to be NEWMODE TIME */
   if (TREE_TYPE (t) != abs_timing_type_node)
     {
-      error ("argument 1 to INTTIME must be of mode TIME.");
+      error ("argument 1 to INTTIME must be of mode TIME");
       had_errors = 1;
     }
 
@@ -1779,7 +1779,7 @@ build_chill_inttime (t, loclist)
 	    }
 	  /* FIXME: what's about ranges can't hold the result ?? */
 	  if (write_error)
-	    error ("%s.", errmsg);
+	    error ("%s", errmsg);
 	}
       /* next location */
       tmp = TREE_CHAIN (tmp);
@@ -2107,7 +2107,7 @@ build_chill_num (expr)
 			    need_unsigned);
       if (temp == NULL_TREE)
 	{
-	  error ("No integer mode which matches expression's mode");
+	  error ("no integer mode which matches expression's mode");
 	  return integer_zero_node;
 	}
       temp = convert (temp, expr);
@@ -2158,7 +2158,7 @@ build_chill_pred_or_succ (expr, op)
   if (TREE_CODE (TREE_TYPE (expr)) == ENUMERAL_TYPE
       && CH_ENUM_IS_NUMBERED (TREE_TYPE (expr)))
     {
-      error ("Cannot take SUCC or PRED of a numbered SET");
+      error ("cannot take SUCC or PRED of a numbered SET");
       return error_mark_node;
     }
   
@@ -2166,10 +2166,10 @@ build_chill_pred_or_succ (expr, op)
     {
       if (TREE_TYPE (TREE_TYPE (expr)) == void_type_node)
 	{
-	  error ("SUCC or PRED must not be done on a PTR.");
+	  error ("SUCC or PRED must not be done on a PTR");
 	  return error_mark_node;
 	}
-      pedwarn ("SUCC or PRED for a reference type is not standard.");
+      pedwarn ("SUCC or PRED for a reference type is not standard");
       return fold (build (op, TREE_TYPE (expr),
 			  expr,
 			  size_in_bytes (TREE_TYPE (TREE_TYPE (expr)))));
@@ -2200,7 +2200,7 @@ build_chill_pred_or_succ (expr, op)
   if (TREE_CODE (cond) == INTEGER_CST
       && tree_int_cst_equal (cond, integer_one_node))
     {
-      error ("Taking the %s of a value already at its %s value",
+      error ("taking the %s of a value already at its %s value",
 	     op == PLUS_EXPR ? "SUCC" : "PRED",
 	     op == PLUS_EXPR ? "maximum" : "minimum");
       return error_mark_node;
@@ -3456,7 +3456,7 @@ build_compare_string_expr (code, op0, op1)
     case NE_EXPR:
       return invert_truthvalue (build_compare_string_expr (EQ_EXPR, op0, op1));
     default:
-      error ("Invalid operation on array of chars");
+      error ("invalid operation on array of chars");
       return error_mark_node;
     }
 
@@ -3791,7 +3791,7 @@ finish_chill_binary_op (node)
       op1 = convert (build_pointer_type (TREE_TYPE (op1)), op1);
     if ((op0f || op1f)
 	&& code != EQ_EXPR && code != NE_EXPR)
-      error ("Cannot use %s operator on PROC mode variable",
+      error ("cannot use %s operator on PROC mode variable",
 	     tree_code_name[(int)code]);
   }
 
diff --git a/gcc/ch/grant.c b/gcc/ch/grant.c
index 806c944..f143aec 100644
--- a/gcc/ch/grant.c
+++ b/gcc/ch/grant.c
@@ -2822,7 +2822,7 @@ really_grant_this (decl, granted_decls)
     }
 
   /* this nerver should happen */
-  error_with_decl (decl, "function \"really_grant_this\" called for `%s'.");
+  error_with_decl (decl, "function \"really_grant_this\" called for `%s'");
   return 1;
 }
 
diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c
index 2f747ce..d83f1bd 100644
--- a/gcc/ch/inout.c
+++ b/gcc/ch/inout.c
@@ -2028,7 +2028,7 @@ build_chill_modify (assoc, list)
       attr = TREE_VALUE (TREE_CHAIN (list));
       break;
     default:
-      error ("Too many arguments in call to MODIFY");
+      error ("too many arguments in call to MODIFY");
       had_errors = 1;
       break;
     }
@@ -2542,7 +2542,7 @@ build_chill_readrecord (access, optionals)
       /* we must have an index */
       if (!len)
 	{
-	  error ("Too few arguments in call to `readrecord'");
+	  error ("too few arguments in call to `readrecord'");
 	  return error_mark_node;
 	}
       index = TREE_VALUE (optionals);
@@ -2613,7 +2613,7 @@ build_chill_writerecord (access, optionals)
   len = list_length (optionals);
   if (indexmode != void_type_node && len != 2)
     {
-      error ("Too few arguments in call to `writerecord'");
+      error ("too few arguments in call to `writerecord'");
       return error_mark_node;
     }
   if (indexmode != void_type_node)
@@ -3138,7 +3138,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
 			enumname = "__IO_LongRangeLoc";
 		      break;
 		    default:
-		      error ("Cannot process %d bits integer for READTEXT argument %d.",
+		      error ("cannot process %d bits integer for READTEXT argument %d",
 			     type_size, idxcnt + 1 + argoffset);
 		      continue;
 		    }
@@ -3184,7 +3184,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
 			enumname = "__IO_LongLoc";
 		      break;
 		    default:
-		      error ("Cannot process %d bits integer for READTEXT argument %d.",
+		      error ("cannot process %d bits integer for READTEXT argument %d",
 			     type_size, idxcnt + 1 + argoffset);
 		      continue;
 		    }
@@ -3259,7 +3259,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
 			  goto try_long;
 			}
 		    }
-		  error ("Cannot process %d bits integer WRITETEXT argument %d.",
+		  error ("cannot process %d bits integer WRITETEXT argument %d",
 			 type_size, idxcnt + 1 + argoffset);
 		  continue;
 		}
@@ -3722,7 +3722,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
       else
 	{
 	  /* datatype is not yet implemented, issue a warning */
-	  error ("cannot process mode of argument %d for %sTEXT.", idxcnt + 1 + argoffset,
+	  error ("cannot process mode of argument %d for %sTEXT", idxcnt + 1 + argoffset,
 		 do_read ? "READ" : "WRITE");
 	  enumname = "__IO_UNUSED";
 	}
@@ -4358,7 +4358,7 @@ build_chill_writetext (text_arg, exprlist)
 	    }
 	  if (exprlist == NULL_TREE)
 	    {
-	      error ("Too few arguments in call to `writetext'");
+	      error ("too few arguments in call to `writetext'");
 	      return error_mark_node;
 	    }
 	  format_str = TREE_VALUE (exprlist);
@@ -4506,7 +4506,7 @@ build_chill_readtext (text_arg, exprlist)
 	    }
 	  if (exprlist == NULL_TREE)
 	    {
-	      error ("Too few arguments in call to `readtext'");
+	      error ("too few arguments in call to `readtext'");
 	      return error_mark_node;
 	    }
 	  format_str = TREE_VALUE (exprlist);
diff --git a/gcc/ch/lang.c b/gcc/ch/lang.c
index b698b29..5c943fe 100644
--- a/gcc/ch/lang.c
+++ b/gcc/ch/lang.c
@@ -188,8 +188,8 @@ lang_decode_option (argc, argv)
       explicit_ignore_case = 1;
       if (special_UC)
 	{
-	  error ("Ignoring case upon input and");
-	  error ("making special words uppercase wouldn't work.");
+	  error ("ignoring case upon input and");
+	  error ("making special words uppercase wouldn't work");
 	}
       else
 	ignore_case = 1;
@@ -200,8 +200,8 @@ lang_decode_option (argc, argv)
     {
       if (explicit_ignore_case)
 	{
-	  error ("Making special words uppercase and");
-	  error (" ignoring case upon input wouldn't work.");
+	  error ("making special words uppercase and");
+	  error (" ignoring case upon input wouldn't work");
 	}
       else
 	special_UC = 1, ignore_case = 0;
diff --git a/gcc/ch/loop.c b/gcc/ch/loop.c
index 8322b96..393349b 100644
--- a/gcc/ch/loop.c
+++ b/gcc/ch/loop.c
@@ -523,7 +523,7 @@ build_loop_iterator (user_var, start_exp, step_exp, end_exp,
 	ip->itype = DO_LOC_VARYING;
       else
 	{
-	  error ("Loop's IN expression is not a composite object");
+	  error ("loop's IN expression is not a composite object");
 	  return;
 	}
     }
@@ -844,7 +844,7 @@ declare_temps ()
 	      
 	      if (TREE_CODE (TREE_TYPE (array_type)) == BOOLEAN_TYPE)
 		{
-		  error ("Can't iterate through array of BOOL");
+		  error ("can't iterate through array of BOOL");
 		  firstp->error_flag = 1;
 		  return firstp->error_flag;
 		}
diff --git a/gcc/ch/nloop.c b/gcc/ch/nloop.c
index 579041a..2a7a460 100644
--- a/gcc/ch/nloop.c
+++ b/gcc/ch/nloop.c
@@ -478,7 +478,7 @@ build_loop_iterator (user_var, start_exp, step_exp, end_exp,
 	ip->itype = DO_LOC_VARYING;
       else
 	{
-	  error ("Loop's IN expression is not a composite object");
+	  error ("loop's IN expression is not a composite object");
 	  return;
 	}
     }
@@ -814,7 +814,7 @@ declare_temps ()
 	      
 	      if (TREE_CODE (TREE_TYPE (array_type)) == BOOLEAN_TYPE)
 		{
-		  error ("Can't iterate through array of BOOL");
+		  error ("can't iterate through array of BOOL");
 		  ip->error_flag = 1;
 		  return ip->error_flag;
 		}
diff --git a/gcc/ch/parse.c b/gcc/ch/parse.c
index afcf142..0c482dd 100644
--- a/gcc/ch/parse.c
+++ b/gcc/ch/parse.c
@@ -223,7 +223,7 @@ end_function ()
 	  if (result_never_set
 	      && TREE_CODE (TREE_TYPE (TREE_TYPE (current_function_decl)))
 	      != VOID_TYPE)
-	    warning ("No RETURN or RESULT in procedure");
+	    warning ("no RETURN or RESULT in procedure");
 	  chill_expand_return (NULL_TREE, 1);
 	}
     }
@@ -2385,7 +2385,7 @@ parse_do_action (label)
     {
       push_handler ();
       parse_opt_actions ();
-      expect (OD, "Missing 'OD' after 'DO'");
+      expect (OD, "missing 'OD' after 'DO'");
       parse_opt_handler ();
       parse_opt_end_label_semi_colon (label);
       return;
@@ -2424,7 +2424,7 @@ parse_do_action (label)
   parse_opt_actions ();
   if (! ignoring)
     build_loop_end (); 
-  expect (OD, "Missing 'OD' after 'DO'");
+  expect (OD, "missing 'OD' after 'DO'");
   /* Note that the handler is inside the reach of the DO. */
   parse_opt_handler ();
   end_loop_scope (label);
@@ -2942,7 +2942,7 @@ parse_action ()
 
  no_handler_action:
   if (parse_opt_handler () != NULL_TREE && pass == 1)
-    error ("no handler is permitted on this action.");
+    error ("no handler is permitted on this action");
   parse_semi_colon ();
   return 1;
 
@@ -4326,7 +4326,7 @@ set_yydebug (value)
 #if YYDEBUG != 0
   yydebug = value;
 #else
-  warning ("YYDEBUG not defined.");
+  warning ("YYDEBUG not defined");
 #endif
 }
 #endif
diff --git a/gcc/ch/satisfy.c b/gcc/ch/satisfy.c
index a15d9e2..00d90f8 100644
--- a/gcc/ch/satisfy.c
+++ b/gcc/ch/satisfy.c
@@ -87,7 +87,7 @@ safe_satisfy_decl (decl, prev_chain)
 	    {
 	      if (!pointer_type_breaks_cycle)
 		{
-		  error_with_decl (decl, "Cycle: `%s' depends on ...");
+		  error_with_decl (decl, "cycle: `%s' depends on ...");
 		  cycle_error_print (prev_chain, decl);
 		  error_with_decl (decl, "  `%s'");
 		  return error_mark_node;
diff --git a/gcc/ch/tasking.c b/gcc/ch/tasking.c
index 8a12e4d..d1b7905 100644
--- a/gcc/ch/tasking.c
+++ b/gcc/ch/tasking.c
@@ -167,7 +167,7 @@ generate_tasking_code_variable (name, tasking_code_ptr, quasi_flag)
       /* check for value should be assigned is out of range */
       if (TREE_INT_CST_LOW (*tasking_code_ptr) >
 	  TREE_INT_CST_LOW (TYPE_MAX_VALUE (chill_taskingcode_type_node)))
-	  error ("Tasking code %ld out of range for `%s'.",
+	  error ("tasking code %ld out of range for `%s'",
 		 (long) TREE_INT_CST_LOW (*tasking_code_ptr),
 		 IDENTIFIER_POINTER (name));
     }
@@ -215,7 +215,7 @@ decl_tasking_code_variable (name, tasking_code_ptr, quasi_flag)
       /* check for value should be assigned is out of range */
       if (TREE_INT_CST_LOW (*tasking_code_ptr) >
 	  TREE_INT_CST_LOW (TYPE_MAX_VALUE (chill_taskingcode_type_node)))
-	  error ("Tasking code %ld out of range for `%s'.",
+	  error ("tasking code %ld out of range for `%s'",
 		 (long) TREE_INT_CST_LOW (*tasking_code_ptr),
 		 IDENTIFIER_POINTER (name));
     }
@@ -281,7 +281,7 @@ make_process_struct (name, processparlist)
 	    {
 	      for (field = parnamelist; field != NULL_TREE;
 		   field = TREE_CHAIN (field))
-	        error ("invalid attribute for argument `%s' (only IN or LOC allowed).",
+	        error ("invalid attribute for argument `%s' (only IN or LOC allowed)",
 		       IDENTIFIER_POINTER (TREE_VALUE (field)));
 	    }
 	}
@@ -551,7 +551,7 @@ build_start_process (process_name, copynum,
       else if (TREE_CODE (process_decl) != FUNCTION_DECL
 	  || ! CH_DECL_PROCESS (process_decl))
 	{
-	  error ("You may only START a process, not a proc");
+	  error ("you may only START a process, not a proc");
 	  process_decl = NULL_TREE;
 	}
       else if (DECL_EXTERNAL (process_decl))
@@ -587,7 +587,7 @@ build_start_process (process_name, copynum,
       if (optset == NULL_TREE) ;
       else if (!CH_REFERABLE (optset))
 	{
-	  error ("SET expression not a location.");
+	  error ("SET expression not a location");
 	  optset = NULL_TREE;
 	}
       else if (!CH_IS_INSTANCE_MODE (TREE_TYPE (optset)))
@@ -1004,7 +1004,7 @@ build_gen_code (decl)
     result = (tree)(DECL_TASKING_CODE_DECL (decl));
   else
     {
-      error ("GEN_CODE argument must be a process or signal name.");
+      error ("GEN_CODE argument must be a process or signal name");
       return error_mark_node;
     }
   CH_DERIVED_FLAG (result) = 1;
@@ -1136,7 +1136,7 @@ build_queue_length (buf_ev)
                       tree_cons (NULL_TREE, arg2, NULL_TREE)));
     }
 
-  error ("QUEUE_LENGTH argument must be a BUFFER/EVENT location.");
+  error ("QUEUE_LENGTH argument must be a BUFFER/EVENT location");
   return error_mark_node;
 }
 
@@ -1395,7 +1395,7 @@ expand_send_signal (sigmsgbuffer, optroutinginfo, optsendto,
 	  /* issue a warning in case of -Wall */
 	  if (extra_warnings)
 	    {
-	      warning ("Signal sent without priority");
+	      warning ("signal sent without priority");
 	      warning (" and no default priority was set.");
 	      warning (" PRIORITY defaulted to 0");
 	    }
@@ -1433,7 +1433,7 @@ expand_send_signal (sigmsgbuffer, optroutinginfo, optsendto,
                           tree_cons (NULL_TREE, copy_number, NULL_TREE)));
 	  /* as our system doesn't allow that and Z.200 specifies it,
 	     we issue a warning */
-	  warning ("SEND to ANY copy of process `%s'.", IDENTIFIER_POINTER (process_name));
+	  warning ("SEND to ANY copy of process `%s'", IDENTIFIER_POINTER (process_name));
         }
     }
   else if (! CH_IS_INSTANCE_MODE (TREE_TYPE (optsendto)))
@@ -1721,7 +1721,7 @@ build_receive_case_if_generated()
 {
   if (!current_rc_state)
     {
-      error ("internal error: RECEIVE CASE stack invalid.");
+      error ("internal error: RECEIVE CASE stack invalid");
       abort ();
     }
   return current_rc_state->if_generated;
@@ -1953,13 +1953,13 @@ build_receive_buffer_case_label (buffer, loclist)
 
   if (! CH_REFERABLE (buffer))
     {
-      error ("BUFFER in RECEIVE CASE alternative must be a location.");
+      error ("BUFFER in RECEIVE CASE alternative must be a location");
       return error_mark_node;
     }
 
   if (TREE_CHAIN (loclist) != NULL_TREE)
     {
-      error ("buffer receive alternative requires only 1 defining occurrence.");
+      error ("buffer receive alternative requires only 1 defining occurrence");
       return error_mark_node;
     }
 
@@ -2040,13 +2040,13 @@ build_receive_buffer_case_label (buffer, loclist)
     had_errors = 1;
   else if (! CH_COMPATIBLE (var, buftype))
     {
-      error ("incompatible modes in receive buffer alternative.");
+      error ("incompatible modes in receive buffer alternative");
       had_errors = 1;
     }
 
   if (! CH_LOCATION_P (var))
     {
-      error ("defining occurrence in receive buffer alternative must be a location.");
+      error ("defining occurrence in receive buffer alternative must be a location");
       had_errors = 1;
     }
 
@@ -2083,13 +2083,13 @@ build_receive_case_label (signame, loclist)
     {
       if (loclist == NULL_TREE)
 	{
-	  error ("buffer receive alternative without `IN location'.");
+	  error ("buffer receive alternative without `IN location'");
 	  return error_mark_node;
 	}
       return build_receive_buffer_case_label (signame, loclist);
     }
 
-  error ("RECEIVE CASE alternative must specify a SIGNAL name or BUFFER location.");
+  error ("RECEIVE CASE alternative must specify a SIGNAL name or BUFFER location");
   return error_mark_node;
 }
 
@@ -2366,7 +2366,7 @@ void expand_continue_event (evloc)
 
   if (! CH_REFERABLE (evloc) || ! CH_IS_EVENT_MODE (TREE_TYPE (evloc)))
     {
-      error ("CONTINUE requires an event location.");
+      error ("CONTINUE requires an event location");
       return;
     }
 
@@ -2500,7 +2500,7 @@ build_delay_case_start (optset, optpriority)
     optpriority = integer_zero_node;
   else if (TREE_CODE (TREE_TYPE (optpriority)) != INTEGER_TYPE)
     {
-      error ("PRIORITY must be of integer type.");
+      error ("PRIORITY must be of integer type");
       optpriority = integer_zero_node;
     }
 
@@ -2578,7 +2578,7 @@ build_delay_case_label (eventlist, if_or_elseif)
 	temp1 = null_pointer_node;
       else if (! CH_IS_EVENT_MODE (TREE_TYPE (event)) || ! CH_REFERABLE (event))
 	{
-	  error ("delay alternative must be an EVENT location.");
+	  error ("delay alternative must be an EVENT location");
 	  temp1 = null_pointer_node;
 	}
       else
@@ -2753,7 +2753,7 @@ build_delay_action (event, optpriority)
     had_errors = 1;
   else if (! CH_IS_EVENT_MODE (TREE_TYPE (event)) || ! CH_REFERABLE (event))
     {
-      error ("DELAY action requires an event location.");
+      error ("DELAY action requires an event location");
       had_errors = 1;
     }
 
@@ -2764,7 +2764,7 @@ build_delay_action (event, optpriority)
 	return;
       if (TREE_CODE (TREE_TYPE (optpriority)) != INTEGER_TYPE)
 	{
-	  error ("PRIORITY in DELAY action must be of integer type.");
+	  error ("PRIORITY in DELAY action must be of integer type");
 	  return;
 	}
     }
@@ -2774,7 +2774,7 @@ build_delay_action (event, optpriority)
       if (extra_warnings)
 	{
 	  warning ("DELAY action without priority.");
-	  warning (" PRIORITY defaulted to 0.");
+	  warning (" PRIORITY defaulted to 0");
 	}
       optpriority = integer_zero_node;
     }
@@ -2864,7 +2864,7 @@ expand_send_buffer (buffer, value, optpriority, optwith, optto)
     {
       if (! CH_IS_BUFFER_MODE (TREE_TYPE (buffer)) || ! CH_REFERABLE (buffer))
 	{
-	  error ("send buffer action requires a BUFFER location.");
+	  error ("send buffer action requires a BUFFER location");
 	  had_errors = 1;
 	}
       else
@@ -2881,7 +2881,7 @@ expand_send_buffer (buffer, value, optpriority, optwith, optto)
     {
       if (TREE_CHAIN (value) != NULL_TREE)
 	{
-	  error ("there must be only 1 value for send buffer action.");
+	  error ("there must be only 1 value for send buffer action");
 	  had_errors = 1;
 	}
       else
@@ -2902,13 +2902,13 @@ expand_send_buffer (buffer, value, optpriority, optwith, optto)
 		  value = convert (TREE_TYPE (buffer_mode_decl), value);
 		  if (value == NULL_TREE || TREE_CODE (value) == ERROR_MARK)
 		    {
-		      error ("convert failed for send buffer action.");
+		      error ("convert failed for send buffer action");
 		      had_errors = 1;
 		    }
 		}
 	      else
 		{
-		  error ("incompatible modes in send buffer action.");
+		  error ("incompatible modes in send buffer action");
 		  had_errors = 1;
 		}
 	    }
@@ -2923,9 +2923,9 @@ expand_send_buffer (buffer, value, optpriority, optwith, optto)
 	  /* issue a warning in case of -Wall */
 	  if (extra_warnings)
 	    {
-	      warning ("Buffer sent without priority");
+	      warning ("buffer sent without priority");
 	      warning (" and no default priority was set.");
-	      warning (" PRIORITY defaulted to 0.");
+	      warning (" PRIORITY defaulted to 0");
 	    }
 	  optpriority = integer_zero_node;
 	}
@@ -2936,18 +2936,18 @@ expand_send_buffer (buffer, value, optpriority, optwith, optto)
     had_errors = 1;
   else if (TREE_CODE (TREE_TYPE (optpriority)) != INTEGER_TYPE)
     {
-      error ("PRIORITY must be of integer type.");
+      error ("PRIORITY must be of integer type");
       had_errors = 1;
     }
 
   if (optwith != NULL_TREE)
     {
-      error ("WITH not allowed for send buffer action.");
+      error ("WITH not allowed for send buffer action");
       had_errors = 1;
     }
   if (optto != NULL_TREE)
     {
-      error ("TO not allowed for send buffer action.");
+      error ("TO not allowed for send buffer action");
       had_errors = 1;
     }
   if (had_errors)
diff --git a/gcc/ch/timing.c b/gcc/ch/timing.c
index c53fed7..432ded2 100644
--- a/gcc/ch/timing.c
+++ b/gcc/ch/timing.c
@@ -221,7 +221,7 @@ build_at_action (t)
   
   if (TREE_TYPE (abstime) != abs_timing_type_node)
     {
-      error ("absolute time value must be of mode TIME.");
+      error ("absolute time value must be of mode TIME");
       abstime = convert (abs_timing_type_node, build_int_2 (0, 0));
     }
   filename = force_addr_of (get_chill_filename ());
@@ -278,7 +278,7 @@ build_cycle_start (t)
       
       if (TREE_TYPE (duration_value) != duration_timing_type_node)
 	{
-	  error ("duration primitive value must be of mode DURATION.");
+	  error ("duration primitive value must be of mode DURATION");
 	  duration_value = convert (duration_timing_type_node, build_int_2 (0,0));
 	}
       TREE_PURPOSE (TREE_PURPOSE (toid)) = duration_value;
@@ -361,7 +361,7 @@ build_after_start (duration, delay_flag)
       
       if (TREE_TYPE (duration) != duration_timing_type_node)
         {
-	  error ("duration primitive value must be of mode DURATION.");
+	  error ("duration primitive value must be of mode DURATION");
 	  duration = convert (duration_timing_type_node, build_int_2 (0,0));
         }
       TREE_PURPOSE (value) = decl_temp1 (get_identifier ("AFTER_duration"),
diff --git a/gcc/ch/tree.c b/gcc/ch/tree.c
index 0347d66..e9fa650 100644
--- a/gcc/ch/tree.c
+++ b/gcc/ch/tree.c
@@ -109,7 +109,7 @@ layout_powerset_type (type)
 
   if (! discrete_type_p (domain))
     {
-      error ("Can only build a powerset from a discrete mode");
+      error ("can only build a powerset from a discrete mode");
       return error_mark_node;
     }
 
diff --git a/gcc/ch/typeck.c b/gcc/ch/typeck.c
index 12d3f99..ab806bb 100644
--- a/gcc/ch/typeck.c
+++ b/gcc/ch/typeck.c
@@ -2811,29 +2811,29 @@ apply_chill_array_layout (array_type)
   if (TREE_VALUE (temp) != NULL_TREE)
     {
       if (! host_integerp (TREE_VALUE (temp), 0))
-	error ("Stepsize in STEP must be an integer constant");
+	error ("stepsize in STEP must be an integer constant");
       else
 	{
 	  if (tree_int_cst_sgn (TREE_VALUE (temp)) <= 0)
-	    error ("Stepsize in STEP must be > 0");
+	    error ("stepsize in STEP must be > 0");
 	  else
 	    stepsize_specified = 1;
 
 	  stepsize = tree_low_cst (TREE_VALUE (temp), 1);
 	  if (stepsize != natural_length)
-	    sorry ("Stepsize in STEP must be the natural width of the array element mode");
+	    sorry ("stepsize in STEP must be the natural width of the array element mode");
 	}
     }
 
   temp = TREE_PURPOSE (temp);
   if (! host_integerp (TREE_PURPOSE (temp), 0))
-    error ("Starting word in POS must be an integer constant");
+    error ("starting word in POS must be an integer constant");
   else
     {
       if (tree_int_cst_sgn (TREE_PURPOSE (temp)) < 0)
-	error ("Starting word in POS must be >= 0");
+	error ("starting word in POS must be >= 0");
       if (! integer_zerop (TREE_PURPOSE (temp)))
-	sorry ("Starting word in POS within STEP must be 0");
+	sorry ("starting word in POS within STEP must be 0");
 
       word = tree_low_cst (TREE_PURPOSE (temp), 0);
     }
@@ -2845,17 +2845,17 @@ apply_chill_array_layout (array_type)
       int wordsize = TYPE_PRECISION (chill_integer_type_node);
       if (! host_integerp (TREE_PURPOSE (temp), 0))
 	{
-	  error ("Starting bit in POS must be an integer constant");
+	  error ("starting bit in POS must be an integer constant");
 	  start_bit_error = 1;
 	}
       else
 	{
 	  if (! integer_zerop (TREE_PURPOSE (temp)))
-	    sorry ("Starting bit in POS within STEP must be 0");
+	    sorry ("starting bit in POS within STEP must be 0");
 
 	  if (tree_int_cst_sgn (TREE_PURPOSE (temp)) < 0)
 	    {
-	      error ("Starting bit in POS must be >= 0");
+	      error ("starting bit in POS must be >= 0");
 	      start_bit = 0;
 	      start_bit_error = 1;
 	    }
@@ -2863,7 +2863,7 @@ apply_chill_array_layout (array_type)
 	  start_bit = tree_low_cst (TREE_PURPOSE (temp), 0);
 	  if (start_bit >= wordsize)
 	    {
-	      error ("Starting bit in POS must be < the width of a word");
+	      error ("starting bit in POS must be < the width of a word");
 	      start_bit = 0;
 	      start_bit_error = 1;
 	    }
@@ -2877,21 +2877,21 @@ apply_chill_array_layout (array_type)
 	    {
 	      if (! host_integerp (TREE_VALUE (temp), 0))
 		{
-		  error ("Length in POS must be an integer constant");
+		  error ("length in POS must be an integer constant");
 		  length_error = 1;
 		}
 	      else
 		{
 		  length = tree_low_cst (TREE_VALUE (temp), 0);
 		  if (length <= 0)
-		    error ("Length in POS must be > 0");
+		    error ("length in POS must be > 0");
 		}
 	    }
 	  else
 	    {
 	      if (! host_integerp (TREE_VALUE (temp), 0))
 		{
-		  error ("End bit in POS must be an integer constant");
+		  error ("end bit in POS must be an integer constant");
 		  length_error = 1;
 		}
 	      else
@@ -2900,13 +2900,13 @@ apply_chill_array_layout (array_type)
 
 		  if (end_bit < start_bit)
 		    {
-		      error ("End bit in POS must be >= the start bit");
+		      error ("end bit in POS must be >= the start bit");
 		      end_bit = wordsize - 1;
 		      length_error = 1;
 		    }
 		  else if (end_bit >= wordsize)
 		    {
-		      error ("End bit in POS must be < the width of a word");
+		      error ("end bit in POS must be < the width of a word");
 		      end_bit = wordsize - 1;
 		      length_error = 1;
 		    }
@@ -2918,12 +2918,12 @@ apply_chill_array_layout (array_type)
 	    }
 
 	  if (! length_error && length != natural_length)
-	    sorry ("The length specified on POS within STEP must be the natural length of the array element type");
+	    sorry ("the length specified on POS within STEP must be the natural length of the array element type");
 	}
     }
 
   if (! length_error && stepsize_specified && stepsize < length)
-    error ("Step size in STEP must be >= the length in POS");
+    error ("step size in STEP must be >= the length in POS");
 
   if (length == 1)
     TYPE_PACKED (array_type) = 1;
@@ -3128,14 +3128,14 @@ apply_chill_field_layout (decl, next_struct_offset)
 
   if (! host_integerp (TREE_PURPOSE (temp), 0))
     {
-      error ("Starting word in POS must be an integer constant");
+      error ("starting word in POS must be an integer constant");
       pos_error = 1;
     }
   else
     {
       if (tree_int_cst_sgn (TREE_PURPOSE (temp)) < 0)
 	{
-	  error ("Starting word in POS must be >= 0");
+	  error ("starting word in POS must be >= 0");
 	  word = 0;
 	  pos_error = 1;
 	}
@@ -3152,7 +3152,7 @@ apply_chill_field_layout (decl, next_struct_offset)
     {
       if (! host_integerp (TREE_PURPOSE (temp), 0))
 	{
-	  error ("Starting bit in POS must be an integer constant");
+	  error ("starting bit in POS must be an integer constant");
 	  start_bit = *next_struct_offset - offset;
 	  pos_error = 1;
 	}
@@ -3160,7 +3160,7 @@ apply_chill_field_layout (decl, next_struct_offset)
 	{
 	  if (tree_int_cst_sgn (TREE_PURPOSE (temp)) < 0)
 	    {
-	      error ("Starting bit in POS must be >= 0");
+	      error ("starting bit in POS must be >= 0");
 	      start_bit = *next_struct_offset - offset;
 	      pos_error = 1;
 	    }
@@ -3168,7 +3168,7 @@ apply_chill_field_layout (decl, next_struct_offset)
 	  start_bit = tree_low_cst (TREE_PURPOSE (temp), 0);
 	  if (start_bit >= wordsize)
 	    {
-	      error ("Starting bit in POS must be < the width of a word");
+	      error ("starting bit in POS must be < the width of a word");
 	      start_bit = *next_struct_offset - offset;
 	      pos_error = 1;
 	    }
@@ -3182,14 +3182,14 @@ apply_chill_field_layout (decl, next_struct_offset)
 	    {
 	      if (! host_integerp (TREE_VALUE (temp), 0))
 		{
-		  error ("Length in POS must be an integer constant");
+		  error ("length in POS must be an integer constant");
 		  pos_error = 1;
 		}
 	      else
 		{
 		  if (tree_int_cst_sgn (TREE_VALUE (temp)) < 0)
 		    {
-		      error ("Length in POS must be > 0");
+		      error ("length in POS must be > 0");
 		      length = natural_length;
 		      pos_error = 1;
 		    }
@@ -3202,7 +3202,7 @@ apply_chill_field_layout (decl, next_struct_offset)
 	    {
 	      if (! host_integerp (TREE_VALUE (temp), 0))
 		{
-		  error ("End bit in POS must be an integer constant");
+		  error ("end bit in POS must be an integer constant");
 		  pos_error = 1;
 		}
 	      else
@@ -3211,12 +3211,12 @@ apply_chill_field_layout (decl, next_struct_offset)
 
 		  if (end_bit < start_bit)
 		    {
-		      error ("End bit in POS must be >= the start bit");
+		      error ("end bit in POS must be >= the start bit");
 		      pos_error = 1;
 		    }
 		  else if (end_bit >= wordsize)
 		    {
-		      error ("End bit in POS must be < the width of a word");
+		      error ("end bit in POS must be < the width of a word");
 		      pos_error = 1;
 		    }
 		  else
@@ -3226,7 +3226,7 @@ apply_chill_field_layout (decl, next_struct_offset)
 
 	  if (length != natural_length && ! pos_error)
 	    {
-	      sorry ("The length specified on POS must be the natural length of the field type");
+	      sorry ("the length specified on POS must be the natural length of the field type");
 	      length = natural_length;
 	    }
 	}
@@ -3298,7 +3298,7 @@ layout_chill_struct_type (t)
     }
 
   if (pos_error)
-    error ("If one field has a POS layout, then all fields must have a POS layout");
+    error ("if one field has a POS layout, then all fields must have a POS layout");
 
   /* Now DECL_INITIAL is null on all fields.  */