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

Fixed generating dll bug in last commit.

This commit is contained in:
Zhang Xianyi 2013-07-11 22:24:50 +08:00
parent 824c3c4df3
commit 5448643557
1 changed files with 52 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
exports/gensymbol
View File

@ -72,13 +72,18 @@
zgemm3m, cgemm3m, zsymm3m, csymm3m, zhemm3m, chemm3m, zgemm3m, cgemm3m, zsymm3m, csymm3m, zhemm3m, chemm3m,
); );
#both underscore and no underscore
@misc_common_objs = (
openblas_set_num_threads, openblas_get_parallel,
);
@misc_no_underscore_objs = ( @misc_no_underscore_objs = (
openblas_set_num_threads, goto_set_num_threads, goto_set_num_threads,
openblas_get_config, openblas_get_parallel openblas_get_config,
); );
@misc_underscore_objs = ( @misc_underscore_objs = (
openblas_set_num_threads,openblas_get_parallel
); );
@lapackobjs = ( @lapackobjs = (
@ -2716,6 +2721,10 @@ $bu = $ARGV[2];
$bu = "" if (($bu eq "0") || ($bu eq "1")); $bu = "" if (($bu eq "0") || ($bu eq "1"));
if ($ARGV[0] eq "linux"){ if ($ARGV[0] eq "linux"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
print $objs, $bu, "\n"; print $objs, $bu, "\n";
} }
@ -2733,6 +2742,10 @@ if ($ARGV[0] eq "linux"){
} }
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);
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
print "_", $objs, $bu, "\n"; print "_", $objs, $bu, "\n";
} }
@ -2746,6 +2759,10 @@ if ($ARGV[0] eq "osx"){
} }
if ($ARGV[0] eq "aix"){ if ($ARGV[0] eq "aix"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
print $objs, $bu, "\n"; print $objs, $bu, "\n";
} }
@ -2761,23 +2778,31 @@ if ($ARGV[0] eq "aix"){
if ($ARGV[0] eq "win2k"){ if ($ARGV[0] eq "win2k"){
print "EXPORTS\n"; print "EXPORTS\n";
$count = 1; $count = 1;
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
unless ($objs =~ /openblas_set_num_threads/) { #remove openblas_set_num_threads $uppercase = $objs;
$uppercase = $objs; $uppercase =~ tr/[a-z]/[A-Z]/;
$uppercase =~ tr/[a-z]/[A-Z]/; print "\t$objs=$objs","_ \@", $count, "\n";
print "\t$objs=$objs","_ \@", $count, "\n"; $count ++;
$count ++; print "\t",$objs, "_=$objs","_ \@", $count, "\n";
print "\t",$objs, "_=$objs","_ \@", $count, "\n"; $count ++;
$count ++; print "\t$uppercase=$objs", "_ \@", $count, "\n";
print "\t$uppercase=$objs", "_ \@", $count, "\n"; $count ++;
$count ++; }
}
#for misc_common_objs
foreach $objs (@misc_common_objs) {
$uppercase = $objs;
$uppercase =~ tr/[a-z]/[A-Z]/;
print "\t",$objs, "_=$objs","_ \@", $count, "\n";
$count ++;
print "\t$uppercase=$objs", "_ \@", $count, "\n";
$count ++;
} }
#for openblas_set_num_threads
print "\topenblas_set_num_threads_=openblas_set_num_threads_ \@", $count, "\n";
$count ++;
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print "\t",$objs,"=$objs"," \@", $count, "\n"; print "\t",$objs,"=$objs"," \@", $count, "\n";
@ -2810,6 +2835,9 @@ if ($ARGV[0] eq "win2khpl"){
} }
if ($ARGV[0] eq "microsoft"){ if ($ARGV[0] eq "microsoft"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
print "EXPORTS\n"; print "EXPORTS\n";
$count = 1; $count = 1;
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
@ -2828,6 +2856,9 @@ if ($ARGV[0] eq "microsoft"){
} }
if ($ARGV[0] eq "win2kasm"){ if ($ARGV[0] eq "win2kasm"){
@underscore_objs = (@underscore_objs, @misc_common_objs);
print "\t.text\n"; print "\t.text\n";
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
$uppercase = $objs; $uppercase = $objs;
@ -2841,6 +2872,10 @@ if ($ARGV[0] eq "win2kasm"){
} }
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);
print "int main(void){\n"; print "int main(void){\n";
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
print $objs, $bu, "();\n" if $objs ne "xerbla"; print $objs, $bu, "();\n" if $objs ne "xerbla";