2000-10-16 20:22 GMT+1 Victor Szakats <vector@matavnet.hu>

harbour/ChangeLog

@@ -1,3 +1,7 @@
+2000-10-16 20:22 GMT+1 Victor Szakats <vector@matavnet.hu>
+   * source/rtl/run.c
+     ! __RUN() fixed.
+
 2000-10-16 04:10 UTC+0800 Ron Pinkas <ron@profit-master.com>
     + contrib/dot
       + contrib/dot/pp.prg

harbour/source/rtl/run.c

@@ -43,11 +43,11 @@
 HB_FUNC( __RUN )
 {
 #if defined(__TURBOC__) || defined(__BORLANDC__) || defined(_MSC_VER) || defined(__IBMCPP__) || defined(__GNUC__)
-   if( ISCHAR( 1 ) && hb_gtSuspend() )
+   if( ISCHAR( 1 ) && hb_gtSuspend() == 0 )
    {
       system( hb_parc( 1 ) );
 
-      if( ! hb_gtResume() )
+      if( hb_gtResume() != 0 )
       {
          /* an error should be generated here !! Something like */
          /* hb_errRT_BASE_Ext1( EG_GTRESUME, 9999, NULL, "__RUN", 0, EF_CANDEFAULT ); */