[htoolkit-cvs] HSQL/ODBC/Database/HSQL ODBC.hsc,1.3,1.4

[<kr_...@us...>]

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