Added openblas_set_num_threads dummy function on Windows. We plan to implement this...

diff --git a/driver/others/blas_server_win32.c b/driver/others/blas_server_win32.c
index 6708509..c71e7c2 100644 (file)
--- a/driver/others/blas_server_win32.c
+++ b/driver/others/blas_server_win32.c
@@ -63,6 +63,14 @@ static blas_pool_t   pool;
 static HANDLE      blas_threads   [MAX_CPU_NUMBER];
 static DWORD       blas_threads_id[MAX_CPU_NUMBER];
 
+void goto_set_num_threads(int num)
+{
+}
+
+void openblas_set_num_threads(int num)
+{
+}
+
 static void legacy_exec(void *func, int mode, blas_arg_t *args, void *sb){
 
       if (!(mode & BLAS_COMPLEX)){

diff --git a/exports/gensymbol b/exports/gensymbol
index 61e7c83..e09a8b6 100644 (file)
--- a/exports/gensymbol
+++ b/exports/gensymbol
@@ -2759,6 +2759,10 @@ if ($ARGV[0] eq "aix"){
 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]/;
@@ -2769,7 +2773,11 @@ if ($ARGV[0] eq "win2k"){
        print "\t$uppercase=$objs", "_  \@", $count, "\n";
        $count ++;
     }
-
+    
+       #for openblas_set_num_threads 
+    print "\topenblas_set_num_threads_=openblas_set_num_threads_  \@", $count, "\n";
+       $count ++;
+       
 #      if ($ARGV[4] == 0) {
                foreach $objs (@no_underscore_objs) {
                        print "\t",$objs,"=$objs","  \@", $count, "\n";