2009-09-07 22:29 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/source/vm/thread.c
    + added HB_MT() PRG function which exists only in MT HVM version and
      can be REQUESTed from .prg code to force linking MT HVM.

  * harbour/contrib/hbnetio/utils/netiosrv.prg
    ! fixed typo in port parameter support
    * modified name of second parameter. Instead of 'address' use 'ifaddr'
      (interface address) which seems to be more precise name.
    * added 'request HB_MT' to protect linking with HVM without MT support.

harbour/ChangeLog

@@ -17,6 +17,17 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-09-07 22:29 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/thread.c
+    + added HB_MT() PRG function which exists only in MT HVM version and
+      can be REQUESTed from .prg code to force linking MT HVM.
+
+  * harbour/contrib/hbnetio/utils/netiosrv.prg
+    ! fixed typo in port parameter support
+    * modified name of second parameter. Instead of 'address' use 'ifaddr'
+      (interface address) which seems to be more precise name.
+    * added 'request HB_MT' to protect linking with HVM without MT support.
+
 2009-09-07 21:21 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * config/common/watcom.mk
     ! Upped -p linker option (from 64 to 72) to not choke on hbrtl

harbour/contrib/hbnetio/utils/netiosrv.prg

@@ -12,10 +12,13 @@
  *
  */
 
-proc main( cPort, cAddress )
+/* netio_mtserver() needs MT HVM version */
+request HB_MT
+
+proc main( port, ifaddr )
    local pListenSocket
 
-   pListenSocket := netio_mtserver( hb_ntos( cPort ), cAddress )
+   pListenSocket := netio_mtserver( iif( port != NIL, val( port ), ), ifaddr )
    if empty( pListenSocket )
       ? "Cannot start server."
    else

harbour/source/vm/thread.c

@@ -2506,6 +2506,13 @@ HB_FUNC( HB_MTVM )
 #endif
 }
 
+#if defined( HB_MT_VM )
+HB_FUNC( HB_MT )
+{
+   hb_retl( TRUE );
+}
+#endif
+
 #if defined( HB_TASK_THREAD ) && defined( HB_MT_VM )
 #  include "task.c"
 #endif