TDE
/
arts
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/arts
0
0
Fork 0
Code Issues Releases Wiki Activity

Remove remaining 'register' instructions.

Browse Source 
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit afad82ed85)
r14.0.x
Michele Calgaro 5 years ago
parent 405df7bf90
commit ef3cfbd6d1
Signed by: MicheleC
GPG Key ID: 2A75B7CA8ADED5CF
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

24
flow/gsl/gsl-fftgen.pl
Unescape View File

@ -551,7 +551,7 @@ sub fft_loop_macros {
# mul_result = gsl_complex (c1.re * c2.re - c1.im * c2.im, c1.re * c2.im + c1.im * c2.re); # mul_result = gsl_complex (c1.re * c2.re - c1.im * c2.im, c1.re * c2.im + c1.im * c2.re);
print " print "
#define WMULTIPLY(Wre,Wim,Dre,Dim) { \\ #define WMULTIPLY(Wre,Wim,Dre,Dim) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = Wre * Dre; \\ T1re = Wre * Dre; \\
T1im = Wim * Dre; \\ T1im = Wim * Dre; \\
T2re = Wim * Dim; \\ T2re = Wim * Dim; \\
@ -567,7 +567,7 @@ sub butterfly_macros {
# add_result = gsl_complex (c1.re + c2.re, c1.im + c2.im); # add_result = gsl_complex (c1.re + c2.re, c1.im + c2.im);
print " print "
#define BUTTERFLY_XY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\ #define BUTTERFLY_XY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = X2re * Wre; \\ T1re = X2re * Wre; \\
T1im = X2im * Wre; \\ T1im = X2im * Wre; \\
T2re = X2im * Wim; \\ T2re = X2im * Wim; \\
@ -582,7 +582,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_Yx(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\ #define BUTTERFLY_Yx(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = X2re * Wim; \\ T1re = X2re * Wim; \\
T1im = X2im * Wim; \\ T1im = X2im * Wim; \\
T2re = X2im * Wre; \\ T2re = X2im * Wre; \\
@ -597,7 +597,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_yX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\ #define BUTTERFLY_yX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,Wim) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = X2re * Wim; \\ T1re = X2re * Wim; \\
T1im = X2im * Wim; \\ T1im = X2im * Wim; \\
T2re = X2im * Wre; \\ T2re = X2im * Wre; \\
@ -612,7 +612,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_10(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\ #define BUTTERFLY_10(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\
register $tmp_ieee_type T2re, T2im; \\ $tmp_ieee_type T2re, T2im; \\
T2re = X1re - X2re; \\ T2re = X1re - X2re; \\
T2im = X1im - X2im; \\ T2im = X1im - X2im; \\
Y1re = X1re + X2re; \\ Y1re = X1re + X2re; \\
@ -621,7 +621,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_01(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\ #define BUTTERFLY_01(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\
register $tmp_ieee_type T2re, T2im; \\ $tmp_ieee_type T2re, T2im; \\
T2re = X1re + X2im; \\ T2re = X1re + X2im; \\
T2im = X1im - X2re; \\ T2im = X1im - X2re; \\
Y1re = X1re - X2im; \\ Y1re = X1re - X2im; \\
@ -630,7 +630,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_0m(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\ #define BUTTERFLY_0m(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,_1,_2) { \\
register $tmp_ieee_type T2re, T2im; \\ $tmp_ieee_type T2re, T2im; \\
T2re = X1re - X2im; \\ T2re = X1re - X2im; \\
T2im = X1im + X2re; \\ T2im = X1im + X2re; \\
Y1re = X1re + X2im; \\ Y1re = X1re + X2im; \\
@ -639,7 +639,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_XX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \\ #define BUTTERFLY_XX(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = X2re * Wre; \\ T1re = X2re * Wre; \\
T1im = X2im * Wre; \\ T1im = X2im * Wre; \\
T2re = T1im; \\ T2re = T1im; \\
@ -654,7 +654,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_yY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \\ #define BUTTERFLY_yY(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,Wre,_2) { \\
register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ $tmp_ieee_type T1re, T1im, T2re, T2im; \\
T1re = X2re * Wre; \\ T1re = X2re * Wre; \\
T1im = X2im * Wre; \\ T1im = X2im * Wre; \\
T2re = T1im; \\ T2re = T1im; \\
@ -669,7 +669,7 @@ sub butterfly_macros {
Y2im = T2im; \\ Y2im = T2im; \\
} }
#define BUTTERFLY_10scale(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,S) { \\ #define BUTTERFLY_10scale(X1re,X1im,X2re,X2im,Y1re,Y1im,Y2re,Y2im,S) { \\
register $tmp_ieee_type T2re, T2im; \\ $tmp_ieee_type T2re, T2im; \\
T2re = X1re - X2re; \\ T2re = X1re - X2re; \\
T2im = X1im - X2im; \\ T2im = X1im - X2im; \\
Y1re = X1re + X2re; \\ Y1re = X1re + X2re; \\
@ -790,8 +790,8 @@ print " **/\n";
$fft_size, $negate_sign ? "synthesis" : "analysis", $fft_size, $negate_sign ? "synthesis" : "analysis",
$skip2 ? "_skip2" : "", $skip2 ? "_skip2" : "",
$ieee_type, $ieee_type); $ieee_type, $ieee_type);
printf "%sregister unsigned int butterfly, block, offset;\n", $indent; printf "%sunsigned int butterfly, block, offset;\n", $indent;
printf "%sregister %s Wre, Wim;\n\n", $indent, $tmp_ieee_type, $tmp_ieee_type; printf "%s%s Wre, Wim;\n\n", $indent, $tmp_ieee_type, $tmp_ieee_type;
printf "%sbutterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */\n", $indent; printf "%sbutterfly = block = offset = 0, Wre = Wim = 0.0; /* silence compiler */\n", $indent;
my $seen_rule = 0; my $seen_rule = 0;

Write Preview
Loading…
Cancel
Save