Fix a bug in the LAPACK source linker

auriocus · Jun 18, 2014 · 55f75da · 55f75da
1 parent bfdc8d5
commit 55f75da
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/generic/clapack_cutdown.c b/generic/clapack_cutdown.c
@@ -1,7 +1,7 @@
 /* Generated code. Do not edit. See cherrypick_lapack.tcl */
 /* This file contains a subset of LAPACK for use with Tcl/VecTcl */
 /* available subroutines: dgesdd_ zgesdd_ dgemm_ zgemm_ dsyevr_ zheevr_ dgeev_ zgeev_ dgelss_ zgelss_ dgelsy_ zgelsy_ dgesv_ zgesv_ dgesvx_ zgesvx_ dgees_ zgees_  */
-#include "/Users/chris/Programmieren/VecTcl/generic/clapack_cutdown.h"
+#include "clapack_cutdown.h"
 #include "f2c_mathlib.h"
 /* Declaring the Tcl replacement for xerbla */
   MODULE_SCOPE int vectcl_xerbla(Tcl_Interp *interp, char* func, integer *info);

diff --git a/tools/cherrypick_clapack.tcl b/tools/cherrypick_clapack.tcl
@@ -369,7 +369,7 @@ proc generate_code {f args} {
 	puts $fdc {/* Generated code. Do not edit. See cherrypick_lapack.tcl */}
 	puts $fdc {/* This file contains a subset of LAPACK for use with Tcl/VecTcl */}
 	puts $fdc "/* available subroutines: $subroutines  */"
-	puts $fdc "#include \"$fh\""
+	puts $fdc "#include \"[file tail $fh]\""
 	puts $fdc "#include \"f2c_mathlib.h\""
 	puts $fdc "/* Declaring the Tcl replacement for xerbla */"