From 2cb19f8a88bce082ef179922d6285038cfbd4db6 Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Fri, 4 Aug 2000 23:03:59 +0000 Subject: [PATCH] See ChangeLog entry 2000-08-04 19:00 UTC-0400 David G. Holm --- harbour/ChangeLog | 5 +++++ harbour/source/rtl/run.c | 15 ++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9e71206d10..209d4335ed 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2000-08-04 19:00 UTC-0400 David G. Holm + + * source/rtl/run.c + * Changed submitted by Marek Paliwoda + 2000-08-03 18:50 UTC+0800 Ron Pinkas * source/macro/macro.slx * source/compiler/harbour.slx diff --git a/harbour/source/rtl/run.c b/harbour/source/rtl/run.c index 251e00d0a6..78a417f4e3 100644 --- a/harbour/source/rtl/run.c +++ b/harbour/source/rtl/run.c @@ -37,7 +37,7 @@ #include "hbapierr.h" #include "hbapigt.h" -/* TOFIX: The screen buffer handling is not right for all platforms (Win32) +/* TOFIX: The screen buffer handling is not right for all platforms (Win32) The output of the launched (DOS?) app is not visible. */ HB_FUNC( __RUN ) @@ -45,12 +45,17 @@ HB_FUNC( __RUN ) #if defined(__TURBOC__) || defined(__BORLANDC__) || defined(_MSC_VER) || defined(__IBMCPP__) || defined(__GNUC__) if( ISCHAR( 1 ) ) { - hb_gtSuspend(); - system( hb_parc( 1 ) ); - hb_gtResume(); + if ( hb_gtSuspend() ) + { + system( hb_parc( 1 ) ); + if ( !hb_gtResume() ) + { + /* an error should be generated here !! Something like */ + /* hb_errRT_BASE_Ext1( EG_GTRESUME, 9999, NULL, "__RUN", 0, EF_CANDEFAULT ); */ + } + } } #else hb_errRT_BASE_Ext1( EG_UNSUPPORTED, 9999, NULL, "__RUN", 0, EF_CANDEFAULT ); #endif } -