From f397f3f772a075215f894baa7cf798082444cc4f Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 16 Oct 2000 18:22:58 +0000 Subject: [PATCH] 2000-10-16 20:22 GMT+1 Victor Szakats --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/run.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5278a4e05a..9989528b95 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-10-16 20:22 GMT+1 Victor Szakats + * source/rtl/run.c + ! __RUN() fixed. + 2000-10-16 04:10 UTC+0800 Ron Pinkas + contrib/dot + contrib/dot/pp.prg diff --git a/harbour/source/rtl/run.c b/harbour/source/rtl/run.c index 8c05014ce7..13a9a9b247 100644 --- a/harbour/source/rtl/run.c +++ b/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 ); */