Merge pull request #1121 from staticfloat/sf/Xsymv_export
Add `csymv` and `zsymv` into `@lapackobjs2` for exporting
This commit is contained in:
Martin Kroeker
GitHub
commit
9254a701f3
|
|
@ -1,6 +1,9 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# Changelog
|
||||
# 2017/09/03 staticfloat
|
||||
# Added zsymv and csymv into @lapackobjs2 so they are properly renamed
|
||||
#
|
||||
# 2017/07/01 Saar
|
||||
# removed zsymv_ and csymv_ from @blasobs, because these functions
|
||||
# are now in lapack-3.7.0
|
||||
|
|
@ -266,7 +269,7 @@
|
|||
spotrs,
|
||||
|
||||
# CLASRC -- Single precision complex LAPACK routines
|
||||
# already provided by @blasobjs: csymv
|
||||
# already provided by @blasobjs:
|
||||
# already provided by @lapackobjs:
|
||||
# cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri
|
||||
cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx,
|
||||
|
|
@ -313,6 +316,7 @@
|
|||
cspsvx, csptrf, csptri, csptrs, csrscl, cstedc,
|
||||
cstegr, cstein, csteqr,
|
||||
csycon,
|
||||
csymv,
|
||||
csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x,
|
||||
csyswapr, csytrs, csytrs2, csyconv,
|
||||
ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2,
|
||||
|
|
@ -406,7 +410,7 @@
|
|||
dtpqrt, dtpqrt2, dtpmqrt, dtprfb,
|
||||
|
||||
# ZLASRC -- Double precision complex LAPACK routines
|
||||
# already provided by @blasobjs: zsymv
|
||||
# already provided by @blasobjs:
|
||||
# already provided by @lapackobjs:
|
||||
# zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri,
|
||||
# ztrti2, ztrtri
|
||||
|
|
@ -457,6 +461,7 @@
|
|||
zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc,
|
||||
zstegr, zstein, zsteqr,
|
||||
zsycon,
|
||||
zsymv,
|
||||
zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x,
|
||||
zsyswapr, zsytrs, zsytrs2, zsyconv,
|
||||
ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2,
|
||||
|
|
@ -825,7 +830,6 @@
|
|||
);
|
||||
|
||||
@lapacke_deprecated_objs = (
|
||||
|
||||
LAPACKE_cggsvp,
|
||||
LAPACKE_cggsvp_work,
|
||||
LAPACKE_dggsvp,
|
||||
|
|
@ -850,7 +854,6 @@
|
|||
LAPACKE_sgeqpf_work,
|
||||
LAPACKE_zgeqpf,
|
||||
LAPACKE_zgeqpf_work,
|
||||
|
||||
);
|
||||
|
||||
|
||||
|
|
@ -3388,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,
|
||||
|
|
@ -3404,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);
|
||||
|
|
@ -3416,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
|
||||
|
|
@ -3431,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);
|
||||
}
|
||||
|
|
@ -3442,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{
|
||||
|
|
@ -3482,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);
|
||||
|
||||
|
|
@ -3494,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);
|
||||
|
||||
|
|
@ -3515,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);
|
||||
|
||||
|
|
@ -3536,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);
|
||||
|
||||
|
|
@ -3557,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);
|
||||
}
|
||||
|
||||
|
|
@ -3595,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";
|
||||
|
|
@ -3627,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";
|
||||
|
|
@ -3669,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);
|
||||
|
||||
|
|
@ -3682,16 +3662,10 @@ 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);
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue