Changeset 10ddc94 in tol for toltcl

Timestamp:

Feb 12, 2015, 11:28:56 AM (12 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

faeebda

Parents:

bddfe5e

Message:

refs #1812, #1818, deshabilitamos la interseccion de errores de gsl, esto debe hacerse desde TOL

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@6460 be4846ae-f051-483a-831f-b64e7d08527f

File:

• toltcl/generic/toltcl.c (modified) (5 diffs)

toltcl/generic/toltcl.c

@@ -25 +25 @@
 
 #include <string.h>
+#if defined( __HANDLE_GSL_ERRORS__ )
 #include <gsl/gsl_errno.h>
+#endif
 
 #include <toltclInt.h>
@@ -147 +149 @@
                                          int objc, Tcl_Obj *CONST objv[]));
 
+#if defined( __HANDLE_GSL_ERRORS__ )
 DLLIMPORT gsl_error_handler_t * Tol_gsl_set_error_handler (gsl_error_handler_t * new_handler);
 DLLIMPORT const char * Tol_gsl_strerror (const int gsl_errno);
@@ -187 +190 @@
   }  
 }
-
+#endif
 
 /*
@@ -245 +248 @@
     InitTolKernel(Tcl_GetNameOfExecutable(), lang, vmode&&vmode[0]?vmode:NULL);
     
+#if defined( __HANDLE_GSL_ERRORS__ )
     /*
      * this should only be called to find out where the GSL errors are generated
@@ -250 +254 @@
     
     Tol_gsl_set_error_handler(&TT_gsl_error_handler);
+#endif
+
   } else {
     /* printf( "****TOL esta inicializado****\n" ); */