Server : Apache System : Linux server2.corals.io 4.18.0-348.2.1.el8_5.x86_64 #1 SMP Mon Nov 15 09:17:08 EST 2021 x86_64 User : corals ( 1002) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/thread-self/root/opt/rh/gcc-toolset-11/root/usr/share/systemtap/runtime/ |
/* -*- linux-c -*-
* pmap API generator
* Copyright (C) 2005-2016 Red Hat Inc.
*
* This file is part of systemtap, and is free software. You can
* redistribute it and/or modify it under the terms of the GNU General
* Public License (GPL); either version 2, or (at your option) any
* later version.
*/
/** @file pmap-gen.c
* @brief Pmap function generator
* This file is a template designed to be included as many times as
* needed to generate the necessary pmap functions. It is only included
* indirectly by map-gen.c, so all the shared #defines are in place.
*/
/* returns 1 on match, 0 otherwise */
static int KEYSYM(pmap_key_cmp) (struct map_node *m1, struct map_node *m2)
{
struct KEYSYM(map_node) *n1 = KEYSYM(get_map_node)(m1);
struct KEYSYM(map_node) *n2 = KEYSYM(get_map_node)(m2);
if (KEY1_EQ_P(n1->key1, n2->key1)
#if KEY_ARITY > 1
&& KEY2_EQ_P(n1->key2, n2->key2)
#if KEY_ARITY > 2
&& KEY3_EQ_P(n1->key3, n2->key3)
#if KEY_ARITY > 3
&& KEY4_EQ_P(n1->key4, n2->key4)
#if KEY_ARITY > 4
&& KEY5_EQ_P(n1->key5, n2->key5)
#if KEY_ARITY > 5
&& KEY6_EQ_P(n1->key6, n2->key6)
#if KEY_ARITY > 6
&& KEY7_EQ_P(n1->key7, n2->key7)
#if KEY_ARITY > 7
&& KEY8_EQ_P(n1->key8, n2->key8)
#if KEY_ARITY > 8
&& KEY9_EQ_P(n1->key9, n2->key9)
#endif
#endif
#endif
#endif
#endif
#endif
#endif
#endif
)
return 1;
else
return 0;
}
/* copy keys for m2 -> m1 */
static void KEYSYM(pmap_copy_keys) (struct map_node *m1, struct map_node *m2)
{
struct KEYSYM(map_node) *dst = KEYSYM(get_map_node)(m1);
struct KEYSYM(map_node) *src = KEYSYM(get_map_node)(m2);
#if KEY1_TYPE == STRING
str_copy (dst->key1, src->key1);
#else
dst->key1 = src->key1;
#endif
#if KEY_ARITY > 1
#if KEY2_TYPE == STRING
str_copy (dst->key2, src->key2);
#else
dst->key2 = src->key2;
#endif
#if KEY_ARITY > 2
#if KEY3_TYPE == STRING
str_copy (dst->key3, src->key3);
#else
dst->key3 = src->key3;
#endif
#if KEY_ARITY > 3
#if KEY4_TYPE == STRING
str_copy (dst->key4, src->key4);
#else
dst->key4 = src->key4;
#endif
#if KEY_ARITY > 4
#if KEY5_TYPE == STRING
str_copy (dst->key5, src->key5);
#else
dst->key5 = src->key5;
#endif
#if KEY_ARITY > 5
#if KEY6_TYPE == STRING
str_copy (dst->key6, src->key6);
#else
dst->key6 = src->key6;
#endif
#if KEY_ARITY > 6
#if KEY7_TYPE == STRING
str_copy (dst->key7, src->key7);
#else
dst->key7 = src->key7;
#endif
#if KEY_ARITY > 7
#if KEY8_TYPE == STRING
str_copy (dst->key8, src->key8);
#else
dst->key8 = src->key8;
#endif
#if KEY_ARITY > 8
#if KEY9_TYPE == STRING
str_copy (dst->key9, src->key9);
#else
dst->key9 = src->key9;
#endif
#endif
#endif
#endif
#endif
#endif
#endif
#endif
#endif
}
/* update the keys and value of a map_node */
static void KEYSYM(pmap_update_node) (MAP m, struct map_node *m1, struct map_node *m2, int add)
{
struct KEYSYM(map_node) *src, * dst = KEYSYM(get_map_node)(m1);
if (!m2) {
MAP_COPY_VAL(m, dst, NULLRET, 0);
return;
}
src = KEYSYM(get_map_node)(m2);
if (!add)
KEYSYM(pmap_copy_keys)(m1, m2);
MAP_COPY_VAL(m, dst, MAP_GET_VAL(src), add);
}
#if VALUE_TYPE == INT64 || VALUE_TYPE == STRING
static PMAP KEYSYM(_stp_pmap_new) (unsigned max_entries, int wrap)
{
PMAP pmap = _stp_pmap_new (max_entries, wrap,
sizeof(struct KEYSYM(map_node)));
return pmap;
}
#else
/*
* _stp_pmap_new* ()
* @param max_entries (KEY_MAPENTRIES and associated parameter)
* @param wrap (KEY_STAT_WRAP)
* @param htype (KEY_HIST_TYPE and associated parameters)
* @param stat_ops (STAT_OP_* and associated parameter for STAT_OP_VARIANCE))
*/
static PMAP
KEYSYM(_stp_pmap_new) (int first_arg, ...)
{
int start=0, stop=0, interval=0, bit_shift=0;
int max_entries=0, wrap=0, stat_ops=0, htype=0;
int arg = first_arg;
PMAP pmap;
va_list ap;
va_start (ap, first_arg);
do {
switch (arg) {
case KEY_MAPENTRIES:
max_entries = va_arg(ap, int);
break;
case KEY_STAT_WRAP:
wrap = 1;
break;
case KEY_HIST_TYPE:
htype = va_arg(ap, int);
if (htype == HIST_LINEAR) {
start = va_arg(ap, int);
stop = va_arg(ap, int);
interval = va_arg(ap, int);
}
break;
case STAT_OP_COUNT:
stat_ops |= STAT_OP_COUNT;
break;
case STAT_OP_SUM:
stat_ops |= STAT_OP_SUM;
break;
case STAT_OP_MIN:
stat_ops |= STAT_OP_MIN;
break;
case STAT_OP_MAX:
stat_ops |= STAT_OP_MAX;
break;
case STAT_OP_AVG:
stat_ops |= STAT_OP_AVG;
break;
case STAT_OP_VARIANCE:
stat_ops |= STAT_OP_VARIANCE;
bit_shift = va_arg(ap, int);
break;
default:
_stp_warn ("Unknown argument %d\n", arg);
}
arg = va_arg(ap, int);
} while (arg);
va_end (ap);
switch (htype) {
case HIST_NONE:
pmap = _stp_pmap_new_hstat (max_entries, wrap,
sizeof(struct KEYSYM(map_node)));
if (pmap) {
pmap->bit_shift = bit_shift;
pmap->stat_ops = stat_ops;
}
break;
case HIST_LOG:
pmap = _stp_pmap_new_hstat_log (max_entries, wrap,
sizeof(struct KEYSYM(map_node)));
break;
case HIST_LINEAR:
pmap = _stp_pmap_new_hstat_linear (max_entries, wrap,
sizeof(struct KEYSYM(map_node)),
start, stop, interval);
break;
default:
_stp_warn ("Unknown histogram type %d\n", htype);
pmap = NULL;
}
return pmap;
}
#endif /* VALUE_TYPE */
static int KEYSYM(_stp_pmap_set) (PMAP pmap, ALLKEYSD(key), VSTYPE val)
{
int res;
MAP m = _stp_pmap_get_map (pmap, MAP_GET_CPU());
res = KEYSYM(__stp_map_set) (m, ALLKEYS(key), val, 0, 1, 1, 1, 1, 1);
MAP_PUT_CPU();
return res;
}
static inline int KEYSYM(_stp_pmap_add) (PMAP pmap, ALLKEYSD(key), VSTYPE val, int s1, int s2, int s3, int s4, int s5)
{
int res;
MAP m = _stp_pmap_get_map (pmap, MAP_GET_CPU());
m->bit_shift = pmap->bit_shift;
m->stat_ops = pmap->stat_ops;
res = KEYSYM(__stp_map_set) (m, ALLKEYS(key), val, 1, s1, s2, s3, s4, s5);
MAP_PUT_CPU();
return res;
}
static VALTYPE KEYSYM(_stp_pmap_get_cpu) (PMAP pmap, ALLKEYSD(key))
{
unsigned int hv;
struct mhlist_head *head;
struct mhlist_node *e;
struct KEYSYM(map_node) *n;
VALTYPE res;
MAP map;
map = _stp_pmap_get_map (pmap, MAP_GET_CPU());
hv = KEYSYM(hash) (ALLKEYS(key)) & map->hash_table_mask;
head = &map->hashes[hv];
mhlist_for_each_entry(n, e, head, node.hnode) {
if (KEY_EQ_P(n)) {
res = MAP_GET_VAL(n);
MAP_PUT_CPU();
return res;
}
}
/* key not found */
MAP_PUT_CPU();
return NULLRET;
}
static VALTYPE KEYSYM(_stp_pmap_get) (PMAP pmap, ALLKEYSD(key))
{
unsigned int hv;
int cpu, clear_agg = 0;
struct mhlist_head *head, *ahead;
struct mhlist_node *e;
struct KEYSYM(map_node) *n;
struct map_node *anode = NULL;
MAP map, agg;
hv = KEYSYM(hash) (ALLKEYS(key));
/* first look it up in the aggregation map */
agg = _stp_pmap_get_agg(pmap);
ahead = &agg->hashes[hv & agg->hash_table_mask];
mhlist_for_each_entry(n, e, ahead, node.hnode) {
if (KEY_EQ_P(n)) {
anode = &n->node;
clear_agg = 1;
break;
}
}
/* now total each cpu */
for_each_possible_cpu(cpu) {
map = _stp_pmap_get_map (pmap, cpu);
head = &map->hashes[hv & map->hash_table_mask];
mhlist_for_each_entry(n, e, head, node.hnode) {
if (KEY_EQ_P(n)) {
if (anode == NULL) {
anode = _stp_new_agg(agg, ahead, &n->node,
KEYSYM(pmap_update_node));
} else {
if (clear_agg) {
KEYSYM(pmap_update_node)(agg, anode, NULL, 0);
clear_agg = 0;
}
KEYSYM(pmap_update_node)(agg, anode, &n->node, 1);
}
}
}
}
if (anode && !clear_agg)
return MAP_GET_VAL(KEYSYM(get_map_node)(anode));
/* key not found */
return NULLRET;
}
static MAP KEYSYM(_stp_pmap_agg) (PMAP pmap)
{
return _stp_pmap_agg(pmap, KEYSYM(pmap_update_node),
KEYSYM(pmap_key_cmp));
}
static int KEYSYM(_stp_pmap_del) (PMAP pmap, ALLKEYSD(key))
{
unsigned int hv;
int cpu;
MAP m;
/* Get the key's hash */
if (KEYSYM(keycheck) (ALLKEYS(key)) == 0)
return -1;
hv = KEYSYM(hash) (ALLKEYS(key));
/* Delete in each cpu's map */
for_each_possible_cpu(cpu) {
m = _stp_pmap_get_map (pmap, cpu);
(void)KEYSYM(_stp_map_del_hash) (m, hv & m->hash_table_mask,
ALLKEYS(key));
}
/* Note that we don't need to delete the aggregate's value,
* since it isn't "live" between statements. */
return 1;
}