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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
//------------------------------------------------------------------------------
// GB_hyper_realloc: reallocate a matrix hyperlist
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// Change the size of the A->h and A->p hyperlist.
// No change is made if A is not hypersparse.
// No change is made to A->Y.
// A->p_is_32, A->j_is_32, and A->i_is_32 are unchanged.
#include "GB.h"
GrB_Info GB_hyper_realloc
(
GrB_Matrix A, // matrix with hyperlist to reallocate
int64_t plen_new, // new size of A->p and A->h
GB_Werk Werk
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
ASSERT (A != NULL) ;
ASSERT (GB_ZOMBIES_OK (A)) ; // pattern not accessed
ASSERT (GB_JUMBLED_OK (A)) ;
ASSERT (GB_PENDING_OK (A)) ;
//--------------------------------------------------------------------------
// reallocate the hyperlist
//--------------------------------------------------------------------------
if (GB_IS_HYPERSPARSE (A))
{
ASSERT (!A->p_shallow) ;
ASSERT (!A->h_shallow) ;
#ifdef GB_DEBUG
int64_t plen_old = A->plen ; // old size of A->p and A->h
#endif
plen_new = GB_IMAX (1, plen_new) ; // new size of A->p and A->h
size_t psize = (A->p_is_32) ? sizeof (uint32_t) : sizeof (uint64_t) ;
size_t jsize = (A->j_is_32) ? sizeof (uint32_t) : sizeof (uint64_t) ;
// change the size of A->h and A->p
bool ok1 = true, ok2 = true ;
GB_REALLOC_MEMORY (A->p, plen_new+1, psize, &(A->p_size), &ok1) ;
GB_REALLOC_MEMORY (A->h, plen_new , jsize, &(A->h_size), &ok2) ;
bool ok = ok1 && ok2 ;
// always succeeds if the space shrinks
ASSERT (GB_IMPLIES (plen_new <= plen_old, ok)) ;
if (!ok)
{
// out of memory
GB_phybix_free (A) ;
return (GrB_OUT_OF_MEMORY) ;
}
// size of A->p and A->h has been changed
A->plen = plen_new ;
}
//--------------------------------------------------------------------------
// return result
//--------------------------------------------------------------------------
return (GrB_SUCCESS) ;
}
|
