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

2002-02-09 20:10 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-02-09 17:12:39 +00:00
parent 6048d11222
commit 8ade25dfd2
2 changed files with 41 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
! Fixed problems with hb_strupr( ( hb_parc(1) ) by using hb_strdup()
* source/rdd/workarea.c
! Fixed a bug in hb_waAddField()
2002-02-10 16:00 UTC+0100 Antonio Linares <alinares@fivetech.com>
* include/hbapi.h
* source/vm/debug.c

57
harbour/source/vm/runner.c
View File

@@ -174,10 +174,10 @@ HB_FUNC( __HRBRUN )
if( argv )
hb_xfree( argv );
hb_retl( 1 );
hb_hrbUnLoad( pHrbBody );
}
else
hb_retl( 0 );
hb_hrbUnLoad( pHrbBody );
}
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBRUN", 0 );
@@ -199,16 +199,22 @@ HB_FUNC( __HRBDO )
{
int i;
char **argv = NULL;
PHRB_BODY pHrbBody = (PHRB_BODY) hb_parnl( 1 );
if( argc > 1 )
if( pHrbBody )
{
argv = (char**) hb_xgrab( sizeof(char*) * (argc-1) );
for( i=0; i<argc-1; i++ )
argv[i] = hb_parc( i+2 );
if( argc > 1 )
{
argv = (char**) hb_xgrab( sizeof(char*) * (argc-1) );
for( i=0; i<argc-1; i++ )
argv[i] = hb_parc( i+2 );
}
hb_hrbDo( pHrbBody, argc-1, argv );
if( argv )
hb_xfree( argv );
}
hb_hrbDo( (PHRB_BODY) hb_parnl( 1 ), argc-1, argv );
if( argv )
hb_xfree( argv );
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBDO", 0 );
}
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBDO", 0 );
@@ -230,16 +236,21 @@ HB_FUNC( __HRBGETFU )
char * szName = hb_strupr( hb_parc( 2 ) );
ULONG ulPos = 0;
while( ulPos < pHrbBody->ulSymbols )
if( pHrbBody )
{
if( !strcmp( szName, pHrbBody->pSymRead[ ulPos ].szName ) )
break;
ulPos++;
while( ulPos < pHrbBody->ulSymbols )
{
if( !strcmp( szName, pHrbBody->pSymRead[ ulPos ].szName ) )
break;
ulPos++;
}
if( ulPos < pHrbBody->ulSymbols )
hb_retnl( (LONG) ( pHrbBody->pSymRead + ulPos ) );
else
hb_retnl( 0 );
}
if( ulPos < pHrbBody->ulSymbols )
hb_retnl( (LONG) ( pHrbBody->pSymRead + ulPos ) );
else
hb_retnl( 0 );
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBGETFU", 0 );
}
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBGETFU", 0 );
@@ -251,13 +262,19 @@ HB_FUNC( __HRBDOFU )
if( argc >=1 )
{
int i;
PHB_SYMB pSym = (PHB_SYMB) hb_parnl( 1 );
hb_vmPushSymbol( (PHB_SYMB) hb_parnl( 1 ) );
hb_vmPushNil();
for( i = 0; i < argc-1; i++ ) /* Push other params */
hb_vmPush( hb_param( i + 2, HB_IT_ANY ) );
if( pSym )
{
hb_vmPushSymbol( pSym );
hb_vmPushNil();
for( i = 0; i < argc-1; i++ ) /* Push other params */
hb_vmPush( hb_param( i + 2, HB_IT_ANY ) );
hb_vmSend( argc-1 ); /* Run function */
hb_vmSend( argc-1 ); /* Run function */
}
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBDOFU", 0 );
}
else
hb_errRT_BASE( EG_ARG, 9999, NULL, "__HRBDOFU", 0 );