Export CBLAS funtions on Windows DLL.

diff --git a/exports/Makefile b/exports/Makefile
index 6905098..2db6b6d 100644 (file)
--- a/exports/Makefile
+++ b/exports/Makefile
@@ -58,16 +58,16 @@ dll  : ../$(LIBDLLNAME)
 
 dll2 : libgoto2_shared.dll
 
-../$(LIBDLLNAME) : ../$(LIBNAME) libgoto2.def dllinit.$(SUFFIX)
+../$(LIBDLLNAME) : ../$(LIBNAME) libopenblas.def dllinit.$(SUFFIX)
        $(RANLIB) ../$(LIBNAME)
 ifeq ($(BINARY32), 1)
-       $(DLLWRAP) -o ../$(LIBDLLNAME) --def libgoto2.def \
+       $(DLLWRAP) -o ../$(LIBDLLNAME) --def libopenblas.def \
        --entry _dllinit@12 -s dllinit.$(SUFFIX) --dllname $(@F) ../$(LIBNAME) $(FEXTRALIB)
-       -lib /machine:i386 /def:libgoto2.def
+       -lib /machine:i386 /def:libopenblas.def
 else
-       $(DLLWRAP) -o ../$(LIBDLLNAME) --def libgoto2.def \
+       $(DLLWRAP) -o ../$(LIBDLLNAME) --def libopenblas.def \
        --entry $(FU)dllinit    -s dllinit.$(SUFFIX) --dllname $(@F) ../$(LIBNAME) $(FEXTRALIB)
-       -lib /machine:X64 /def:libgoto2.def 
+       -lib /machine:X64 /def:libopenblas.def 
 endif
 
 libgoto2_shared.dll : ../$(LIBNAME) libgoto2_shared.def
@@ -75,7 +75,7 @@ libgoto2_shared.dll : ../$(LIBNAME) libgoto2_shared.def
        -Wl,--whole-archive ../$(LIBNAME) -Wl,--no-whole-archive \
        -Wl,--out-implib,libgoto2_shared.lib $(FEXTRALIB)
 
-libgoto2.def : gensymbol
+libopenblas.def : gensymbol
        perl ./gensymbol win2k    $(ARCH) dummy $(EXPRECISION) $(NO_CBLAS) $(NO_LAPACK) > $(@F)
 
 libgoto2_shared.def : gensymbol

diff --git a/exports/gensymbol b/exports/gensymbol
index 6a7c8c1..6b2a006 100644 (file)
--- a/exports/gensymbol
+++ b/exports/gensymbol
@@ -389,6 +389,13 @@ if ($ARGV[0] eq "win2k"){
        $count ++;
     }
 
+       if ($ARGV[4] == 0) {
+               foreach $objs (@cblasobjs) {
+                       print "\t",$objs,"=$objs","  \@", $count, "\n";
+                       $count ++;
+               }
+    }
+       
     exit(0);
 }