From: Craig Burley <burley@gnu.org>
Date: Sun, 12 Jul 1998 04:42:47 +0000 (-0400)
Subject: com.c (ffecom_expr_): Die if padding for constant is non-zero.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c264f1132eff86fec981bbbbfe2527663b82e941;p=gcc.git

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
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index fb5e0bd8284..16be6911f25 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+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.
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 322b10324e3..17993a9b7c5 100644
--- a/gcc/f/com.c
+++ b/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;