[htoolkit-cvs] HSQL/ODBC HSQL.hsc,1.8,1.9

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

Update of /cvsroot/htoolkit/HSQL/ODBC
In directory sc8-pr-cvs1:/tmp/cvs-serv740/ODBC

Modified Files:
	HSQL.hsc 
Log Message:
bugfix


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/ODBC/HSQL.hsc,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** HSQL.hsc	27 Sep 2003 09:49:19 -0000	1.8
--- HSQL.hsc	4 Jan 2004 10:22:34 -0000	1.9
***************
*** 169,181 ****
  		pMsg    <- mallocBytes 256
  		pTextLen <- malloc
! 		sqlGetDiagRec handleType handle 1 pState pNative pMsg 256 pTextLen
! 		state <- peekCString pState
  		free pState
- 		native <- peek pNative
  		free pNative
- 		msg <- peekCString pMsg
  		free pMsg
  		free pTextLen	
! 		throwDyn (SqlError {seState=state, seNativeError=fromIntegral native, seErrorMsg=msg})
  	| otherwise = error (show res)
  
--- 169,185 ----
  		pMsg    <- mallocBytes 256
  		pTextLen <- malloc
! 		res <- sqlGetDiagRec handleType handle 1 pState pNative pMsg 256 pTextLen
! 		e <- if res == (#const SQL_NO_DATA) 
! 		       then return SqlNoData
! 		       else do
! 		          state  <- peekCString pState
! 		          native <- peek pNative
! 		          msg    <- peekCString pMsg
! 		          return (SqlError {seState=state, seNativeError=fromIntegral native, seErrorMsg=msg})
  		free pState
  		free pNative
  		free pMsg
  		free pTextLen	
! 		throwDyn e
  	| otherwise = error (show res)