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

2011-03-08 23:53 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbgs/core.c
    * HB_GSAPI_REVISION() changed to return integer result like the 
      original function.
This commit is contained in:
Viktor Szakats
2011-03-08 22:53:47 +00:00
parent d8ee19c19b
commit e129a1f268
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-03-08 23:53 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbgs/core.c
* HB_GSAPI_REVISION() changed to return integer result like the
original function.
2011-03-08 09:44 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbvm.h
* harbour/src/vm/hvm.c

7
harbour/contrib/hbgs/core.c
View File

@@ -103,14 +103,14 @@ HB_FUNC( HB_GS )
HB_FUNC( HB_GSAPI_REVISION )
{
gsapi_revision_t r;
int result = gsapi_revision( &r, sizeof( r ) );
if( gsapi_revision( &r, sizeof( r ) ) == 0 )
if( result == 0 )
{
hb_storc( r.product, 1 );
hb_storc( r.copyright, 2 );
hb_stornl( r.revision, 3 );
hb_stornl( r.revisiondate, 4 );
hb_retl( HB_TRUE );
}
else
{
@@ -118,6 +118,7 @@ HB_FUNC( HB_GSAPI_REVISION )
hb_storc( NULL, 2 );
hb_stornl( 0, 3 );
hb_stornl( 0, 4 );
hb_retl( HB_TRUE );
}
hb_retni( result );
}