diff options
author | Michele Calgaro <michele.calgaro@yahoo.it> | 2020-02-19 18:46:14 +0900 |
---|---|---|
committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2020-02-19 18:47:01 +0900 |
commit | ef3cfbd6d1baa7d4774497552df9bb57b1290500 (patch) | |
tree | 652d6b5cd684450a07cdbefcc230775a21cd64ea | |
parent | 405df7bf908beb8471df764bc00b3f823b6a729d (diff) | |
download | arts-ef3cfbd6d1baa7d4774497552df9bb57b1290500.tar.gz arts-ef3cfbd6d1baa7d4774497552df9bb57b1290500.zip |
Remove remaining 'register' instructions.
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit afad82ed85e5ffc3793225118524548050e058c4)
-rwxr-xr-x | flow/gsl/gsl-fftgen.pl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/flow/gsl/gsl-fftgen.pl b/flow/gsl/gsl-fftgen.pl index 1a2ef83..13199de 100755 --- a/flow/gsl/gsl-fftgen.pl +++ b/flow/gsl/gsl-fftgen.pl @@ -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); print " #define WMULTIPLY(Wre,Wim,Dre,Dim) { \\ - register $tmp_ieee_type T1re, T1im, T2re, T2im; \\ + $tmp_ieee_type T1re, T1im, T2re, T2im; \\ T1re = Wre * Dre; \\ T1im = Wim * Dre; \\ T2re = Wim * Dim; \\ @@ -567,7 +567,7 @@ sub butterfly_macros { # add_result = gsl_complex (c1.re + c2.re, c1.im + c2.im); print " #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; \\ T1im = X2im * Wre; \\ T2re = X2im * Wim; \\ @@ -582,7 +582,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T1im = X2im * Wim; \\ T2re = X2im * Wre; \\ @@ -597,7 +597,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T1im = X2im * Wim; \\ T2re = X2im * Wre; \\ @@ -612,7 +612,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T2im = X1im - X2im; \\ Y1re = X1re + X2re; \\ @@ -621,7 +621,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T2im = X1im - X2re; \\ Y1re = X1re - X2im; \\ @@ -630,7 +630,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T2im = X1im + X2re; \\ Y1re = X1re + X2im; \\ @@ -639,7 +639,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T1im = X2im * Wre; \\ T2re = T1im; \\ @@ -654,7 +654,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T1im = X2im * Wre; \\ T2re = T1im; \\ @@ -669,7 +669,7 @@ sub butterfly_macros { Y2im = T2im; \\ } #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; \\ T2im = X1im - X2im; \\ Y1re = X1re + X2re; \\ @@ -790,8 +790,8 @@ print " **/\n"; $fft_size, $negate_sign ? "synthesis" : "analysis", $skip2 ? "_skip2" : "", $ieee_type, $ieee_type); - printf "%sregister unsigned int butterfly, block, offset;\n", $indent; - printf "%sregister %s Wre, Wim;\n\n", $indent, $tmp_ieee_type, $tmp_ieee_type; + printf "%sunsigned int butterfly, block, offset;\n", $indent; + 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; my $seen_rule = 0; |