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

Merge pull request #1121 from staticfloat/sf/Xsymv_export 

Add `csymv` and `zsymv` into `@lapackobjs2` for exporting
This commit is contained in:
Martin Kroeker 2017-03-10 08:33:36 +01:00 committed by GitHub
parent 4227049c7d 26a614fdd1
commit 9254a701f3
1 changed files with 1492 additions and 1518 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
exports/gensymbol
View File

@ -1,6 +1,9 @@
#!/usr/bin/perl #!/usr/bin/perl
# Changelog # Changelog
# 2017/09/03 staticfloat
# Added zsymv and csymv into @lapackobjs2 so they are properly renamed
#
# 2017/07/01 Saar # 2017/07/01 Saar
# removed zsymv_ and csymv_ from @blasobs, because these functions # removed zsymv_ and csymv_ from @blasobs, because these functions
# are now in lapack-3.7.0 # are now in lapack-3.7.0
@ -266,7 +269,7 @@
spotrs, spotrs,
# CLASRC -- Single precision complex LAPACK routines # CLASRC -- Single precision complex LAPACK routines
# already provided by @blasobjs: csymv # already provided by @blasobjs:
# already provided by @lapackobjs: # already provided by @lapackobjs:
# cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri # cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri
cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx, cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx,
@ -313,6 +316,7 @@
cspsvx, csptrf, csptri, csptrs, csrscl, cstedc, cspsvx, csptrf, csptri, csptrs, csrscl, cstedc,
cstegr, cstein, csteqr, cstegr, cstein, csteqr,
csycon, csycon,
csymv,
csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x, csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x,
csyswapr, csytrs, csytrs2, csyconv, csyswapr, csytrs, csytrs2, csyconv,
ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2, ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2,
@ -406,7 +410,7 @@
dtpqrt, dtpqrt2, dtpmqrt, dtprfb, dtpqrt, dtpqrt2, dtpmqrt, dtprfb,
# ZLASRC -- Double precision complex LAPACK routines # ZLASRC -- Double precision complex LAPACK routines
# already provided by @blasobjs: zsymv # already provided by @blasobjs:
# already provided by @lapackobjs: # already provided by @lapackobjs:
# zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri, # zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri,
# ztrti2, ztrtri # ztrti2, ztrtri
@ -457,6 +461,7 @@
zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc, zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc,
zstegr, zstein, zsteqr, zstegr, zstein, zsteqr,
zsycon, zsycon,
zsymv,
zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x, zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x,
zsyswapr, zsytrs, zsytrs2, zsyconv, zsyswapr, zsytrs, zsytrs2, zsyconv,
ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2, ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2,
@ -825,7 +830,6 @@
); );
@lapacke_deprecated_objs = ( @lapacke_deprecated_objs = (
LAPACKE_cggsvp, LAPACKE_cggsvp,
LAPACKE_cggsvp_work, LAPACKE_cggsvp_work,
LAPACKE_dggsvp, LAPACKE_dggsvp,
@ -850,7 +854,6 @@
LAPACKE_sgeqpf_work, LAPACKE_sgeqpf_work,
LAPACKE_zgeqpf, LAPACKE_zgeqpf,
LAPACKE_zgeqpf_work, LAPACKE_zgeqpf_work,
); );
@ -3388,7 +3391,8 @@
); );
#These function may need 2 underscores. #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, ssytf2_rook, ssytrf_rook, ssytrs_rook,
ssytri_rook, ssycon_rook, ssysv_rook, ssytri_rook, ssycon_rook, ssysv_rook,
chetf2_rook, chetrf_rook, chetri_rook, chetf2_rook, chetrf_rook, chetri_rook,
@ -3404,11 +3408,9 @@
zlahef_rook, zlasyf_rook, zlahef_rook, zlasyf_rook,
zsytf2_rook, zsytrf_rook, zsytrs_rook, zsytf2_rook, zsytrf_rook, zsytrs_rook,
zsytri_rook, zsycon_rook, zsysv_rook, zsytri_rook, zsycon_rook, zsysv_rook,
); );
if ($ARGV[8] == 1) { if ($ARGV[8] == 1) {
#ONLY_CBLAS=1 #ONLY_CBLAS=1
@underscore_objs = (@misc_underscore_objs); @underscore_objs = (@misc_underscore_objs);
@ -3416,7 +3418,6 @@ if ($ARGV[8] == 1) {
#NO_LAPACK=1 #NO_LAPACK=1
@underscore_objs = (@blasobjs, @misc_underscore_objs); @underscore_objs = (@blasobjs, @misc_underscore_objs);
} elsif (-d "../lapack-netlib") { } elsif (-d "../lapack-netlib") {
if ($ARGV[7] == 0) { if ($ARGV[7] == 0) {
# NEED2UNDERSCORES=0 # NEED2UNDERSCORES=0
# Don't need 2 underscores # Don't need 2 underscores
@ -3431,7 +3432,6 @@ if ($ARGV[8] == 1) {
#BUILD_LAPACK_DEPRECATED=1 #BUILD_LAPACK_DEPRECATED=1
@underscore_objs = (@underscore_objs, @lapack_deprecated_objs); @underscore_objs = (@underscore_objs, @lapack_deprecated_objs);
} }
} else { } else {
@underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs);
} }
@ -3442,16 +3442,16 @@ if ($ARGV[8] == 1) {
@exblasobjs=(); @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_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "x86") { @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 "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[4] == 0) { if ($ARGV[4] == 0) {
@no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs);
}else{ }else{
@ -3482,7 +3482,6 @@ $symbolprefix = $ARGV[9];
$symbolsuffix = $ARGV[10]; $symbolsuffix = $ARGV[10];
if ($ARGV[0] eq "osx") { if ($ARGV[0] eq "osx") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3494,16 +3493,13 @@ if ($ARGV[0] eq "osx"){
print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; print "_", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "aix"){ if ($ARGV[0] eq "aix"){
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3515,16 +3511,13 @@ if ($ARGV[0] eq "aix"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "\n"; print $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "objcopy") { if ($ARGV[0] eq "objcopy") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3536,16 +3529,13 @@ if ($ARGV[0] eq "objcopy"){
print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "objconv") { if ($ARGV[0] eq "objconv") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3557,11 +3547,9 @@ if ($ARGV[0] eq "objconv"){
print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
@ -3595,7 +3583,6 @@ if ($ARGV[0] eq "win2k"){
#for misc_common_objs #for misc_common_objs
foreach $objs (@misc_common_objs) { foreach $objs (@misc_common_objs) {
$uppercase = $objs; $uppercase = $objs;
$uppercase =~ tr/[a-z]/[A-Z]/; $uppercase =~ tr/[a-z]/[A-Z]/;
print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n";
@ -3627,16 +3614,10 @@ if ($ARGV[0] eq "win2khpl"){
$count ++; $count ++;
} }
# foreach $objs (@hplobjs2) {
# print "\t$objs=$objs"," \@", $count, "\n";
# $count ++;
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "microsoft"){ if ($ARGV[0] eq "microsoft"){
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
print "EXPORTS\n"; print "EXPORTS\n";
@ -3669,7 +3650,6 @@ if ($ARGV[0] eq "microsoft"){
} }
if ($ARGV[0] eq "linktest") { if ($ARGV[0] eq "linktest") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3682,16 +3662,10 @@ if ($ARGV[0] eq "linktest"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "();\n"; print $symbolprefix, $objs, $symbolsuffix, "();\n";
} }
# }
print "return 0;}\n"; print "return 0;}\n";
exit(0); exit(0);
} }