diff options
Diffstat (limited to 'exports/gensymbol')
| -rw-r--r-- | exports/gensymbol | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/exports/gensymbol b/exports/gensymbol index e09a8b6ab..64c92d396 100644 --- a/exports/gensymbol +++ b/exports/gensymbol @@ -2760,30 +2760,27 @@ if ($ARGV[0] eq "win2k"){ print "EXPORTS\n"; $count = 1; - #remove openblas_set_num_threads - @underscore_objs = grep /[^openblas_set_num_threads]/,@underscore_objs; - foreach $objs (@underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t$objs=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$objs, "_=$objs","_ \@", $count, "\n"; - $count ++; - print "\t$uppercase=$objs", "_ \@", $count, "\n"; - $count ++; + unless ($objs =~ /openblas_set_num_threads/) { #remove openblas_set_num_threads + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t$objs=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$objs, "_=$objs","_ \@", $count, "\n"; + $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"; + $count ++; + + foreach $objs (@no_underscore_objs) { + print "\t",$objs,"=$objs"," \@", $count, "\n"; $count ++; - -# if ($ARGV[4] == 0) { - foreach $objs (@no_underscore_objs) { - print "\t",$objs,"=$objs"," \@", $count, "\n"; - $count ++; - } -# } + } exit(0); } |