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

New functions hb_retcbuffer() and hb_retcconst() added

Browse Source
This commit is contained in:
Antonio Linares
2002-01-29 08:57:21 +00:00
parent ffee7a6033
commit bcdf083e9f
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/source/vm/extend.c
View File

@@ -495,13 +495,27 @@ void HB_EXPORT hb_reta( ULONG ulLen ) /* undocumented hb_reta() */
hb_arrayNew( &hb_stack.Return, ulLen );
}
void HB_EXPORT hb_retc( char * szText )
void HB_EXPORT hb_retc( char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retc(%s)", szText));
hb_itemPutC( &hb_stack.Return, szText );
}
void HB_EXPORT hb_retcbuffer( char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retcbuffer(%s, %lu)", szText, ulLen));
hb_itemPutCPtr( &hb_stack.Return, szText, ulLen );
}
void HB_EXPORT hb_retcconst( char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retcconst(%s)", szText));
hb_itemPutCConst( &hb_stack.Return, szText );
}
void HB_EXPORT hb_retclen( char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retclen(%s, %lu)", szText, ulLen));