Update of /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28450/Database/HSQL
Modified Files:
ODBC.hsc
Log Message:
ODBC_DEBUG is renamed to DEBUG.
Index: ODBC.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL/ODBC.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ODBC.hsc 9 Jun 2005 12:16:34 -0000 1.3
--- ODBC.hsc 12 Oct 2005 14:30:05 -0000 1.4
***************
*** 28,32 ****
import System.IO.Unsafe
import System.Time
! #ifdef ODBC_DEBUG
import Debug.Trace
#endif
--- 28,32 ----
import System.IO.Unsafe
import System.Time
! #ifdef DEBUG
import Debug.Trace
#endif
***************
*** 92,98 ****
| res == (#const SQL_SUCCESS) || res == (#const SQL_NO_DATA) = return ()
| res == (#const SQL_SUCCESS_WITH_INFO) = do
! #ifdef ODBC_DEBUG
! e <- getDiagRec
! trace (show e) $ return ()
#else
return ()
--- 92,98 ----
| res == (#const SQL_SUCCESS) || res == (#const SQL_NO_DATA) = return ()
| res == (#const SQL_SUCCESS_WITH_INFO) = do
! #ifdef DEBUG
! e <- getSqlError
! putTraceMsg (show e)
#else
return ()
***************
*** 102,110 ****
| res == (#const SQL_NEED_DATA) = throwDyn SqlNeedData
| res == (#const SQL_ERROR) = do
! e <- getDiagRec
throwDyn e
| otherwise = error (show res)
where
! getDiagRec =
allocaBytes 256 $ \pState ->
alloca $ \pNative ->
--- 102,110 ----
| res == (#const SQL_NEED_DATA) = throwDyn SqlNeedData
| res == (#const SQL_ERROR) = do
! e <- getSqlError
throwDyn e
| otherwise = error (show res)
where
! getSqlError =
allocaBytes 256 $ \pState ->
alloca $ \pNative ->
|
