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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@21078 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index fb5e0bd..16be691 100644 (file)
--- 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 322b103..17993a9 100644 (file)
--- 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)
 \f
 /* 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;