fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-10-23 10:42 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbfbird/firebird.c
    % further simplifications and fixed typo in prev
This commit is contained in:
Viktor Szakats
2012-10-23 08:46:27 +00:00
parent b0b40172b5
commit 46851673d9
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -15,6 +15,11 @@
under different terms, please contact respective author(s).
The license applies to all entries newer than 2009-04-28.
*/
2012-10-23 10:42 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbfbird/firebird.c
% further simplifications and fixed typo in prev
2012-10-23 10:37 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbfbird/firebird.c
! fixed missing formatting/indenting in prev commit

13
harbour/contrib/hbfbird/firebird.c
View File

@@ -477,16 +477,15 @@ HB_FUNC( FBFETCH )
XSQLDA * sqlda = ( XSQLDA * ) hb_itemGetPtr( hb_itemArrayGet( aParam, 2 ) );
ISC_STATUS_ARRAY status;
unsigned short dialect = ( unsigned short ) hb_itemGetNI( hb_itemArrayGet( aParam, 5 ) );
ISC_STATUS fetch_stat;
/* TOFIX */
fetch_stat = isc_dsql_fetch( status, &stmt, dialect, sqlda );
hb_retnl( fetch_stat == 100L ? isc_sqlcode( status ) : -1 );
return;
hb_retnl( isc_dsql_fetch( status,
&stmt,
dialect,
sqlda ) == 100L ? -1 : isc_sqlcode( status ) );
}
hb_retnl( 0 );
else
hb_retnl( 0 );
}
HB_FUNC( FBFREE )