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
77
78
|
//------------------------------------------------------------------------------
// GB_macrofy_bytes: create a single scalar from an array of bytes
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// When the macro is used, sizeof (ztype) must be the same as nbytes.
#include "GB.h"
#include "jitifyer/GB_stringify.h"
void GB_macrofy_bytes
(
FILE *fp, // file to write macros, assumed open already
// input:
const char *Name, // all-upper-case name
const char *variable, // variable to declaer
const char *type_name, // name of the type
const uint8_t *value, // array of size nbytes
size_t nbytes,
bool is_identity // true for the identity value
)
{
bool same = (nbytes > 0) ;
for (int k = 0 ; k < nbytes ; k++)
{
same = same && (value [0] == value [k]) ;
}
if (same)
{
// all bytes are the same; use memset
fprintf (fp,
"#define GB_DECLARE_%s(%s) %s %s ; "
"memset (&%s, 0x%02x, %d)\n",
Name, variable, type_name, variable,
variable, value [0], (int) nbytes) ;
}
else
{
// not all bytes are the same; use memcpy
fprintf (fp,
"#define GB_DECLARE_%s(%s) %s %s ; \\\n"
"{ \\\n"
" const uint8_t bytes [%d] = \\\n"
" { \\\n"
" ",
Name, variable, type_name, variable, (int) nbytes) ;
for (int k = 0 ; k < nbytes ; k++)
{
fprintf (fp, "0x%02x", (int) (value [k])) ;
if (k < nbytes-1)
{
fprintf (fp, ", ") ;
if (k > 0 && k % 8 == 7) fprintf (fp, "\\\n ") ;
}
}
// finalize the array and use memcpy to initialize the scalar
fprintf (fp,
" \\\n"
" } ; \\\n"
" memcpy (&%s, bytes, %d) ; \\\n"
"}\n",
variable, (int) nbytes) ;
}
if (same && is_identity)
{
// all the bytes of the identity value are the same
fprintf (fp, "#define GB_HAS_IDENTITY_BYTE 1\n") ;
fprintf (fp, "#define GB_IDENTITY_BYTE 0x%02x\n", (int) value [0]) ;
}
}
|
