fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See ChangeLog entry 2000-08-04 19:00 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-08-04 23:03:59 +00:00
parent 355d1e21f9
commit 2cb19f8a88
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-08-04 19:00 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/run.c
* Changed submitted by Marek Paliwoda <paliwoda@inetia.pl>
2000-08-03 18:50 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/macro/macro.slx
* source/compiler/harbour.slx

15
harbour/source/rtl/run.c
View File

@@ -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
}