[q-lang-cvs] q/modules/odbc odbc.c,1.6,1.7

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

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

Modified Files:
	odbc.c 
Log Message:
check SQL status before freeing SQL statement

Index: odbc.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/odbc/odbc.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** odbc.c	11 Feb 2008 22:58:47 -0000	1.6
--- odbc.c	11 Feb 2008 23:01:33 -0000	1.7
***************
*** 684,690 ****
      goto exit;
    err:
      free_args(db);
      SQLFreeStmt(db->hstmt, SQL_CLOSE);
-     res = mkerr(db->henv, db->hdbc, db->hstmt);
      goto exit;
    fatal:
--- 684,690 ----
      goto exit;
    err:
+     res = mkerr(db->henv, db->hdbc, db->hstmt);
      free_args(db);
      SQLFreeStmt(db->hstmt, SQL_CLOSE);
      goto exit;
    fatal: