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:
|
