Fortran: Revert explicit memcpy in gfc_get_typebound_proc

This reverts the hunk to gfc_get_typebound_proc from
7883a7f07c1ad9c8aaccc5bbd96e0ae1fa230c89

gcc/fortran/ChangeLog:

	* symbol.c (gfc_get_typebound_proc): Revert memcpy.

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 34c0ba2fac4083eece8a2e230c482ebd3364d861..d6f53f4ff20c92e1b6e55e823252ee6b59b15e05 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -5073,7 +5073,7 @@ gfc_get_typebound_proc (gfc_typebound_proc *tb0)
 
   result = XCNEW (gfc_typebound_proc);
   if (tb0)
-    memcpy (result, tb0, sizeof (gfc_typebound_proc));
+    *result = *tb0;
   result->error = 1;
 
   latest_undo_chgset->tbps.safe_push (result);