1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
//------------------------------------------------------------------------------
// GB_Matrix_free: free a GrB_Matrix or GrB_Vector
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// Free all the content of a matrix. After GB_Matrix_free (&A), the header A
// is freed and set to NULL if the header of A was originally dynamically
// allocated. Otherwise, A is not freed.
#include "GB.h"
void GB_Matrix_free // free a matrix
(
GrB_Matrix *Ahandle // handle of matrix to free
)
{
if (Ahandle != NULL)
{
GrB_Matrix A = *Ahandle ;
if (A != NULL && (A->magic == GB_MAGIC || A->magic == GB_MAGIC2))
{
// free all content of A
size_t header_size = A->header_size ;
GB_phybix_free (A) ;
if (!(A->static_header))
{
// free the header of A itself, unless it is static
A->magic = GB_FREED ; // to help detect dangling pointers
GB_FREE (Ahandle, header_size) ;
(*Ahandle) = NULL ;
}
}
}
}
|
