com.c (ffecom_expr_): Die if padding for constant is non-zero.

Sat Jul 11 18:24:37 1998  Craig Burley  <burley@gnu.org>
	* com.c (ffecom_expr_) [FFEBLD_opCONTER]: Die if padding
	for constant is non-zero.
	* com.c (__eprintf): Delete this function, it is obsolete.

From-SVN: r21078

gcc/f/ChangeLog

+Sat Jul 11 18:24:37 1998  Craig Burley  <burley@gnu.org>
+
+	* com.c (ffecom_expr_) [FFEBLD_opCONTER]: Die if padding
+	for constant is non-zero.
+
+	* com.c (__eprintf): Delete this function, it is obsolete.
+
 1998-07-09  Dave Love  <d.love@dl.ac.uk>
 
 	* intdoc.in (HOSTNM_func, HOSTNM_subr): Update last change.

gcc/f/com.c

@@ -2883,6 +2883,7 @@ ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest,
       return list;
 
     case FFEBLD_opCONTER:
+      assert (ffebld_conter_pad (expr) == 0);
       item
 	= ffecom_constantunion (&ffebld_constant_union (ffebld_conter (expr)),
 				bt, kt, tree_type);
@@ -14817,29 +14818,6 @@ start_function (tree name, tree type, int nested, int public)
 
 /* Here are the public functions the GNU back end needs.  */
 
-/* This is used by the `assert' macro.  It is provided in libgcc.a,
-   which `cc' doesn't know how to link.  Note that the C++ front-end
-   no longer actually uses the `assert' macro (instead, it calls
-   my_friendly_assert).  But all of the back-end files still need this.  */
-void
-__eprintf (string, expression, line, filename)
-#ifdef __STDC__
-     const char *string;
-     const char *expression;
-     unsigned line;
-     const char *filename;
-#else
-     char *string;
-     char *expression;
-     unsigned line;
-     char *filename;
-#endif
-{
-  fprintf (stderr, string, expression, line, filename);
-  fflush (stderr);
-  abort ();
-}
-
 tree
 convert (type, expr)
      tree type, expr;