Jakub Jelinek <jj@ultra.linux.cz>

        * real.c (PUT_REAL): Clear unused bytes if long double is IEEE quad.

From-SVN: r28422

gcc/ChangeLog

 1999-08-02  Jakub Jelinek  <jj@ultra.linux.cz>
 
+	* real.c (PUT_REAL): Clear unused bytes if long double is IEEE quad.
+
+1999-08-02  Jakub Jelinek  <jj@ultra.linux.cz>
+
 	* c-decl.c (get_parm_info, store_parm_decls): Change all uses of
 	PROMOTE_PROTOTYPES, so that it tests it as a C expression.
 	Ensure expr.h is included.

gcc/real.c

@@ -260,7 +260,12 @@ do {						\
 #define MAXDECEXP 4932
 #define MINDECEXP -4977
 #define GET_REAL(r,e) bcopy ((char *) r, (char *) e, 2*NE)
-#define PUT_REAL(e,r) bcopy ((char *) e, (char *) r, 2*NE)
+#define PUT_REAL(e,r)				\
+do {						\
+  if (2*NE < sizeof(*r))			\
+    bzero((char *)r, sizeof(*r));		\
+  bcopy ((char *) e, (char *) r, 2*NE);		\
+} while (0)
 #else
 #define NE 6
 #define MAXDECEXP 4932