From: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
Date: Sun, 31 Oct 2021 22:21:36 +0000 (+0100)
Subject: Fortran: Revert explicit memcpy in gfc_get_typebound_proc
X-Git-Tag: basepoints/gcc-13~3498
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ea6c05a8d4354b25c6c18c1b60e1f5a06d25f66;p=thirdparty%2Fgcc.git

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 34c0ba2fac40..d6f53f4ff20c 100644
--- 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);