floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Whitespace cleanup/reformatting

This commit is contained in:
Elliot Saba 2017-03-09 15:30:43 -08:00
parent 7ae64f4f9c
commit 26a614fdd1
1 changed files with 1488 additions and 1518 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
exports/gensymbol
View File

@ -830,7 +830,6 @@
);
@lapacke_deprecated_objs = (
LAPACKE_cggsvp,
LAPACKE_cggsvp_work,
LAPACKE_dggsvp,
@ -855,7 +854,6 @@
LAPACKE_sgeqpf_work,
LAPACKE_zgeqpf,
LAPACKE_zgeqpf_work,
);
@ -3393,7 +3391,8 @@
);
#These function may need 2 underscores.
@lapack_embeded_underscore_objs=(xerbla_array, chla_transtype, slasyf_rook,
@lapack_embeded_underscore_objs=(
xerbla_array, chla_transtype, slasyf_rook,
ssytf2_rook, ssytrf_rook, ssytrs_rook,
ssytri_rook, ssycon_rook, ssysv_rook,
chetf2_rook, chetrf_rook, chetri_rook,
@ -3409,11 +3408,9 @@
zlahef_rook, zlasyf_rook,
zsytf2_rook, zsytrf_rook, zsytrs_rook,
zsytri_rook, zsycon_rook, zsysv_rook,
);
if ($ARGV[8] == 1) {
#ONLY_CBLAS=1
@underscore_objs = (@misc_underscore_objs);
@ -3421,7 +3418,6 @@ if ($ARGV[8] == 1) {
#NO_LAPACK=1
@underscore_objs = (@blasobjs, @misc_underscore_objs);
} elsif (-d "../lapack-netlib") {
if ($ARGV[7] == 0) {
# NEED2UNDERSCORES=0
# Don't need 2 underscores
@ -3436,7 +3432,6 @@ if ($ARGV[8] == 1) {
#BUILD_LAPACK_DEPRECATED=1
@underscore_objs = (@underscore_objs, @lapack_deprecated_objs);
}
} else {
@underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs);
}
@ -3447,16 +3442,16 @@ if ($ARGV[8] == 1) {
@exblasobjs=();
}
if ($ARGV[3] == 1){ @underscore_objs = (@underscore_objs, @exblasobjs); };
if ($ARGV[3] == 1) {
@underscore_objs = (@underscore_objs, @exblasobjs);
};
if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[4] == 0) {
@no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs);
}else{
@ -3487,7 +3482,6 @@ $symbolprefix = $ARGV[9];
$symbolsuffix = $ARGV[10];
if ($ARGV[0] eq "osx") {
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3499,16 +3493,13 @@ if ($ARGV[0] eq "osx"){
print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print "_", $symbolprefix, $objs, $symbolsuffix, "\n";
}
# }
exit(0);
}
if ($ARGV[0] eq "aix"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3520,16 +3511,13 @@ if ($ARGV[0] eq "aix"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "\n";
}
# }
exit(0);
}
if ($ARGV[0] eq "objcopy") {
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3541,16 +3529,13 @@ if ($ARGV[0] eq "objcopy"){
print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n";
}
# }
exit(0);
}
if ($ARGV[0] eq "objconv") {
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3562,11 +3547,9 @@ if ($ARGV[0] eq "objconv"){
print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n";
}
# }
exit(0);
}
@ -3600,7 +3583,6 @@ if ($ARGV[0] eq "win2k"){
#for misc_common_objs
foreach $objs (@misc_common_objs) {
$uppercase = $objs;
$uppercase =~ tr/[a-z]/[A-Z]/;
print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n";
@ -3632,16 +3614,10 @@ if ($ARGV[0] eq "win2khpl"){
$count ++;
}
# foreach $objs (@hplobjs2) {
# print "\t$objs=$objs"," \@", $count, "\n";
# $count ++;
# }
exit(0);
}
if ($ARGV[0] eq "microsoft"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
print "EXPORTS\n";
@ -3674,7 +3650,6 @@ if ($ARGV[0] eq "microsoft"){
}
if ($ARGV[0] eq "linktest") {
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3687,14 +3662,9 @@ if ($ARGV[0] eq "linktest"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n";
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "();\n";
}
# }
print "return 0;}\n";
exit(0);