2011-05-19 18:59 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* src/rtl/valtype.c
  * contrib/xhb/xhb.hbx
  * contrib/xhb/xhbfunc.c
    * HB_ISBYREF() function uncommented and moved from core to xhb lib
  * contrib/xhb/xhb.hbc
    + linking hbfship to better emulate xhb environment
  * contrib/hbfoxpro/misc.prg
    * formatting

harbour/ChangeLog

@@ -16,6 +16,16 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-05-19 18:59 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/valtype.c
+  * contrib/xhb/xhb.hbx
+  * contrib/xhb/xhbfunc.c
+    * HB_ISBYREF() function uncommented and moved from core to xhb lib
+  * contrib/xhb/xhb.hbc
+    + linking hbfship to better emulate xhb environment
+  * contrib/hbfoxpro/misc.prg
+    * formatting
+
 2011-05-19 17:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * src/debug/debugger.prg
   * src/rtl/valtoexp.prg

harbour/contrib/hbfoxpro/misc.prg

@@ -70,7 +70,6 @@ FUNCTION SYS( nValue, xPar1 )
 
    RETURN NIL
 
-
 STATIC FUNCTION AFILLNESTED( aValue, xVal )
    LOCAL item
 

harbour/contrib/xhb/xhb.hbc

@@ -11,4 +11,5 @@ libs=${_HB_DYNPREF}${hb_name}${_HB_DYNSUFF}
 libs=../hbct/hbct.hbc
 libs=../hbtip/hbtip.hbc
 libs=../hbwin/hbwin.hbc
+libs=../hbfship/hbfship.hbc
 libs=../hbxpp/hbxpp.hbc

harbour/contrib/xhb/xhb.hbx

@@ -137,6 +137,7 @@ DYNAMIC HB_F_EOF
 DYNAMIC HB_GETLEN8
 DYNAMIC HB_HASHADDMEMBER
 DYNAMIC HB_INITSTANDARDLOG
+DYNAMIC HB_ISBYREF
 DYNAMIC HB_ISREGEXSTRING
 DYNAMIC HB_ISSERVICE
 DYNAMIC HB_IS_CSTRUCTURE

harbour/contrib/xhb/xhbfunc.c

@@ -69,6 +69,7 @@
 #include "hbapigt.h"
 #include "hbapicls.h"
 #include "hbapierr.h"
+#include "hbstack.h"
 #include "hbvm.h"
 
 #if 0
@@ -318,6 +319,16 @@ HB_FUNC( XHB_MEMOWRIT )
       HB_FUNC_EXEC( MEMOWRIT )
 }
 
+HB_FUNC( HB_ISBYREF )
+{
+   if( hb_pcount() )
+   {
+      PHB_ITEM pItem = hb_stackItemFromBase( 1 );
+      if( HB_IS_BYREF( pItem ) )
+         hb_retl( HB_IS_BYREF( hb_itemUnRefOnce( pItem ) ) );
+   }
+}
+
 HB_FUNC_EXTERN( HB_METHODNAME         ) ; HB_FUNC( METHODNAME               ) { HB_FUNC_EXEC( HB_METHODNAME         ); }
 HB_FUNC_EXTERN( HB_LIBLOAD            ) ; HB_FUNC( LIBLOAD                  ) { HB_FUNC_EXEC( HB_LIBLOAD            ); }
 HB_FUNC_EXTERN( HB_LIBFREE            ) ; HB_FUNC( LIBFREE                  ) { HB_FUNC_EXEC( HB_LIBFREE            ); }

harbour/src/rtl/valtype.c

@@ -65,27 +65,12 @@
 #include "hbapi.h"
 #include "hbapiitm.h"
 #include "hbapierr.h"
-/* #include "hbstack.h" */
 
 HB_FUNC( VALTYPE )
 {
    hb_retc( hb_itemTypeStr( hb_param( 1, HB_IT_ANY ) ) );
 }
 
-/*
-HB_FUNC( HB_ISBYREF )
-{
-   if( hb_pcount() )
-   {
-      PHB_ITEM pItem = hb_stackItemFromBase( 1 );
-      if( HB_IS_BYREF( pItem ) )
-      {
-         hb_retl( HB_IS_BYREF( hb_itemUnRefOnce( pItem ) ) );
-      }
-   }
-}
-*/
-
 HB_FUNC( HB_ISNIL )
 {
    hb_retl( HB_ISNIL( 1 ) );