corrected bug: core dump when TecsInit fails

tecsdriv.c

@@ -64,11 +64,6 @@
 
 #include "evdriver.i"  
 
-/*------------------------- The Driver ------------------------------------*/
-
-   pEVDriver CreateTecsDriver(int argc, char *argv[]);
-      
-      
 /*-----------------------------------------------------------------------*/
   typedef struct {
                    void *pData;
@@ -81,6 +76,7 @@
   static time_t lastGet=0;
 
 /*-------------------------------------------------------------------------*/
+
   int TecsWrapper(SConnection *pCon, SicsInterp *pSics, void *pData,
                   int argc, char *argv[])
   {
@@ -188,7 +184,7 @@
      return 1;
  }
 /*--------------------------------------------------------------------------*/
-  static int TecsError(pEVDriver self, int *iCode, char *error, int iErrLen)
+  int TecsError(pEVDriver self, int *iCode, char *error, int iErrLen)
   {
      pTecsDriv pMe = NULL;
      
@@ -253,7 +249,7 @@
      {
        pMe->iLastError = 1; /* severe */
        pMe->lastError = ErrMessage;
-       return 0;
+       return -1; /* fatal */
      }
      return 1;
   }