From: Xianyi Zhang <xianyi@iscas.ac.cn>
Date: Sat, 23 Jun 2012 05:07:38 +0000 (+0800)
Subject: Added openblas_set_num_threads dummy function on Windows. We plan to implement this... 
X-Git-Tag: v0.2.0^2~3
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=853d16ed7ec9169cf03ec024f5894e9a597c7da1;p=platform%2Fupstream%2Fopenblas.git

Added openblas_set_num_threads dummy function on Windows. We plan to implement this feature in next version.
---

diff --git a/driver/others/blas_server_win32.c b/driver/others/blas_server_win32.c
index 6708509..c71e7c2 100644
--- 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
--- 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";