Fortran: Revert explicit memcpy in gfc_get_typebound_proc
This reverts the hunk to gfc_get_typebound_proc from
7883a7f07c
gcc/fortran/ChangeLog:
* symbol.c (gfc_get_typebound_proc): Revert memcpy.
This commit is contained in:
parent
ca84f39399
commit
6ea6c05a8d
1 changed files with 1 additions and 1 deletions
|
@ -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);
|
||||
|
|
Loading…
Add table
Reference in a new issue