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
|
||||
|
|
@ -46,7 +49,7 @@
|
|||
cimatcopy,
|
||||
zomatcopy,
|
||||
zimatcopy,
|
||||
);
|
||||
);
|
||||
|
||||
@cblasobjs = (
|
||||
cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv,
|
||||
|
|
@ -78,7 +81,7 @@
|
|||
cblas_somatcopy, cblas_domatcopy, cblas_comatcopy, cblas_zomatcopy,
|
||||
cblas_simatcopy, cblas_dimatcopy, cblas_cimatcopy, cblas_zimatcopy,
|
||||
cblas_sgeadd, cblas_dgeadd,cblas_cgeadd, cblas_zgeadd
|
||||
);
|
||||
);
|
||||
|
||||
@exblasobjs = (
|
||||
qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm,
|
||||
|
|
@ -95,15 +98,15 @@
|
|||
xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv,
|
||||
# qrot,qrotg,qrotm,qrotmg,
|
||||
# xdrot,xrotg,
|
||||
);
|
||||
);
|
||||
|
||||
@gemm3mobjs = (
|
||||
cgemm3m,zgemm3m
|
||||
);
|
||||
);
|
||||
|
||||
@cblasgemm3mobjs = (
|
||||
cblas_cgemm3m,cblas_zgemm3m
|
||||
);
|
||||
);
|
||||
|
||||
|
||||
|
||||
|
|
@ -114,16 +117,16 @@
|
|||
openblas_get_num_procs,
|
||||
openblas_set_num_threads,
|
||||
openblas_get_num_threads,
|
||||
);
|
||||
);
|
||||
|
||||
@misc_no_underscore_objs = (
|
||||
goto_set_num_threads,
|
||||
openblas_get_config,
|
||||
openblas_get_corename,
|
||||
);
|
||||
);
|
||||
|
||||
@misc_underscore_objs = (
|
||||
);
|
||||
);
|
||||
|
||||
@lapackobjs = (
|
||||
# These routines are provided by OpenBLAS.
|
||||
|
|
@ -139,7 +142,7 @@
|
|||
strti2, dtrti2, ctrti2, ztrti2,
|
||||
strtri, dtrtri, ctrtri, ztrtri,
|
||||
spotri, dpotri, cpotri, zpotri,
|
||||
);
|
||||
);
|
||||
|
||||
@lapackobjs2 = (
|
||||
# These routines are provided by LAPACK (reference implementation).
|
||||
|
|
@ -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,
|
||||
|
|
@ -810,22 +815,21 @@
|
|||
sladiv1,
|
||||
dladiv1,
|
||||
iparam2stage,
|
||||
);
|
||||
);
|
||||
|
||||
@lapack_extendedprecision_objs = (
|
||||
zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx,
|
||||
dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx,
|
||||
);
|
||||
);
|
||||
|
||||
@lapack_deprecated_objs = (
|
||||
cgegs, cggsvd, ctzrqf, dgeqpf, dlatzm, sgelsx, slahrd, zgegv, zggsvp,
|
||||
cgegv, cggsvp, dgegs, dggsvd, dtzrqf, sgeqpf, slatzm, zgelsx, zlahrd,
|
||||
cgelsx, clahrd, dgegv, dggsvp, sgegs, sggsvd, stzrqf, zgeqpf, zlatzm,
|
||||
cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf,
|
||||
);
|
||||
);
|
||||
|
||||
@lapacke_deprecated_objs = (
|
||||
|
||||
LAPACKE_cggsvp,
|
||||
LAPACKE_cggsvp_work,
|
||||
LAPACKE_dggsvp,
|
||||
|
|
@ -850,8 +854,7 @@
|
|||
LAPACKE_sgeqpf_work,
|
||||
LAPACKE_zgeqpf,
|
||||
LAPACKE_zgeqpf_work,
|
||||
|
||||
);
|
||||
);
|
||||
|
||||
|
||||
@lapackeobjs = (
|
||||
|
|
@ -3385,10 +3388,11 @@
|
|||
LAPACKE_zsytrs_aa_work,
|
||||
LAPACKE_zsytrs_3,
|
||||
LAPACKE_zsytrs_3_work,
|
||||
);
|
||||
);
|
||||
|
||||
#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,22 +3418,20 @@ if ($ARGV[8] == 1) {
|
|||
#NO_LAPACK=1
|
||||
@underscore_objs = (@blasobjs, @misc_underscore_objs);
|
||||
} elsif (-d "../lapack-netlib") {
|
||||
|
||||
if ($ARGV[7] == 0){
|
||||
if ($ARGV[7] == 0) {
|
||||
# NEED2UNDERSCORES=0
|
||||
# Don't need 2 underscores
|
||||
@underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs);
|
||||
}else{
|
||||
} else {
|
||||
# Need 2 underscores
|
||||
@underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs);
|
||||
@need_2underscore_objs = (@lapack_embeded_underscore_objs);
|
||||
};
|
||||
|
||||
if ($ARGV[11] == 1){
|
||||
if ($ARGV[11] == 1) {
|
||||
#BUILD_LAPACK_DEPRECATED=1
|
||||
@underscore_objs =(@underscore_objs, @lapack_deprecated_objs);
|
||||
@underscore_objs = (@underscore_objs, @lapack_deprecated_objs);
|
||||
}
|
||||
|
||||
} else {
|
||||
@underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs);
|
||||
}
|
||||
|
|
@ -3442,15 +3442,15 @@ 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_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[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);
|
||||
|
|
@ -3462,10 +3462,10 @@ if ($ARGV[6] == 1) {
|
|||
#NO_LAPACKE=1
|
||||
@no_underscore_objs = (@no_underscore_objs);
|
||||
} else {
|
||||
if ($ARGV[11] == 1){
|
||||
if ($ARGV[11] == 1) {
|
||||
#BUILD_LAPACK_DEPRECATED=1
|
||||
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs);
|
||||
}else{
|
||||
} else {
|
||||
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs);
|
||||
}
|
||||
}
|
||||
|
|
@ -3481,8 +3481,7 @@ $symbolprefix = $ARGV[9];
|
|||
|
||||
$symbolsuffix = $ARGV[10];
|
||||
|
||||
if ($ARGV[0] eq "osx"){
|
||||
|
||||
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"){
|
||||
|
||||
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"){
|
||||
|
||||
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";
|
||||
|
|
@ -3613,7 +3600,7 @@ if ($ARGV[0] eq "win2k"){
|
|||
exit(0);
|
||||
}
|
||||
|
||||
if ($ARGV[0] eq "win2khpl"){
|
||||
if ($ARGV[0] eq "win2khpl") {
|
||||
print "EXPORTS\n";
|
||||
$count = 1;
|
||||
foreach $objs (@hplobjs) {
|
||||
|
|
@ -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";
|
||||
|
|
@ -3668,8 +3649,7 @@ if ($ARGV[0] eq "microsoft"){
|
|||
exit(0);
|
||||
}
|
||||
|
||||
if ($ARGV[0] eq "linktest"){
|
||||
|
||||
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