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
|
/*
* Copyright 2011-2012 Free Software Foundation, Inc.
*
* This file is part of GNU Radio
*
* GNU Radio 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 3, or (at your option)
* any later version.
*
* GNU Radio 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 GNU Radio; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street,
* Boston, MA 02110-1301, USA.
*/
#include <volk/volk_common.h>
#include "volk_machines.h"
#include <volk/volk_typedefs.h>
#include <volk/volk_cpu.h>
#include "volk_rank_archs.h"
#include <volk/volk.h>
#include <stdio.h>
#include <string.h>
struct volk_machine *get_machine(void) {
extern struct volk_machine *volk_machines[];
extern unsigned int n_volk_machines;
static struct volk_machine *machine = NULL;
if(machine != NULL) return machine;
else {
unsigned int max_score = 0;
unsigned int i;
for(i=0; i<n_volk_machines; i++) {
if(!(volk_machines[i]->caps & (~volk_get_lvarch()))) {
if(volk_machines[i]->caps > max_score) {
max_score = volk_machines[i]->caps;
machine = volk_machines[i];
}
}
}
printf("Using Volk machine: %s\n", machine->name);
return machine;
}
}
unsigned int volk_get_alignment(void) {
return get_machine()->alignment;
}
#for $kern in $kernels
void get_$(kern.name)($kern.arglist_namedefs) {
$kern.name = get_machine()->$(kern.name)_archs[volk_rank_archs(
get_machine()->$(kern.name)_indices,
get_machine()->$(kern.name)_arch_defs,
get_machine()->$(kern.name)_n_archs,
get_machine()->$(kern.name)_name,
volk_get_lvarch()
)];
$(kern.name)($kern.arglist_names);
}
$kern.pname $kern.name = &get_$(kern.name);
void $(kern.name)_manual($kern.arglist_namedefs, const char* arch) {
const size_t index = get_index(
get_machine()->$(kern.name)_indices,
get_machine()->$(kern.name)_n_archs,
arch
);
get_machine()->$(kern.name)_archs[index](
$kern.arglist_names
);
}
struct volk_func_desc $(kern.name)_get_func_desc(void) {
struct volk_func_desc desc = {
get_machine()->$(kern.name)_indices,
get_machine()->$(kern.name)_arch_defs,
get_machine()->$(kern.name)_n_archs
};
return desc;
}
#end for
|
