q-lang-cvs

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q/modules/odbc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv22305

Modified Files:
	odbc.c 
Log Message:
bugfixes

Index: odbc.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/odbc/odbc.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** odbc.c	15 Feb 2008 11:33:22 -0000	1.10
--- odbc.c	15 Feb 2008 20:58:12 -0000	1.11
***************
*** 720,723 ****
--- 720,724 ----
        }
      } while (ret != SQL_NO_DATA_FOUND);
+     SQLFreeStmt(db->hstmt, SQL_RESET_PARAMS);
      SQLFreeStmt(db->hstmt, SQL_CLOSE);
      if (n == 0) {
***************
*** 730,733 ****
--- 731,735 ----
      free(xs);
      res = mkerr(db->henv, db->hdbc, db->hstmt);
+     SQLFreeStmt(db->hstmt, SQL_RESET_PARAMS);
      SQLFreeStmt(db->hstmt, SQL_CLOSE);
      return res;
***************
*** 735,738 ****
--- 737,741 ----
      for (i = 0; i < n; i++) dispose(xs[i]);
      free(xs);
+     SQLFreeStmt(db->hstmt, SQL_RESET_PARAMS);
      SQLFreeStmt(db->hstmt, SQL_CLOSE);
      return __ERROR;