From e129a1f268d1dee540cd27b6db19dc7091cfc02a Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 8 Mar 2011 22:53:47 +0000
Subject: [PATCH] 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.

---
 harbour/ChangeLog           | 5 +++++
 harbour/contrib/hbgs/core.c | 7 ++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 699aba5875..2e83359bda 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/contrib/hbgs/core.c b/harbour/contrib/hbgs/core.c
index 5c72fe67c8..187ea612c5 100644
--- a/harbour/contrib/hbgs/core.c
+++ b/harbour/contrib/hbgs/core.c
@@ -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 );
 }