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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
/*--------------------------------------------------------------------*/
/*--- Malloc replacement. replacemalloc_core.c ---*/
/*--------------------------------------------------------------------*/
/*
This file is part of Valgrind, a dynamic binary instrumentation
framework.
Copyright (C) 2000-2017 Julian Seward
jseward@acm.org
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, see <http://www.gnu.org/licenses/>.
The GNU General Public License is contained in the file COPYING.
*/
#include "pub_core_basics.h"
#include "pub_core_libcbase.h"
#include "pub_core_libcprint.h"
#include "pub_core_libcassert.h"
#include "pub_core_tooliface.h" // VG_(needs)
#include "pub_core_mallocfree.h"
#include "pub_core_options.h"
#include "pub_core_replacemalloc.h"
/*------------------------------------------------------------*/
/*--- Command line options ---*/
/*------------------------------------------------------------*/
/* Nb: the allocator always rounds blocks up to a multiple of
VG_MIN_MALLOC_SZB.
*/
/* DEBUG: print malloc details? default: NO */
Bool VG_(clo_trace_malloc) = False;
#if defined(VGO_linux) && !defined(MUSL_LIBC)
Bool VG_(clo_realloc_zero_bytes_frees) = True;
#else
Bool VG_(clo_realloc_zero_bytes_frees) = False;
#endif
/* Minimum alignment in functions that don't specify alignment explicitly.
default: 0, i.e. use VG_MIN_MALLOC_SZB. */
UInt VG_(clo_alignment) = VG_MIN_MALLOC_SZB;
Bool VG_(replacement_malloc_process_cmd_line_option)(const HChar* arg)
{
if VG_INT_CLO(arg, "--alignment", VG_(clo_alignment)) {
if (VG_(clo_alignment) < VG_MIN_MALLOC_SZB ||
VG_(clo_alignment) > 4096 ||
VG_(log2)( VG_(clo_alignment) ) == -1 /* not a power of 2 */)
{
VG_(fmsg_bad_option)(arg,
"Alignment must be a power of 2 in the range %d..4096.\n",
VG_MIN_MALLOC_SZB);
}
}
else if VG_XACT_CLO(arg, "--xtree-memory=none",
VG_(clo_xtree_memory), Vg_XTMemory_None) {}
else if VG_XACT_CLO(arg, "--xtree-memory=allocs",
VG_(clo_xtree_memory), Vg_XTMemory_Allocs) {}
else if VG_XACT_CLO(arg, "--xtree-memory=full",
VG_(clo_xtree_memory), Vg_XTMemory_Full) {}
else if VG_STR_CLO (arg, "--xtree-memory-file",
VG_(clo_xtree_memory_file)) {}
else if VG_BOOL_CLO(arg, "--xtree-compress-strings",
VG_(clo_xtree_compress_strings)) {}
else if VG_BOOL_CLO(arg, "--trace-malloc", VG_(clo_trace_malloc)) {}
else if VG_BOOL_CLO(arg, "--realloc-zero-bytes-frees", VG_(clo_realloc_zero_bytes_frees)) {}
else
return False;
return True;
}
SizeT VG_(malloc_effective_client_redzone_size)(void)
{
vg_assert(VG_(needs).malloc_replacement);
return VG_(arena_redzone_size)(VG_AR_CLIENT);
}
/*------------------------------------------------------------*/
/*--- Useful functions ---*/
/*------------------------------------------------------------*/
void* VG_(cli_malloc) ( SizeT align, SizeT nbytes )
{
// 'align' should be valid (ie. big enough and a power of two) by now.
// VG_(arena_memalign)() will abort if it's not.
if (VG_MIN_MALLOC_SZB == align)
return VG_(arena_malloc) ( VG_AR_CLIENT, "replacemalloc.cm.1",
nbytes );
else
return VG_(arena_memalign) ( VG_AR_CLIENT, "replacemalloc.cm.2",
align, nbytes );
}
void* VG_(cli_realloc) ( void* ptr, SizeT nbytes )
{
return VG_(arena_realloc) ( VG_AR_CLIENT, "replacemalloc.cr.1",
ptr, nbytes );
}
void VG_(cli_free) ( void* p )
{
VG_(arena_free) ( VG_AR_CLIENT, p );
}
// Useful for querying user blocks.
SizeT VG_(cli_malloc_usable_size) ( void* p )
{
return VG_(arena_malloc_usable_size)(VG_AR_CLIENT, p);
}
Bool VG_(addr_is_in_block)( Addr a, Addr start, SizeT size, SizeT rz_szB )
{
return ( start - rz_szB <= a && a < start + size + rz_szB );
}
/*--------------------------------------------------------------------*/
/*--- end ---*/
/*--------------------------------------------------------------------*/
|
