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

Refs #123. Fixed exporting DLL functions bug on Windows

This commit is contained in:
Zhang Xianyi 2012-07-06 21:37:51 +08:00
parent 6fcdaa4387
commit 4a5d08d0cf
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
exports/gensymbol
View File

@ -2760,30 +2760,27 @@ if ($ARGV[0] eq "win2k"){
print "EXPORTS\n"; print "EXPORTS\n";
$count = 1; $count = 1;
#remove openblas_set_num_threads
@underscore_objs = grep /[^openblas_set_num_threads]/,@underscore_objs;
foreach $objs (@underscore_objs) { foreach $objs (@underscore_objs) {
$uppercase = $objs; unless ($objs =~ /openblas_set_num_threads/) { #remove openblas_set_num_threads
$uppercase =~ tr/[a-z]/[A-Z]/; $uppercase = $objs;
print "\t$objs=$objs","_ \@", $count, "\n"; $uppercase =~ tr/[a-z]/[A-Z]/;
$count ++; print "\t$objs=$objs","_ \@", $count, "\n";
print "\t",$objs, "_=$objs","_ \@", $count, "\n"; $count ++;
$count ++; print "\t",$objs, "_=$objs","_ \@", $count, "\n";
print "\t$uppercase=$objs", "_ \@", $count, "\n"; $count ++;
$count ++; print "\t$uppercase=$objs", "_ \@", $count, "\n";
$count ++;
}
} }
#for openblas_set_num_threads #for openblas_set_num_threads
print "\topenblas_set_num_threads_=openblas_set_num_threads_ \@", $count, "\n"; print "\topenblas_set_num_threads_=openblas_set_num_threads_ \@", $count, "\n";
$count ++;
foreach $objs (@no_underscore_objs) {
print "\t",$objs,"=$objs"," \@", $count, "\n";
$count ++; $count ++;
}
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) {
print "\t",$objs,"=$objs"," \@", $count, "\n";
$count ++;
}
# }
exit(0); exit(0);
} }