MatShell: avoid multiple calls to delete user->op

prj- · prj- · commit 56a41c20bcf8 · 2025-08-12T21:02:42.000+02:00
diff --git a/plugin/mpi/PETSc-code.hpp b/plugin/mpi/PETSc-code.hpp
@@ -1066,6 +1066,7 @@ namespace PETSc {
             PetscBool assembled;
             MatAssembled(ptB->_petsc, &assembled);
             MatDuplicate(ptB->_petsc, assembled ? MAT_COPY_VALUES : MAT_DO_NOT_COPY_VALUES, &ptA->_petsc);
+            MatShellSetOperation(ptB->_petsc, MATOP_DESTROY, NULL);
             MatDestroy(&ptB->_petsc);
           }
         } else

Original file line number	Diff line number	Diff line change
`@@ -1066,6 +1066,7 @@ namespace PETSc {`
`1066`	`1066`	`PetscBool assembled;`
`1067`	`1067`	`MatAssembled(ptB->_petsc, &assembled);`
`1068`	`1068`	`MatDuplicate(ptB->_petsc, assembled ? MAT_COPY_VALUES : MAT_DO_NOT_COPY_VALUES, &ptA->_petsc);`
	`1069`	`+ MatShellSetOperation(ptB->_petsc, MATOP_DESTROY, NULL);`
`1069`	`1070`	`MatDestroy(&ptB->_petsc);`
`1070`	`1071`	`}`
`1071`	`1072`	`} else`