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

2008-11-09 17:15 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/vm/arrays.c
  * source/vm/classes.c
  * source/vm/cmdarg.c
  * source/vm/codebloc.c
  * source/vm/debug.c
  * source/vm/dynsym.c
  * source/vm/extend.c
  * source/vm/fm.c
  * source/vm/hashes.c
  * source/vm/hvm.c
  * source/vm/itemapi.c
  * source/vm/maindll.c
  * source/vm/maindllh.c
  * source/vm/maindllp.c
  * source/vm/mainstd.c
  * source/vm/mainwin.c
  * source/vm/set.c
  * source/vm/vm.c
    % Removed HB_EXPORT from remaining function definitions.
This commit is contained in:
Viktor Szakats
2008-11-09 16:16:54 +00:00
parent 618407cbec
commit 8be149614c
19 changed files with 551 additions and 530 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
harbour/ChangeLog
View File

@@ -8,6 +8,27 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-11-09 17:15 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/vm/arrays.c
* source/vm/classes.c
* source/vm/cmdarg.c
* source/vm/codebloc.c
* source/vm/debug.c
* source/vm/dynsym.c
* source/vm/extend.c
* source/vm/fm.c
* source/vm/hashes.c
* source/vm/hvm.c
* source/vm/itemapi.c
* source/vm/maindll.c
* source/vm/maindllh.c
* source/vm/maindllp.c
* source/vm/mainstd.c
* source/vm/mainwin.c
* source/vm/set.c
* source/vm/vm.c
% Removed HB_EXPORT from remaining function definitions.
2008-11-09 17:03 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/gtwvg/wvgcore.c
* contrib/gtwvg/wvgutils.c

62
harbour/source/vm/arrays.c
View File

@@ -153,7 +153,7 @@ static HB_GARBAGE_FUNC( hb_arrayReleaseGarbage )
hb_arrayReleaseItems( pBaseArray );
}
HB_EXPORT BOOL hb_arrayNew( PHB_ITEM pItem, ULONG ulLen ) /* creates a new array */
BOOL hb_arrayNew( PHB_ITEM pItem, ULONG ulLen ) /* creates a new array */
{
PHB_BASEARRAY pBaseArray;
PHB_ITEM pItems;
@@ -190,7 +190,7 @@ HB_EXPORT BOOL hb_arrayNew( PHB_ITEM pItem, ULONG ulLen ) /* creates a new array
return TRUE;
}
HB_EXPORT BOOL hb_arraySize( PHB_ITEM pArray, ULONG ulLen )
BOOL hb_arraySize( PHB_ITEM pArray, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySize(%p, %lu)", pArray, ulLen));
@@ -247,7 +247,7 @@ HB_EXPORT BOOL hb_arraySize( PHB_ITEM pArray, ULONG ulLen )
return FALSE;
}
HB_EXPORT ULONG hb_arrayLen( PHB_ITEM pArray )
ULONG hb_arrayLen( PHB_ITEM pArray )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayLen(%p)", pArray));
@@ -257,7 +257,7 @@ HB_EXPORT ULONG hb_arrayLen( PHB_ITEM pArray )
return 0;
}
HB_EXPORT BOOL hb_arrayIsObject( PHB_ITEM pArray )
BOOL hb_arrayIsObject( PHB_ITEM pArray )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayIsObject(%p)", pArray));
@@ -268,7 +268,7 @@ HB_EXPORT BOOL hb_arrayIsObject( PHB_ITEM pArray )
}
/* retrives the array unique ID */
HB_EXPORT void * hb_arrayId( PHB_ITEM pArray )
void * hb_arrayId( PHB_ITEM pArray )
{
if( HB_IS_ARRAY( pArray ) )
return ( void * ) pArray->item.asArray.value;
@@ -276,7 +276,7 @@ HB_EXPORT void * hb_arrayId( PHB_ITEM pArray )
return NULL;
}
HB_EXPORT BOOL hb_arrayAdd( PHB_ITEM pArray, PHB_ITEM pValue )
BOOL hb_arrayAdd( PHB_ITEM pArray, PHB_ITEM pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayAdd(%p, %p)", pArray, pValue));
@@ -297,7 +297,7 @@ HB_EXPORT BOOL hb_arrayAdd( PHB_ITEM pArray, PHB_ITEM pValue )
return FALSE;
}
HB_EXPORT BOOL hb_arrayAddForward( PHB_ITEM pArray, PHB_ITEM pValue )
BOOL hb_arrayAddForward( PHB_ITEM pArray, PHB_ITEM pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayAddForward(%p, %p)", pArray, pValue));
@@ -318,7 +318,7 @@ HB_EXPORT BOOL hb_arrayAddForward( PHB_ITEM pArray, PHB_ITEM pValue )
return FALSE;
}
HB_EXPORT BOOL hb_arrayDel( PHB_ITEM pArray, ULONG ulIndex )
BOOL hb_arrayDel( PHB_ITEM pArray, ULONG ulIndex )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayDel(%p, %lu)", pArray, ulIndex));
@@ -348,7 +348,7 @@ HB_EXPORT BOOL hb_arrayDel( PHB_ITEM pArray, ULONG ulIndex )
return FALSE;
}
HB_EXPORT BOOL hb_arrayIns( PHB_ITEM pArray, ULONG ulIndex )
BOOL hb_arrayIns( PHB_ITEM pArray, ULONG ulIndex )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayIns(%p, %lu)", pArray, ulIndex));
@@ -378,7 +378,7 @@ HB_EXPORT BOOL hb_arrayIns( PHB_ITEM pArray, ULONG ulIndex )
return FALSE;
}
HB_EXPORT BOOL hb_arraySet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
BOOL hb_arraySet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySet(%p, %lu, %p)", pArray, ulIndex, pItem));
@@ -391,7 +391,7 @@ HB_EXPORT BOOL hb_arraySet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetForward( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
BOOL hb_arraySetForward( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetForward(%p, %lu, %p)", pArray, ulIndex, pItem));
@@ -407,7 +407,7 @@ HB_EXPORT BOOL hb_arraySetForward( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pIte
}
}
HB_EXPORT BOOL hb_arrayGet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
BOOL hb_arrayGet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayGet(%p, %lu, %p)", pArray, ulIndex, pItem));
@@ -423,7 +423,7 @@ HB_EXPORT BOOL hb_arrayGet( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
}
}
HB_EXPORT BOOL hb_arrayGetItemRef( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
BOOL hb_arrayGetItemRef( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arrayGetItemRef(%p, %lu, %p)", pArray, ulIndex, pItem));
@@ -629,7 +629,7 @@ HB_TYPE hb_arrayGetType( PHB_ITEM pArray, ULONG ulIndex )
return 0;
}
HB_EXPORT BOOL hb_arraySetDS( PHB_ITEM pArray, ULONG ulIndex, const char * szDate )
BOOL hb_arraySetDS( PHB_ITEM pArray, ULONG ulIndex, const char * szDate )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetDS(%p, %lu, %s)", pArray, ulIndex, szDate));
@@ -642,7 +642,7 @@ HB_EXPORT BOOL hb_arraySetDS( PHB_ITEM pArray, ULONG ulIndex, const char * szDat
return FALSE;
}
HB_EXPORT BOOL hb_arraySetDL( PHB_ITEM pArray, ULONG ulIndex, LONG lDate )
BOOL hb_arraySetDL( PHB_ITEM pArray, ULONG ulIndex, LONG lDate )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetDL(%p, %lu, %ld)", pArray, ulIndex, lDate));
@@ -655,7 +655,7 @@ HB_EXPORT BOOL hb_arraySetDL( PHB_ITEM pArray, ULONG ulIndex, LONG lDate )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetL( PHB_ITEM pArray, ULONG ulIndex, BOOL fValue )
BOOL hb_arraySetL( PHB_ITEM pArray, ULONG ulIndex, BOOL fValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetL(%p, %lu, %d)", pArray, ulIndex, fValue));
@@ -668,7 +668,7 @@ HB_EXPORT BOOL hb_arraySetL( PHB_ITEM pArray, ULONG ulIndex, BOOL fValue )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetNI( PHB_ITEM pArray, ULONG ulIndex, int iNumber )
BOOL hb_arraySetNI( PHB_ITEM pArray, ULONG ulIndex, int iNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetNI(%p, %lu, %d)", pArray, ulIndex, iNumber));
@@ -681,7 +681,7 @@ HB_EXPORT BOOL hb_arraySetNI( PHB_ITEM pArray, ULONG ulIndex, int iNumber )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetNL( PHB_ITEM pArray, ULONG ulIndex, LONG lNumber )
BOOL hb_arraySetNL( PHB_ITEM pArray, ULONG ulIndex, LONG lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetNL(%p, %lu, %lu)", pArray, ulIndex, lNumber));
@@ -695,7 +695,7 @@ HB_EXPORT BOOL hb_arraySetNL( PHB_ITEM pArray, ULONG ulIndex, LONG lNumber )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT BOOL hb_arraySetNLL( PHB_ITEM pArray, ULONG ulIndex, LONGLONG llNumber )
BOOL hb_arraySetNLL( PHB_ITEM pArray, ULONG ulIndex, LONGLONG llNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetNLL(%p, %lu, %" PFLL "d)", pArray, ulIndex, llNumber));
@@ -709,7 +709,7 @@ HB_EXPORT BOOL hb_arraySetNLL( PHB_ITEM pArray, ULONG ulIndex, LONGLONG llNumber
}
#endif
HB_EXPORT BOOL hb_arraySetNInt( PHB_ITEM pArray, ULONG ulIndex, HB_LONG lNumber )
BOOL hb_arraySetNInt( PHB_ITEM pArray, ULONG ulIndex, HB_LONG lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetNInt(%p, %lu, %" PFHL "d)", pArray, ulIndex, lNumber));
@@ -722,7 +722,7 @@ HB_EXPORT BOOL hb_arraySetNInt( PHB_ITEM pArray, ULONG ulIndex, HB_LONG lNumber
return FALSE;
}
HB_EXPORT BOOL hb_arraySetND( PHB_ITEM pArray, ULONG ulIndex, double dNumber )
BOOL hb_arraySetND( PHB_ITEM pArray, ULONG ulIndex, double dNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetND(%p, %lu, %lf)", pArray, ulIndex, dNumber));
@@ -735,7 +735,7 @@ HB_EXPORT BOOL hb_arraySetND( PHB_ITEM pArray, ULONG ulIndex, double dNumber )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetC( PHB_ITEM pArray, ULONG ulIndex, const char * szText )
BOOL hb_arraySetC( PHB_ITEM pArray, ULONG ulIndex, const char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetC(%p, %lu, %p)", pArray, ulIndex, szText));
@@ -748,7 +748,7 @@ HB_EXPORT BOOL hb_arraySetC( PHB_ITEM pArray, ULONG ulIndex, const char * szText
return FALSE;
}
HB_EXPORT BOOL hb_arraySetCL( PHB_ITEM pArray, ULONG ulIndex, const char * szText, ULONG ulLen )
BOOL hb_arraySetCL( PHB_ITEM pArray, ULONG ulIndex, const char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetC(%p, %lu, %p, %lu)", pArray, ulIndex, szText, ulLen));
@@ -761,7 +761,7 @@ HB_EXPORT BOOL hb_arraySetCL( PHB_ITEM pArray, ULONG ulIndex, const char * szTex
return FALSE;
}
HB_EXPORT BOOL hb_arraySetCPtr( PHB_ITEM pArray, ULONG ulIndex, char * szText, ULONG ulLen )
BOOL hb_arraySetCPtr( PHB_ITEM pArray, ULONG ulIndex, char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetCPtr(%p, %lu)", pArray, ulIndex, szText, ulLen));
@@ -774,7 +774,7 @@ HB_EXPORT BOOL hb_arraySetCPtr( PHB_ITEM pArray, ULONG ulIndex, char * szText, U
return FALSE;
}
HB_EXPORT BOOL hb_arraySetPtr( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
BOOL hb_arraySetPtr( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetPtr(%p, %lu, %p)", pArray, ulIndex, pValue));
@@ -787,7 +787,7 @@ HB_EXPORT BOOL hb_arraySetPtr( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetPtrGC( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
BOOL hb_arraySetPtrGC( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetPtrGC(%p, %lu, %p)", pArray, ulIndex, pValue));
@@ -800,7 +800,7 @@ HB_EXPORT BOOL hb_arraySetPtrGC( PHB_ITEM pArray, ULONG ulIndex, void * pValue )
return FALSE;
}
HB_EXPORT BOOL hb_arraySetSymbol( PHB_ITEM pArray, ULONG ulIndex, PHB_SYMB pSymbol )
BOOL hb_arraySetSymbol( PHB_ITEM pArray, ULONG ulIndex, PHB_SYMB pSymbol )
{
HB_TRACE(HB_TR_DEBUG, ("hb_arraySetSymbol(%p, %lu, %p)", pArray, ulIndex, pSymbol));
@@ -1358,7 +1358,7 @@ void hb_cloneNested( PHB_ITEM pDstItem, PHB_ITEM pSrcItem, PHB_NESTED_CLONED pCl
hb_itemCopy( pDstItem, pSrcItem );
}
HB_EXPORT PHB_ITEM hb_arrayClone( PHB_ITEM pSrcArray )
PHB_ITEM hb_arrayClone( PHB_ITEM pSrcArray )
{
PHB_ITEM pDstArray;
@@ -1390,7 +1390,7 @@ HB_EXPORT PHB_ITEM hb_arrayClone( PHB_ITEM pSrcArray )
return pDstArray;
}
HB_EXPORT PHB_ITEM hb_arrayFromStack( USHORT uiLen )
PHB_ITEM hb_arrayFromStack( USHORT uiLen )
{
PHB_ITEM pArray = hb_itemNew( NULL );
USHORT uiPos;
@@ -1430,7 +1430,7 @@ PHB_ITEM hb_arrayFromParams( int iLevel )
return pArray;
}
HB_EXPORT PHB_ITEM hb_arrayBaseParams( void )
PHB_ITEM hb_arrayBaseParams( void )
{
PHB_ITEM pArray;
USHORT uiPos, uiPCount;
@@ -1450,7 +1450,7 @@ HB_EXPORT PHB_ITEM hb_arrayBaseParams( void )
return pArray;
}
HB_EXPORT PHB_ITEM hb_arraySelfParams( void )
PHB_ITEM hb_arraySelfParams( void )
{
PHB_ITEM pArray;
USHORT uiPos, uiPCount;

26
harbour/source/vm/classes.c
View File

@@ -1225,7 +1225,7 @@ void hb_clsIsClassRef( void )
#endif
}
HB_EXPORT BOOL hb_clsIsParent( USHORT uiClass, const char * szParentName )
BOOL hb_clsIsParent( USHORT uiClass, const char * szParentName )
{
if( uiClass && uiClass <= s_uiClasses )
{
@@ -1245,7 +1245,7 @@ HB_EXPORT BOOL hb_clsIsParent( USHORT uiClass, const char * szParentName )
return FALSE;
}
HB_EXPORT USHORT hb_objGetClass( PHB_ITEM pItem )
USHORT hb_objGetClass( PHB_ITEM pItem )
{
if( pItem && HB_IS_ARRAY( pItem ) )
return pItem->item.asArray.value->uiClass;
@@ -1254,7 +1254,7 @@ HB_EXPORT USHORT hb_objGetClass( PHB_ITEM pItem )
}
/* get object class handle using class name and class function name */
HB_EXPORT USHORT hb_objSetClass( PHB_ITEM pItem, const char * szClass, const char * szFunc )
USHORT hb_objSetClass( PHB_ITEM pItem, const char * szClass, const char * szFunc )
{
USHORT uiClass = 0;
@@ -1317,7 +1317,7 @@ static USHORT hb_objGetClassH( PHB_ITEM pObject )
/*
* Get the class name of an object
*/
HB_EXPORT const char * hb_objGetClsName( PHB_ITEM pObject )
const char * hb_objGetClsName( PHB_ITEM pObject )
{
HB_TRACE(HB_TR_DEBUG, ("hb_objGetClsName(%p)", pObject));
@@ -1360,7 +1360,7 @@ HB_EXPORT const char * hb_objGetClsName( PHB_ITEM pObject )
return "UNKNOWN";
}
HB_EXPORT const char * hb_clsName( USHORT uiClass )
const char * hb_clsName( USHORT uiClass )
{
if( uiClass && uiClass <= s_uiClasses )
return s_pClasses[ uiClass ]->szName;
@@ -1368,7 +1368,7 @@ HB_EXPORT const char * hb_clsName( USHORT uiClass )
return NULL;
}
HB_EXPORT const char * hb_clsFuncName( USHORT uiClass )
const char * hb_clsFuncName( USHORT uiClass )
{
if( uiClass && uiClass <= s_uiClasses )
return s_pClasses[ uiClass ]->pClassFuncSym ?
@@ -1378,7 +1378,7 @@ HB_EXPORT const char * hb_clsFuncName( USHORT uiClass )
return NULL;
}
HB_EXPORT USHORT hb_clsFindClass( const char * szClass, const char * szFunc )
USHORT hb_clsFindClass( const char * szClass, const char * szFunc )
{
USHORT uiClass;
@@ -1413,7 +1413,7 @@ static USHORT hb_clsFindClassByFunc( PHB_SYMB pClassFuncSym )
* Will return the class name from wich the message is inherited in case
* of inheritance.
*/
HB_EXPORT const char * hb_objGetRealClsName( PHB_ITEM pObject, const char * szName )
const char * hb_objGetRealClsName( PHB_ITEM pObject, const char * szName )
{
USHORT uiClass;
@@ -2219,7 +2219,7 @@ BOOL hb_objOperatorCall( USHORT uiOperator, HB_ITEM_PTR pResult, PHB_ITEM pObjec
/*
* return TRUE if object has a given message
*/
HB_EXPORT BOOL hb_objHasMessage( PHB_ITEM pObject, PHB_DYNS pMessage )
BOOL hb_objHasMessage( PHB_ITEM pObject, PHB_DYNS pMessage )
{
return hb_objGetMethod( pObject, pMessage->pSymbol, NULL ) != NULL;
}
@@ -2231,7 +2231,7 @@ HB_EXPORT BOOL hb_objHasMessage( PHB_ITEM pObject, PHB_DYNS pMessage )
*
* <uPtr> should be read as a boolean
*/
HB_EXPORT BOOL hb_objHasMsg( PHB_ITEM pObject, const char *szString )
BOOL hb_objHasMsg( PHB_ITEM pObject, const char *szString )
{
PHB_DYNS pDynSym;
@@ -2248,7 +2248,7 @@ HB_EXPORT BOOL hb_objHasMsg( PHB_ITEM pObject, const char *szString )
}
}
HB_EXPORT PHB_ITEM hb_objSendMessage( PHB_ITEM pObject, PHB_DYNS pMsgSym, ULONG ulArg, ... )
PHB_ITEM hb_objSendMessage( PHB_ITEM pObject, PHB_DYNS pMsgSym, ULONG ulArg, ... )
{
if( pObject && pMsgSym )
{
@@ -2275,7 +2275,7 @@ HB_EXPORT PHB_ITEM hb_objSendMessage( PHB_ITEM pObject, PHB_DYNS pMsgSym, ULONG
return hb_stackReturnItem();
}
HB_EXPORT PHB_ITEM hb_objSendMsg( PHB_ITEM pObject, const char *sMsg, ULONG ulArg, ... )
PHB_ITEM hb_objSendMsg( PHB_ITEM pObject, const char *sMsg, ULONG ulArg, ... )
{
hb_vmPushSymbol( hb_dynsymGet( sMsg )->pSymbol );
hb_vmPush( pObject );
@@ -2339,7 +2339,7 @@ static PHB_SYMB hb_objGetFuncSym( PHB_ITEM pItem )
}
/* send message which allows to set execution context for debugger */
HB_EXPORT void hb_dbgObjSendMessage( int iProcLevel, PHB_ITEM pObject, PHB_ITEM pMessage, int iParamOffset )
void hb_dbgObjSendMessage( int iProcLevel, PHB_ITEM pObject, PHB_ITEM pMessage, int iParamOffset )
{
PHB_DYNS pMsgSym;

18
harbour/source/vm/cmdarg.c
View File

@@ -91,7 +91,7 @@ HB_EXTERN_BEGIN
HB_EXTERN_END
HB_EXPORT void hb_winmainArgInit( HANDLE hInstance, HANDLE hPrevInstance, int iCmdShow )
void hb_winmainArgInit( HANDLE hInstance, HANDLE hPrevInstance, int iCmdShow )
{
s_hInstance = hInstance;
s_hPrevInstance = hPrevInstance;
@@ -99,7 +99,7 @@ HB_EXPORT void hb_winmainArgInit( HANDLE hInstance, HANDLE hPrevInstance, int iC
s_WinMainParam = TRUE;
}
HB_EXPORT BOOL hb_winmainArgGet( HANDLE * phInstance, HANDLE * phPrevInstance, int * piCmdShow )
BOOL hb_winmainArgGet( HANDLE * phInstance, HANDLE * phPrevInstance, int * piCmdShow )
{
if( phInstance )
*phInstance = s_hInstance;
@@ -113,7 +113,7 @@ HB_EXPORT BOOL hb_winmainArgGet( HANDLE * phInstance, HANDLE * phPrevInstance, i
#endif
HB_EXPORT void hb_cmdargInit( int argc, char * argv[] )
void hb_cmdargInit( int argc, char * argv[] )
{
HB_TRACE(HB_TR_DEBUG, ("hb_cmdargInit(%d, %p)", argc, argv));
@@ -466,25 +466,25 @@ ULONG hb_cmdargProcessVM( int *pCancelKey, int *pCancelKeyEx )
}
/* ChangeLog SVN revision number */
HB_EXPORT int hb_verSvnID( void )
int hb_verSvnID( void )
{
return HB_VER_SVNID;
}
/* ChangeLog ID string */
HB_EXPORT const char * hb_verSvnChangeLogID( void )
const char * hb_verSvnChangeLogID( void )
{
return HB_VER_CHLID;
}
/* ChangeLog last entry string */
HB_EXPORT const char * hb_verSvnLastEntry( void )
const char * hb_verSvnLastEntry( void )
{
return HB_VER_LENTRY;
}
/* build time C compiler flags in C_USR envvar */
HB_EXPORT const char * hb_verFlagsC( void )
const char * hb_verFlagsC( void )
{
#ifdef HB_VER_C_USR
return HB_VER_C_USR;
@@ -494,7 +494,7 @@ HB_EXPORT const char * hb_verFlagsC( void )
}
/* build time linker flags in L_USR envvar */
HB_EXPORT const char * hb_verFlagsL( void )
const char * hb_verFlagsL( void )
{
#ifdef HB_VER_L_USR
return HB_VER_L_USR;
@@ -504,7 +504,7 @@ HB_EXPORT const char * hb_verFlagsL( void )
}
/* build time Harbour compiler flags in PRG_USR envvar */
HB_EXPORT const char * hb_verFlagsPRG( void )
const char * hb_verFlagsPRG( void )
{
#ifdef HB_VER_PRG_USR
return HB_VER_PRG_USR;

2
harbour/source/vm/codebloc.c
View File

@@ -299,7 +299,7 @@ PHB_ITEM hb_codeblockGetRef( HB_CODEBLOCK_PTR pCBlock, LONG iItemPos )
/* retrieves the codeblock unique ID
*/
HB_EXPORT void * hb_codeblockId( PHB_ITEM pItem )
void * hb_codeblockId( PHB_ITEM pItem )
{
if( HB_IS_BLOCK( pItem ) )
return ( void * ) pItem->item.asBlock.value;

2
harbour/source/vm/debug.c
View File

@@ -184,7 +184,7 @@ HB_FUNC( __DBGVMPARLLIST )
hb_itemReturnRelease( hb_arrayFromParams( hb_parni( 1 ) + 1 ) );
}
HB_EXPORT PHB_ITEM hb_dbg_vmVarLGet( int iLevel, int iLocal )
PHB_ITEM hb_dbg_vmVarLGet( int iLevel, int iLocal )
{
PHB_ITEM pLocal = NULL;
LONG lBaseOffset;

26
harbour/source/vm/dynsym.c
View File

@@ -189,7 +189,7 @@ static PHB_SYMB hb_symbolAlloc( const char * szName )
}
/* Find symbol in dynamic symbol table */
HB_EXPORT PHB_DYNS hb_dynsymFind( const char * szName )
PHB_DYNS hb_dynsymFind( const char * szName )
{
UINT uiFirst, uiLast;
@@ -222,7 +222,7 @@ HB_EXPORT PHB_DYNS hb_dynsymFind( const char * szName )
}
/* Create new symbol */
HB_EXPORT PHB_SYMB hb_symbolNew( const char * szName )
PHB_SYMB hb_symbolNew( const char * szName )
{
PHB_SYMB pSymbol;
@@ -238,7 +238,7 @@ HB_EXPORT PHB_SYMB hb_symbolNew( const char * szName )
}
/* creates a new dynamic symbol */
HB_EXPORT PHB_DYNS hb_dynsymNew( PHB_SYMB pSymbol )
PHB_DYNS hb_dynsymNew( PHB_SYMB pSymbol )
{
PHB_DYNS pDynSym;
UINT uiPos;
@@ -358,7 +358,7 @@ HB_EXPORT PHB_DYNS hb_dynsymNew( PHB_SYMB pSymbol )
}
/* finds and creates a symbol if not found */
HB_EXPORT PHB_DYNS hb_dynsymGetCase( const char * szName )
PHB_DYNS hb_dynsymGetCase( const char * szName )
{
PHB_DYNS pDynSym;
UINT uiPos;
@@ -376,7 +376,7 @@ HB_EXPORT PHB_DYNS hb_dynsymGetCase( const char * szName )
return pDynSym;
}
HB_EXPORT PHB_DYNS hb_dynsymGet( const char * szName ) /* finds and creates a symbol if not found */
PHB_DYNS hb_dynsymGet( const char * szName ) /* finds and creates a symbol if not found */
{
char szUprName[ HB_SYMBOL_NAME_LEN + 1 ];
@@ -405,7 +405,7 @@ HB_EXPORT PHB_DYNS hb_dynsymGet( const char * szName ) /* finds and creates a s
return hb_dynsymGetCase( szUprName );
}
HB_EXPORT PHB_DYNS hb_dynsymFindName( const char * szName ) /* finds a symbol */
PHB_DYNS hb_dynsymFindName( const char * szName ) /* finds a symbol */
{
char szUprName[ HB_SYMBOL_NAME_LEN + 1 ];
@@ -434,14 +434,14 @@ HB_EXPORT PHB_DYNS hb_dynsymFindName( const char * szName ) /* finds a symbol *
return hb_dynsymFind( szUprName );
}
HB_EXPORT PHB_SYMB hb_dynsymGetSymbol( const char * szName )
PHB_SYMB hb_dynsymGetSymbol( const char * szName )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymGetSymbol(%s)", szName));
return hb_dynsymGet( szName )->pSymbol;
}
HB_EXPORT PHB_SYMB hb_dynsymFindSymbol( const char * szName )
PHB_SYMB hb_dynsymFindSymbol( const char * szName )
{
PHB_DYNS pDynSym;
@@ -451,21 +451,21 @@ HB_EXPORT PHB_SYMB hb_dynsymFindSymbol( const char * szName )
return pDynSym ? pDynSym->pSymbol : NULL;
}
HB_EXPORT PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )
PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymSymbol(%p)", pDynSym));
return pDynSym->pSymbol;
}
HB_EXPORT const char * hb_dynsymName( PHB_DYNS pDynSym )
const char * hb_dynsymName( PHB_DYNS pDynSym )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymName(%p)", pDynSym));
return pDynSym->pSymbol->szName;
}
HB_EXPORT BOOL hb_dynsymIsFunction( PHB_DYNS pDynSym )
BOOL hb_dynsymIsFunction( PHB_DYNS pDynSym )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymIsFunction(%p)", pDynSym));
@@ -486,14 +486,14 @@ void hb_dynsymSetMemvar( PHB_DYNS pDynSym, PHB_ITEM pMemvar )
hb_dynsymHandles( pDynSym )->pMemvar = ( void * ) pMemvar;
}
HB_EXPORT int hb_dynsymAreaHandle( PHB_DYNS pDynSym )
int hb_dynsymAreaHandle( PHB_DYNS pDynSym )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymAreaHandle(%p)", pDynSym));
return hb_dynsymHandles( pDynSym )->uiArea;
}
HB_EXPORT void hb_dynsymSetAreaHandle( PHB_DYNS pDynSym, int iArea )
void hb_dynsymSetAreaHandle( PHB_DYNS pDynSym, int iArea )
{
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymSetAreaHandle(%p,%d)", pDynSym, iArea));

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

@@ -78,7 +78,7 @@
/* NOTE: iParam = -1 can be used to access the return value. */
/* NOTE: iParam = 0 can be used to access the SELF object. */
HB_EXPORT PHB_ITEM hb_param( int iParam, long lMask )
PHB_ITEM hb_param( int iParam, long lMask )
{
HB_TRACE(HB_TR_DEBUG, ("hb_param(%d, %ld)", iParam, lMask));
@@ -100,7 +100,7 @@ HB_EXPORT PHB_ITEM hb_param( int iParam, long lMask )
return NULL;
}
HB_EXPORT PHB_ITEM hb_paramError( int iParam )
PHB_ITEM hb_paramError( int iParam )
{
static HB_ITEM s_NIL;
@@ -118,7 +118,7 @@ HB_EXPORT PHB_ITEM hb_paramError( int iParam )
/* function to be called from pcode DLLs to detect if the extend system
* is going to use an array item */
HB_EXPORT BOOL hb_extIsArray( int iParam )
BOOL hb_extIsArray( int iParam )
{
PHB_ITEM pItem;
@@ -138,7 +138,7 @@ HB_EXPORT BOOL hb_extIsArray( int iParam )
/* function to be called from pcode DLLs to detect if the extend system
* is going to use an object item */
HB_EXPORT BOOL hb_extIsObject( int iParam )
BOOL hb_extIsObject( int iParam )
{
PHB_ITEM pItem;
@@ -158,7 +158,7 @@ HB_EXPORT BOOL hb_extIsObject( int iParam )
/* NOTE: Caller should not modify the buffer returned by this function.
[vszakats] */
HB_EXPORT char * hb_parc( int iParam, ... )
char * hb_parc( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parc(%d, ...)", iParam));
@@ -187,7 +187,7 @@ HB_EXPORT char * hb_parc( int iParam, ... )
return ( char * ) NULL;
}
HB_EXPORT char * hb_parcx( int iParam, ... )
char * hb_parcx( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parcx(%d, ...)", iParam));
@@ -216,7 +216,7 @@ HB_EXPORT char * hb_parcx( int iParam, ... )
return ( char * ) "";
}
HB_EXPORT ULONG hb_parclen( int iParam, ... )
ULONG hb_parclen( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parclen(%d, ...)", iParam));
@@ -249,7 +249,7 @@ HB_EXPORT ULONG hb_parclen( int iParam, ... )
terminating zero byte, and it only works for parameters passed by
reference. [vszakats] */
HB_EXPORT ULONG hb_parcsiz( int iParam, ... )
ULONG hb_parcsiz( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parcsiz(%d, ...)", iParam));
@@ -286,7 +286,7 @@ HB_EXPORT ULONG hb_parcsiz( int iParam, ... )
/* NOTE: Using hb_stackDateBuffer() a temporary date buffer guaranties
good behavior when multithreading. */
HB_EXPORT char * hb_pards( int iParam, ... )
char * hb_pards( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_pards(%d, ...)", iParam));
@@ -317,7 +317,7 @@ HB_EXPORT char * hb_pards( int iParam, ... )
/* NOTE: szDate must be a 9 chars wide buffer. [vszakats] */
HB_EXPORT char * hb_pardsbuff( char * szDate, int iParam, ... )
char * hb_pardsbuff( char * szDate, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_pardsbuff(%p, %d, ...)", szDate, iParam));
@@ -348,7 +348,7 @@ HB_EXPORT char * hb_pardsbuff( char * szDate, int iParam, ... )
/* retrieve a date as long integer - number of days from Julian's day */
HB_EXPORT LONG hb_pardl( int iParam, ... )
LONG hb_pardl( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_pardl(%d, ...)", iParam));
@@ -382,7 +382,7 @@ HB_EXPORT LONG hb_pardl( int iParam, ... )
}
HB_EXPORT int hb_parl( int iParam, ... )
int hb_parl( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parl(%d, ...)", iParam));
@@ -417,7 +417,7 @@ HB_EXPORT int hb_parl( int iParam, ... )
return 0;
}
HB_EXPORT double hb_parnd( int iParam, ... )
double hb_parnd( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parnd(%d, ...)", iParam));
@@ -450,7 +450,7 @@ HB_EXPORT double hb_parnd( int iParam, ... )
return 0;
}
HB_EXPORT int hb_parni( int iParam, ... )
int hb_parni( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parni(%d, ...)", iParam));
@@ -483,7 +483,7 @@ HB_EXPORT int hb_parni( int iParam, ... )
return 0;
}
HB_EXPORT long hb_parnl( int iParam, ... )
long hb_parnl( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parnl(%d, ...)", iParam));
@@ -523,7 +523,7 @@ HB_EXPORT long hb_parnl( int iParam, ... )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT LONGLONG hb_parnll( int iParam, ... )
LONGLONG hb_parnll( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parnll(%d, ...)", iParam));
@@ -563,7 +563,7 @@ HB_EXPORT LONGLONG hb_parnll( int iParam, ... )
}
#endif
HB_EXPORT HB_LONG hb_parnint( int iParam, ... )
HB_LONG hb_parnint( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parnint(%d, ...)", iParam));
@@ -602,7 +602,7 @@ HB_EXPORT HB_LONG hb_parnint( int iParam, ... )
return 0;
}
HB_EXPORT void * hb_parptr( int iParam, ... )
void * hb_parptr( int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parptr(%d, ...)", iParam));
@@ -631,7 +631,7 @@ HB_EXPORT void * hb_parptr( int iParam, ... )
return NULL;
}
HB_EXPORT void * hb_parptrGC( HB_GARBAGE_FUNC_PTR pFunc, int iParam, ... )
void * hb_parptrGC( HB_GARBAGE_FUNC_PTR pFunc, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parptrGC(%p,%d, ...)", pFunc, iParam));
@@ -668,7 +668,7 @@ HB_EXPORT void * hb_parptrGC( HB_GARBAGE_FUNC_PTR pFunc, int iParam, ... )
return NULL;
}
HB_EXPORT ULONG hb_parinfa( int iParamNum, ULONG uiArrayIndex )
ULONG hb_parinfa( int iParamNum, ULONG uiArrayIndex )
{
PHB_ITEM pArray;
@@ -687,7 +687,7 @@ HB_EXPORT ULONG hb_parinfa( int iParamNum, ULONG uiArrayIndex )
return 0;
}
HB_EXPORT ULONG hb_parinfo( int iParam )
ULONG hb_parinfo( int iParam )
{
HB_TRACE(HB_TR_DEBUG, ("hb_parinfo(%d)", iParam));
@@ -711,7 +711,7 @@ HB_EXPORT ULONG hb_parinfo( int iParam )
}
#undef hb_ret
HB_EXPORT void hb_ret( void )
void hb_ret( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_ret()"));
@@ -719,7 +719,7 @@ HB_EXPORT void hb_ret( void )
}
#undef hb_reta
HB_EXPORT void hb_reta( ULONG ulLen ) /* undocumented hb_reta() */
void hb_reta( ULONG ulLen ) /* undocumented hb_reta() */
{
HB_TRACE(HB_TR_DEBUG, ("hb_reta(%lu)", ulLen));
@@ -727,7 +727,7 @@ HB_EXPORT void hb_reta( ULONG ulLen ) /* undocumented hb_reta() */
}
#undef hb_retc
HB_EXPORT void hb_retc( const char * szText )
void hb_retc( const char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retc(%s)", szText));
@@ -735,7 +735,7 @@ HB_EXPORT void hb_retc( const char * szText )
}
#undef hb_retc_null
HB_EXPORT void hb_retc_null( void )
void hb_retc_null( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retc_null()"));
@@ -743,7 +743,7 @@ HB_EXPORT void hb_retc_null( void )
}
#undef hb_retc_buffer
HB_EXPORT void hb_retc_buffer( char * szText )
void hb_retc_buffer( char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retc_buffer(%s)", szText));
@@ -751,7 +751,7 @@ HB_EXPORT void hb_retc_buffer( char * szText )
}
#undef hb_retc_const
HB_EXPORT void hb_retc_const( const char * szText )
void hb_retc_const( const char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retc_const(%s)", szText));
@@ -759,7 +759,7 @@ HB_EXPORT void hb_retc_const( const char * szText )
}
#undef hb_retclen
HB_EXPORT void hb_retclen( const char * szText, ULONG ulLen )
void hb_retclen( const char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retclen(%s, %lu)", szText, ulLen));
@@ -767,7 +767,7 @@ HB_EXPORT void hb_retclen( const char * szText, ULONG ulLen )
}
#undef hb_retclen_buffer
HB_EXPORT void hb_retclen_buffer( char * szText, ULONG ulLen )
void hb_retclen_buffer( char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retclen_buffer(%s, %lu)", szText, ulLen));
@@ -777,7 +777,7 @@ HB_EXPORT void hb_retclen_buffer( char * szText, ULONG ulLen )
/* szDate must have YYYYMMDD format */
#undef hb_retds
HB_EXPORT void hb_retds( const char * szDate )
void hb_retds( const char * szDate )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retds(%s)", szDate));
@@ -785,7 +785,7 @@ HB_EXPORT void hb_retds( const char * szDate )
}
#undef hb_retd
HB_EXPORT void hb_retd( int iYear, int iMonth, int iDay )
void hb_retd( int iYear, int iMonth, int iDay )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retd(%04i, %02i, %02i)", iYear, iMonth, iDay));
@@ -793,7 +793,7 @@ HB_EXPORT void hb_retd( int iYear, int iMonth, int iDay )
}
#undef hb_retdl
HB_EXPORT void hb_retdl( long lJulian )
void hb_retdl( long lJulian )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retdl(%ld)", lJulian));
@@ -801,7 +801,7 @@ HB_EXPORT void hb_retdl( long lJulian )
}
#undef hb_retl
HB_EXPORT void hb_retl( int iLogical )
void hb_retl( int iLogical )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retl(%d)", iLogical));
@@ -809,7 +809,7 @@ HB_EXPORT void hb_retl( int iLogical )
}
#undef hb_retnd
HB_EXPORT void hb_retnd( double dNumber )
void hb_retnd( double dNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnd(%lf)", dNumber));
@@ -817,7 +817,7 @@ HB_EXPORT void hb_retnd( double dNumber )
}
#undef hb_retni
HB_EXPORT void hb_retni( int iNumber )
void hb_retni( int iNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retni(%d)", iNumber));
@@ -825,7 +825,7 @@ HB_EXPORT void hb_retni( int iNumber )
}
#undef hb_retnl
HB_EXPORT void hb_retnl( long lNumber )
void hb_retnl( long lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnl(%ld)", lNumber));
@@ -834,7 +834,7 @@ HB_EXPORT void hb_retnl( long lNumber )
#ifndef HB_LONG_LONG_OFF
#undef hb_retnll
HB_EXPORT void hb_retnll( LONGLONG llNumber )
void hb_retnll( LONGLONG llNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnll(%" PFLL "d)", llNumber));
@@ -843,7 +843,7 @@ HB_EXPORT void hb_retnll( LONGLONG llNumber )
#endif
#undef hb_retnint
HB_EXPORT void hb_retnint( HB_LONG lNumber )
void hb_retnint( HB_LONG lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnl(%ld)", lNumber));
@@ -851,7 +851,7 @@ HB_EXPORT void hb_retnint( HB_LONG lNumber )
}
#undef hb_retnlen
HB_EXPORT void hb_retnlen( double dNumber, int iWidth, int iDec )
void hb_retnlen( double dNumber, int iWidth, int iDec )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnlen(%lf, %d, %d)", dNumber, iWidth, iDec));
@@ -859,7 +859,7 @@ HB_EXPORT void hb_retnlen( double dNumber, int iWidth, int iDec )
}
#undef hb_retndlen
HB_EXPORT void hb_retndlen( double dNumber, int iWidth, int iDec )
void hb_retndlen( double dNumber, int iWidth, int iDec )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retndlen(%lf, %d, %d)", dNumber, iWidth, iDec));
@@ -867,7 +867,7 @@ HB_EXPORT void hb_retndlen( double dNumber, int iWidth, int iDec )
}
#undef hb_retnilen
HB_EXPORT void hb_retnilen( int iNumber, int iWidth )
void hb_retnilen( int iNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnilen(%d, %d)", iNumber, iWidth));
@@ -875,7 +875,7 @@ HB_EXPORT void hb_retnilen( int iNumber, int iWidth )
}
#undef hb_retnllen
HB_EXPORT void hb_retnllen( long lNumber, int iWidth )
void hb_retnllen( long lNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnllen(%ld, %d)", lNumber, iWidth));
@@ -884,7 +884,7 @@ HB_EXPORT void hb_retnllen( long lNumber, int iWidth )
#ifndef HB_LONG_LONG_OFF
#undef hb_retnlllen
HB_EXPORT void hb_retnlllen( LONGLONG llNumber, int iWidth )
void hb_retnlllen( LONGLONG llNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnlllen(%" PFLL "d, %d)", llNumber, iWidth));
@@ -893,7 +893,7 @@ HB_EXPORT void hb_retnlllen( LONGLONG llNumber, int iWidth )
#endif
#undef hb_retnintlen
HB_EXPORT void hb_retnintlen( HB_LONG lNumber, int iWidth )
void hb_retnintlen( HB_LONG lNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retnintlen(%" PFHL "d, %d)", lNumber, iWidth));
@@ -901,7 +901,7 @@ HB_EXPORT void hb_retnintlen( HB_LONG lNumber, int iWidth )
}
#undef hb_retptr
HB_EXPORT void hb_retptr( void * pointer )
void hb_retptr( void * pointer )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retptr(%p)", pointer));
@@ -909,7 +909,7 @@ HB_EXPORT void hb_retptr( void * pointer )
}
#undef hb_retptrGC
HB_EXPORT void hb_retptrGC( void * pointer )
void hb_retptrGC( void * pointer )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retptrGC(%p)", pointer));
@@ -917,7 +917,7 @@ HB_EXPORT void hb_retptrGC( void * pointer )
}
HB_EXPORT int hb_storc( const char * szText, int iParam, ... )
int hb_storc( const char * szText, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storc(%s, %d, ...)", szText, iParam));
@@ -948,7 +948,7 @@ HB_EXPORT int hb_storc( const char * szText, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storclen( const char * szText, ULONG ulLen, int iParam, ... )
int hb_storclen( const char * szText, ULONG ulLen, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storclen(%s, %lu, %d, ...)", szText, ulLen, iParam));
@@ -979,7 +979,7 @@ HB_EXPORT int hb_storclen( const char * szText, ULONG ulLen, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storclen_buffer( char * szText, ULONG ulLen, int iParam, ... )
int hb_storclen_buffer( char * szText, ULONG ulLen, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storclen_buffer(%s, %lu, %d, ...)", szText, ulLen, iParam));
@@ -1012,7 +1012,7 @@ HB_EXPORT int hb_storclen_buffer( char * szText, ULONG ulLen, int iParam, ... )
/* szDate must have YYYYMMDD format */
HB_EXPORT int hb_stords( const char * szDate, int iParam, ... )
int hb_stords( const char * szDate, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_stords(%s, %d, ...)", szDate, iParam));
@@ -1043,7 +1043,7 @@ HB_EXPORT int hb_stords( const char * szDate, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storl( int iLogical, int iParam, ... )
int hb_storl( int iLogical, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storl(%d, %d, ...)", iLogical, iParam));
@@ -1074,7 +1074,7 @@ HB_EXPORT int hb_storl( int iLogical, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storni( int iValue, int iParam, ... )
int hb_storni( int iValue, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storni(%d, %d, ...)", iValue, iParam));
@@ -1105,7 +1105,7 @@ HB_EXPORT int hb_storni( int iValue, int iParam, ... )
return 0;
}
HB_EXPORT int hb_stornl( long lValue, int iParam, ... )
int hb_stornl( long lValue, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_stornl(%ld, %d, ...)", lValue, iParam));
@@ -1137,7 +1137,7 @@ HB_EXPORT int hb_stornl( long lValue, int iParam, ... )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT int hb_stornll( LONGLONG llValue, int iParam, ... )
int hb_stornll( LONGLONG llValue, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_stornll(%" PFLL "d, %d, ...)", llValue, iParam));
@@ -1169,7 +1169,7 @@ HB_EXPORT int hb_stornll( LONGLONG llValue, int iParam, ... )
}
#endif
HB_EXPORT int hb_stornint( HB_LONG lValue, int iParam, ... )
int hb_stornint( HB_LONG lValue, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_stornint(%" PFHL "d, %d, ...)", lValue, iParam));
@@ -1200,7 +1200,7 @@ HB_EXPORT int hb_stornint( HB_LONG lValue, int iParam, ... )
return 0;
}
HB_EXPORT int hb_stornd( double dNumber, int iParam, ... )
int hb_stornd( double dNumber, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_stornd(%lf, %d, ...)", dNumber, iParam));
@@ -1231,7 +1231,7 @@ HB_EXPORT int hb_stornd( double dNumber, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storptr( void * pointer, int iParam, ... )
int hb_storptr( void * pointer, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storptr(%p, %d, ...)", pointer, iParam));
@@ -1262,7 +1262,7 @@ HB_EXPORT int hb_storptr( void * pointer, int iParam, ... )
return 0;
}
HB_EXPORT int hb_storptrGC( void * pointer, int iParam, ... )
int hb_storptrGC( void * pointer, int iParam, ... )
{
HB_TRACE(HB_TR_DEBUG, ("hb_storptrGC(%p, %d, ...)", pointer, iParam));
@@ -1294,7 +1294,7 @@ HB_EXPORT int hb_storptrGC( void * pointer, int iParam, ... )
}
#undef hb_pcount
HB_EXPORT int hb_pcount( void )
int hb_pcount( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_pcount()"));

20
harbour/source/vm/fm.c
View File

@@ -276,7 +276,7 @@ typedef void * PHB_MEMINFO;
#endif
HB_EXPORT void hb_xsetfilename( char * szValue )
void hb_xsetfilename( char * szValue )
{
#ifdef HB_FM_STATISTICS
hb_strncpy( s_szFileName, szValue, sizeof( s_szFileName ) - 1 );
@@ -285,7 +285,7 @@ HB_EXPORT void hb_xsetfilename( char * szValue )
#endif
}
HB_EXPORT void hb_xsetinfo( char * szValue )
void hb_xsetinfo( char * szValue )
{
#ifdef HB_FM_STATISTICS
hb_strncpy( s_szInfo, szValue, sizeof( s_szInfo ) - 1 );
@@ -295,7 +295,7 @@ HB_EXPORT void hb_xsetinfo( char * szValue )
}
HB_EXPORT void * hb_xalloc( ULONG ulSize ) /* allocates fixed memory, returns NULL on failure */
void * hb_xalloc( ULONG ulSize ) /* allocates fixed memory, returns NULL on failure */
{
PHB_MEMINFO pMem;
@@ -365,7 +365,7 @@ HB_EXPORT void * hb_xalloc( ULONG ulSize ) /* allocates fixed memory, re
return HB_MEM_PTR( pMem );
}
HB_EXPORT void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on failure */
void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on failure */
{
PHB_MEMINFO pMem;
@@ -435,7 +435,7 @@ HB_EXPORT void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exi
return HB_MEM_PTR( pMem );
}
HB_EXPORT void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
{
HB_TRACE_FM(HB_TR_DEBUG, ("hb_xrealloc(%p, %lu)", pMem, ulSize));
@@ -547,7 +547,7 @@ HB_EXPORT void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates m
return HB_MEM_PTR( pMem );
}
HB_EXPORT void hb_xfree( void * pMem ) /* frees fixed memory */
void hb_xfree( void * pMem ) /* frees fixed memory */
{
HB_TRACE_FM(HB_TR_DEBUG, ("hb_xfree(%p)", pMem));
@@ -688,7 +688,7 @@ void * hb_xRefResize( void * pMem, ULONG ulSave, ULONG ulSize )
/* NOTE: Debug function, it will always return 0 when HB_FM_STATISTICS is
not defined, don't use it for final code [vszakats] */
HB_EXPORT ULONG hb_xsize( void * pMem ) /* returns the size of an allocated memory block */
ULONG hb_xsize( void * pMem ) /* returns the size of an allocated memory block */
{
HB_TRACE(HB_TR_DEBUG, ("hb_xsize(%p)", pMem));
@@ -701,7 +701,7 @@ HB_EXPORT ULONG hb_xsize( void * pMem ) /* returns the size of an allocated mem
#endif
}
HB_EXPORT void hb_xinit( void ) /* Initialize fixed memory subsystem */
void hb_xinit( void ) /* Initialize fixed memory subsystem */
{
HB_TRACE(HB_TR_DEBUG, ("hb_xinit()"));
}
@@ -750,7 +750,7 @@ static char * hb_mem2str( char * membuffer, void * pMem, UINT uiSize )
}
#define HB_MAX_MEM2STR_BLOCK 256
HB_EXPORT void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
{
HB_TRACE(HB_TR_DEBUG, ("hb_xexit()"));
@@ -825,7 +825,7 @@ HB_EXPORT void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
#else
HB_EXPORT void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
void hb_xexit( void ) /* Deinitialize fixed memory subsystem */
{
HB_TRACE(HB_TR_DEBUG, ("hb_xexit()"));
}

52
harbour/source/vm/hashes.c
View File

@@ -384,7 +384,7 @@ static void hb_hashDelPair( PHB_BASEHASH pBaseHash, ULONG ulPos )
}
}
HB_EXPORT PHB_ITEM hb_hashNew( PHB_ITEM pItem )
PHB_ITEM hb_hashNew( PHB_ITEM pItem )
{
PHB_BASEHASH pBaseHash;
@@ -408,7 +408,7 @@ HB_EXPORT PHB_ITEM hb_hashNew( PHB_ITEM pItem )
return pItem;
}
HB_EXPORT ULONG hb_hashLen( PHB_ITEM pHash )
ULONG hb_hashLen( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashLen(%p)", pHash));
@@ -418,7 +418,7 @@ HB_EXPORT ULONG hb_hashLen( PHB_ITEM pHash )
return 0;
}
HB_EXPORT void hb_hashPreallocate( PHB_ITEM pHash, ULONG ulNewSize )
void hb_hashPreallocate( PHB_ITEM pHash, ULONG ulNewSize )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashPreallocate(%p,%lu)", pHash, ulNewSize));
@@ -426,7 +426,7 @@ HB_EXPORT void hb_hashPreallocate( PHB_ITEM pHash, ULONG ulNewSize )
hb_hashResize( pHash->item.asHash.value, ulNewSize );
}
HB_EXPORT BOOL hb_hashAllocNewPair( PHB_ITEM pHash, PHB_ITEM * pKeyPtr, PHB_ITEM * pValPtr )
BOOL hb_hashAllocNewPair( PHB_ITEM pHash, PHB_ITEM * pKeyPtr, PHB_ITEM * pValPtr )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashAllocNewPair(%p,%p,%p)", pHash, pKeyPtr, pValPtr));
@@ -439,7 +439,7 @@ HB_EXPORT BOOL hb_hashAllocNewPair( PHB_ITEM pHash, PHB_ITEM * pKeyPtr, PHB_ITEM
return FALSE;
}
HB_EXPORT void hb_hashSort( PHB_ITEM pHash )
void hb_hashSort( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashSort(%p)", pHash));
@@ -450,7 +450,7 @@ HB_EXPORT void hb_hashSort( PHB_ITEM pHash )
}
}
HB_EXPORT PHB_ITEM hb_hashGetItemPtr( PHB_ITEM pHash, PHB_ITEM pKey, int iFlags )
PHB_ITEM hb_hashGetItemPtr( PHB_ITEM pHash, PHB_ITEM pKey, int iFlags )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetItemPtr(%p,%p,%d)", pHash, pKey, iFlags));
@@ -465,7 +465,7 @@ HB_EXPORT PHB_ITEM hb_hashGetItemPtr( PHB_ITEM pHash, PHB_ITEM pKey, int iFlags
return NULL;
}
HB_EXPORT PHB_ITEM hb_hashGetItemRefPtr( PHB_ITEM pHash, PHB_ITEM pKey )
PHB_ITEM hb_hashGetItemRefPtr( PHB_ITEM pHash, PHB_ITEM pKey )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetItemRefPtr(%p,%p)", pHash, pKey));
@@ -485,7 +485,7 @@ HB_EXPORT PHB_ITEM hb_hashGetItemRefPtr( PHB_ITEM pHash, PHB_ITEM pKey )
return NULL;
}
HB_EXPORT BOOL hb_hashScan( PHB_ITEM pHash, PHB_ITEM pKey, ULONG * pulPos )
BOOL hb_hashScan( PHB_ITEM pHash, PHB_ITEM pKey, ULONG * pulPos )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashScan(%p,%p,%p)", pHash, pKey, pulPos));
@@ -540,7 +540,7 @@ HB_EXPORT BOOL hb_hashScan( PHB_ITEM pHash, PHB_ITEM pKey, ULONG * pulPos )
return FALSE;
}
HB_EXPORT BOOL hb_hashClear( PHB_ITEM pHash )
BOOL hb_hashClear( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashClear(%p)", pHash));
@@ -573,7 +573,7 @@ HB_EXPORT BOOL hb_hashClear( PHB_ITEM pHash )
return FALSE;
}
HB_EXPORT BOOL hb_hashDel( PHB_ITEM pHash, PHB_ITEM pKey )
BOOL hb_hashDel( PHB_ITEM pHash, PHB_ITEM pKey )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashDel(%p,%p)", pHash, pKey));
@@ -592,7 +592,7 @@ HB_EXPORT BOOL hb_hashDel( PHB_ITEM pHash, PHB_ITEM pKey )
return FALSE;
}
HB_EXPORT BOOL hb_hashRemove( PHB_ITEM pHash, PHB_ITEM pItem )
BOOL hb_hashRemove( PHB_ITEM pHash, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashRemove(%p,%p)", pHash, pItem));
@@ -627,7 +627,7 @@ HB_EXPORT BOOL hb_hashRemove( PHB_ITEM pHash, PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT BOOL hb_hashAdd( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
BOOL hb_hashAdd( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashAdd(%p,%p,%p)", pHash, pKey, pValue));
@@ -649,7 +649,7 @@ HB_EXPORT BOOL hb_hashAdd( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
return FALSE;
}
HB_EXPORT BOOL hb_hashAddNew( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
BOOL hb_hashAddNew( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashAddNew(%p,%p,%p)", pHash, pKey, pValue));
@@ -659,7 +659,7 @@ HB_EXPORT BOOL hb_hashAddNew( PHB_ITEM pHash, PHB_ITEM pKey, PHB_ITEM pValue )
return FALSE;
}
HB_EXPORT PHB_ITEM hb_hashGetKeyAt( PHB_ITEM pHash, ULONG ulPos )
PHB_ITEM hb_hashGetKeyAt( PHB_ITEM pHash, ULONG ulPos )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetKeyAt(%p,%lu)", pHash, ulPos));
@@ -669,7 +669,7 @@ HB_EXPORT PHB_ITEM hb_hashGetKeyAt( PHB_ITEM pHash, ULONG ulPos )
return NULL;
}
HB_EXPORT PHB_ITEM hb_hashGetValueAt( PHB_ITEM pHash, ULONG ulPos )
PHB_ITEM hb_hashGetValueAt( PHB_ITEM pHash, ULONG ulPos )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetValueAt(%p,%lu)", pHash, ulPos));
@@ -681,7 +681,7 @@ HB_EXPORT PHB_ITEM hb_hashGetValueAt( PHB_ITEM pHash, ULONG ulPos )
return NULL;
}
HB_EXPORT BOOL hb_hashDelAt( PHB_ITEM pHash, ULONG ulPos )
BOOL hb_hashDelAt( PHB_ITEM pHash, ULONG ulPos )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashDelAt(%p,%lu)", pHash, ulPos));
@@ -695,7 +695,7 @@ HB_EXPORT BOOL hb_hashDelAt( PHB_ITEM pHash, ULONG ulPos )
}
/* retrives the hash unique ID */
HB_EXPORT void * hb_hashId( PHB_ITEM pHash )
void * hb_hashId( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashId(%p)", pHash));
@@ -729,7 +729,7 @@ void hb_hashCloneBody( PHB_ITEM pHash, PHB_ITEM pDest, PHB_NESTED_CLONED pCloned
}
}
HB_EXPORT PHB_ITEM hb_hashClone( PHB_ITEM pHash )
PHB_ITEM hb_hashClone( PHB_ITEM pHash )
{
PHB_ITEM pDest;
@@ -759,7 +759,7 @@ HB_EXPORT PHB_ITEM hb_hashClone( PHB_ITEM pHash )
return pDest;
}
HB_EXPORT void hb_hashJoin( PHB_ITEM pDest, PHB_ITEM pSource, int iType )
void hb_hashJoin( PHB_ITEM pDest, PHB_ITEM pSource, int iType )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashJoin(%p,%p,%d)", pDest, pSource, iType));
@@ -819,7 +819,7 @@ HB_EXPORT void hb_hashJoin( PHB_ITEM pDest, PHB_ITEM pSource, int iType )
}
}
HB_EXPORT PHB_ITEM hb_hashGetKeys( PHB_ITEM pHash )
PHB_ITEM hb_hashGetKeys( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetKeys(%p)", pHash));
@@ -841,7 +841,7 @@ HB_EXPORT PHB_ITEM hb_hashGetKeys( PHB_ITEM pHash )
return NULL;
}
HB_EXPORT PHB_ITEM hb_hashGetValues( PHB_ITEM pHash )
PHB_ITEM hb_hashGetValues( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetValues(%p)", pHash));
@@ -863,7 +863,7 @@ HB_EXPORT PHB_ITEM hb_hashGetValues( PHB_ITEM pHash )
return NULL;
}
HB_EXPORT void hb_hashSetDefault( PHB_ITEM pHash, PHB_ITEM pValue )
void hb_hashSetDefault( PHB_ITEM pHash, PHB_ITEM pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashSetDefault(%p,%p)", pHash, pValue));
@@ -881,7 +881,7 @@ HB_EXPORT void hb_hashSetDefault( PHB_ITEM pHash, PHB_ITEM pValue )
}
}
HB_EXPORT PHB_ITEM hb_hashGetDefault( PHB_ITEM pHash )
PHB_ITEM hb_hashGetDefault( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetDefault(%p)", pHash));
@@ -891,7 +891,7 @@ HB_EXPORT PHB_ITEM hb_hashGetDefault( PHB_ITEM pHash )
return NULL;
}
HB_EXPORT void hb_hashSetFlags( PHB_ITEM pHash, int iFlags )
void hb_hashSetFlags( PHB_ITEM pHash, int iFlags )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashSetFlags(%p,%d)", pHash, iFlags));
@@ -899,7 +899,7 @@ HB_EXPORT void hb_hashSetFlags( PHB_ITEM pHash, int iFlags )
pHash->item.asHash.value->iFlags |= iFlags;
}
HB_EXPORT void hb_hashClearFlags( PHB_ITEM pHash, int iFlags )
void hb_hashClearFlags( PHB_ITEM pHash, int iFlags )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashClearFlags(%p,%d)", pHash, iFlags));
@@ -907,7 +907,7 @@ HB_EXPORT void hb_hashClearFlags( PHB_ITEM pHash, int iFlags )
pHash->item.asHash.value->iFlags &= ~iFlags;
}
HB_EXPORT int hb_hashGetFlags( PHB_ITEM pHash )
int hb_hashGetFlags( PHB_ITEM pHash )
{
HB_TRACE(HB_TR_DEBUG, ("hb_hashGetFlags(%p)", pHash));

394
harbour/source/vm/hvm.c
View File

File diff suppressed because it is too large Load Diff

150
harbour/source/vm/itemapi.c
View File

@@ -108,14 +108,14 @@
# include <ieeefp.h>
#endif
HB_EXPORT PHB_ITEM hb_itemNew( PHB_ITEM pNull )
PHB_ITEM hb_itemNew( PHB_ITEM pNull )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemNew(%p)", pNull));
return hb_gcGripGet( pNull );
}
HB_EXPORT PHB_ITEM hb_itemParam( USHORT uiParam )
PHB_ITEM hb_itemParam( USHORT uiParam )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemParam(%hu)", uiParam));
@@ -124,14 +124,14 @@ HB_EXPORT PHB_ITEM hb_itemParam( USHORT uiParam )
/* Internal Item API. Use this with care. */
HB_EXPORT PHB_ITEM hb_itemParamPtr( USHORT uiParam, long lMask )
PHB_ITEM hb_itemParamPtr( USHORT uiParam, long lMask )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemParamPtr(%hu, %ld)", uiParam, lMask));
return hb_param( ( int ) uiParam, lMask );
}
HB_EXPORT BOOL hb_itemParamStore( USHORT uiParam, PHB_ITEM pItem )
BOOL hb_itemParamStore( USHORT uiParam, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemParamStore(%hu, %p)", uiParam, pItem));
@@ -144,7 +144,7 @@ HB_EXPORT BOOL hb_itemParamStore( USHORT uiParam, PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT BOOL hb_itemParamStoreForward( USHORT uiParam, PHB_ITEM pItem )
BOOL hb_itemParamStoreForward( USHORT uiParam, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemParamStoreForward(%hu, %p)", uiParam, pItem));
@@ -157,14 +157,14 @@ HB_EXPORT BOOL hb_itemParamStoreForward( USHORT uiParam, PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT USHORT hb_itemPCount( void )
USHORT hb_itemPCount( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPCount()"));
return ( USHORT ) hb_pcount();
}
HB_EXPORT BOOL hb_itemRelease( PHB_ITEM pItem )
BOOL hb_itemRelease( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemRelease(%p)", pItem));
@@ -177,7 +177,7 @@ HB_EXPORT BOOL hb_itemRelease( PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT PHB_ITEM hb_itemArrayNew( ULONG ulLen )
PHB_ITEM hb_itemArrayNew( ULONG ulLen )
{
PHB_ITEM pItem;
@@ -190,7 +190,7 @@ HB_EXPORT PHB_ITEM hb_itemArrayNew( ULONG ulLen )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemArrayGet( PHB_ITEM pArray, ULONG ulIndex )
PHB_ITEM hb_itemArrayGet( PHB_ITEM pArray, ULONG ulIndex )
{
PHB_ITEM pItem;
@@ -204,7 +204,7 @@ HB_EXPORT PHB_ITEM hb_itemArrayGet( PHB_ITEM pArray, ULONG ulIndex )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemArrayPut( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
PHB_ITEM hb_itemArrayPut( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemArrayPut(%p, %lu, %p)", pArray, ulIndex, pItem));
@@ -214,7 +214,7 @@ HB_EXPORT PHB_ITEM hb_itemArrayPut( PHB_ITEM pArray, ULONG ulIndex, PHB_ITEM pIt
return pArray;
}
HB_EXPORT PHB_ITEM hb_itemPutC( PHB_ITEM pItem, const char * szText )
PHB_ITEM hb_itemPutC( PHB_ITEM pItem, const char * szText )
{
ULONG ulLen, ulAlloc;
@@ -248,7 +248,7 @@ HB_EXPORT PHB_ITEM hb_itemPutC( PHB_ITEM pItem, const char * szText )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutCL( PHB_ITEM pItem, const char * szText, ULONG ulLen )
PHB_ITEM hb_itemPutCL( PHB_ITEM pItem, const char * szText, ULONG ulLen )
{
ULONG ulAlloc;
@@ -286,7 +286,7 @@ HB_EXPORT PHB_ITEM hb_itemPutCL( PHB_ITEM pItem, const char * szText, ULONG ulLe
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutCConst( PHB_ITEM pItem, const char * szText )
PHB_ITEM hb_itemPutCConst( PHB_ITEM pItem, const char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutCConst(%p, %s)", pItem, szText));
@@ -315,7 +315,7 @@ HB_EXPORT PHB_ITEM hb_itemPutCConst( PHB_ITEM pItem, const char * szText )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutCLConst( PHB_ITEM pItem, const char * szText, ULONG ulLen )
PHB_ITEM hb_itemPutCLConst( PHB_ITEM pItem, const char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutCConst(%p, %s, %lu)", pItem, szText, ulLen));
@@ -347,7 +347,7 @@ HB_EXPORT PHB_ITEM hb_itemPutCLConst( PHB_ITEM pItem, const char * szText, ULONG
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutCPtr2( PHB_ITEM pItem, char * szText )
PHB_ITEM hb_itemPutCPtr2( PHB_ITEM pItem, char * szText )
{
ULONG ulLen;
@@ -387,12 +387,12 @@ HB_EXPORT PHB_ITEM hb_itemPutCPtr2( PHB_ITEM pItem, char * szText )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutCPtr( PHB_ITEM pItem, char * szText, ULONG ulLen )
PHB_ITEM hb_itemPutCPtr( PHB_ITEM pItem, char * szText, ULONG ulLen )
{
return hb_itemPutCLPtr( pItem, szText, ulLen );
}
HB_EXPORT PHB_ITEM hb_itemPutCLPtr( PHB_ITEM pItem, char * szText, ULONG ulLen )
PHB_ITEM hb_itemPutCLPtr( PHB_ITEM pItem, char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutCLPtr(%p, %s, %lu)", pItem, szText, ulLen));
@@ -428,7 +428,7 @@ HB_EXPORT PHB_ITEM hb_itemPutCLPtr( PHB_ITEM pItem, char * szText, ULONG ulLen )
return pItem;
}
HB_EXPORT void hb_itemSetCMemo( PHB_ITEM pItem )
void hb_itemSetCMemo( PHB_ITEM pItem )
{
if( pItem && HB_IS_STRING( pItem ) )
pItem->type |= HB_IT_MEMOFLAG;
@@ -436,7 +436,7 @@ HB_EXPORT void hb_itemSetCMemo( PHB_ITEM pItem )
/* NOTE: The caller should free the pointer if it's not NULL. [vszakats] */
HB_EXPORT char * hb_itemGetC( PHB_ITEM pItem )
char * hb_itemGetC( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetC(%p)", pItem));
@@ -455,7 +455,7 @@ HB_EXPORT char * hb_itemGetC( PHB_ITEM pItem )
/* NOTE: Caller should not modify the buffer returned by this function.
[vszakats] */
HB_EXPORT char * hb_itemGetCPtr( PHB_ITEM pItem )
char * hb_itemGetCPtr( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetCPtr(%p)", pItem));
@@ -465,7 +465,7 @@ HB_EXPORT char * hb_itemGetCPtr( PHB_ITEM pItem )
return ( char * ) "";
}
HB_EXPORT ULONG hb_itemGetCLen( PHB_ITEM pItem )
ULONG hb_itemGetCLen( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetCLen(%p)", pItem));
@@ -475,7 +475,7 @@ HB_EXPORT ULONG hb_itemGetCLen( PHB_ITEM pItem )
return 0;
}
HB_EXPORT ULONG hb_itemCopyC( PHB_ITEM pItem, char * szBuffer, ULONG ulLen )
ULONG hb_itemCopyC( PHB_ITEM pItem, char * szBuffer, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemCopyC(%p, %s, %lu)", pItem, szBuffer, ulLen));
@@ -492,7 +492,7 @@ HB_EXPORT ULONG hb_itemCopyC( PHB_ITEM pItem, char * szBuffer, ULONG ulLen )
return 0;
}
HB_EXPORT BOOL hb_itemFreeC( char * szText )
BOOL hb_itemFreeC( char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemFreeC(%s)", szText));
@@ -512,7 +512,7 @@ HB_EXPORT BOOL hb_itemFreeC( char * szText )
The correct buffer size is 9 bytes: char szDate[ 9 ]
[vszakats] */
HB_EXPORT char * hb_itemGetDS( PHB_ITEM pItem, char * szDate )
char * hb_itemGetDS( PHB_ITEM pItem, char * szDate )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetDS(%p, %s)", szDate));
@@ -522,7 +522,7 @@ HB_EXPORT char * hb_itemGetDS( PHB_ITEM pItem, char * szDate )
return hb_dateDecStr( szDate, 0 );
}
HB_EXPORT long hb_itemGetDL( PHB_ITEM pItem )
long hb_itemGetDL( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetDL(%p)", pItem));
@@ -532,7 +532,7 @@ HB_EXPORT long hb_itemGetDL( PHB_ITEM pItem )
return 0;
}
HB_EXPORT BOOL hb_itemGetL( PHB_ITEM pItem )
BOOL hb_itemGetL( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetL(%p)", pItem));
@@ -554,7 +554,7 @@ HB_EXPORT BOOL hb_itemGetL( PHB_ITEM pItem )
return FALSE;
}
HB_EXPORT double hb_itemGetND( PHB_ITEM pItem )
double hb_itemGetND( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetND(%p)", pItem));
@@ -573,7 +573,7 @@ HB_EXPORT double hb_itemGetND( PHB_ITEM pItem )
return 0;
}
HB_EXPORT int hb_itemGetNI( PHB_ITEM pItem )
int hb_itemGetNI( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNI(%p)", pItem));
@@ -592,7 +592,7 @@ HB_EXPORT int hb_itemGetNI( PHB_ITEM pItem )
return 0;
}
HB_EXPORT LONG hb_itemGetNL( PHB_ITEM pItem )
LONG hb_itemGetNL( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNL(%p)", pItem));
@@ -618,7 +618,7 @@ HB_EXPORT LONG hb_itemGetNL( PHB_ITEM pItem )
return 0;
}
HB_EXPORT HB_LONG hb_itemGetNInt( PHB_ITEM pItem )
HB_LONG hb_itemGetNInt( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNL(%p)", pItem));
@@ -645,7 +645,7 @@ HB_EXPORT HB_LONG hb_itemGetNInt( PHB_ITEM pItem )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT LONGLONG hb_itemGetNLL( PHB_ITEM pItem )
LONGLONG hb_itemGetNLL( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNL(%p)", pItem));
@@ -672,7 +672,7 @@ HB_EXPORT LONGLONG hb_itemGetNLL( PHB_ITEM pItem )
}
#endif
HB_EXPORT void * hb_itemGetPtr( PHB_ITEM pItem )
void * hb_itemGetPtr( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetPtr(%p)", pItem));
@@ -682,7 +682,7 @@ HB_EXPORT void * hb_itemGetPtr( PHB_ITEM pItem )
return NULL;
}
HB_EXPORT void * hb_itemGetPtrGC( PHB_ITEM pItem, HB_GARBAGE_FUNC_PTR pFunc )
void * hb_itemGetPtrGC( PHB_ITEM pItem, HB_GARBAGE_FUNC_PTR pFunc )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetPtrGC(%p,%p)", pItem, pFunc));
@@ -694,7 +694,7 @@ HB_EXPORT void * hb_itemGetPtrGC( PHB_ITEM pItem, HB_GARBAGE_FUNC_PTR pFunc )
return NULL;
}
HB_EXPORT PHB_SYMB hb_itemGetSymbol( PHB_ITEM pItem )
PHB_SYMB hb_itemGetSymbol( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetSymbol(%p)", pItem));
@@ -704,7 +704,7 @@ HB_EXPORT PHB_SYMB hb_itemGetSymbol( PHB_ITEM pItem )
return NULL;
}
HB_EXPORT PHB_ITEM hb_itemReturn( PHB_ITEM pItem )
PHB_ITEM hb_itemReturn( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemReturn(%p)", pItem));
@@ -714,7 +714,7 @@ HB_EXPORT PHB_ITEM hb_itemReturn( PHB_ITEM pItem )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemReturnForward( PHB_ITEM pItem )
PHB_ITEM hb_itemReturnForward( PHB_ITEM pItem )
{
HB_TRACE_STEALTH( HB_TR_DEBUG, ("hb_itemReturnForward(%p)", pItem ) );
@@ -724,7 +724,7 @@ HB_EXPORT PHB_ITEM hb_itemReturnForward( PHB_ITEM pItem )
return pItem;
}
HB_EXPORT void hb_itemReturnRelease( PHB_ITEM pItem )
void hb_itemReturnRelease( PHB_ITEM pItem )
{
HB_TRACE_STEALTH( HB_TR_DEBUG, ("hb_itemReturnRelease(%p)", pItem ) );
@@ -736,7 +736,7 @@ HB_EXPORT void hb_itemReturnRelease( PHB_ITEM pItem )
}
HB_EXPORT PHB_ITEM hb_itemPutDS( PHB_ITEM pItem, const char * szDate )
PHB_ITEM hb_itemPutDS( PHB_ITEM pItem, const char * szDate )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutDS(%p, %s)", pItem, szDate));
@@ -754,7 +754,7 @@ HB_EXPORT PHB_ITEM hb_itemPutDS( PHB_ITEM pItem, const char * szDate )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutD( PHB_ITEM pItem, int iYear, int iMonth, int iDay )
PHB_ITEM hb_itemPutD( PHB_ITEM pItem, int iYear, int iMonth, int iDay )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutD(%p, %04i, %02i, %02i)", pItem, iYear, iMonth, iDay));
@@ -772,7 +772,7 @@ HB_EXPORT PHB_ITEM hb_itemPutD( PHB_ITEM pItem, int iYear, int iMonth, int iDay
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutDL( PHB_ITEM pItem, long lJulian )
PHB_ITEM hb_itemPutDL( PHB_ITEM pItem, long lJulian )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutDL(%p, %ld)", pItem, lJulian));
@@ -790,7 +790,7 @@ HB_EXPORT PHB_ITEM hb_itemPutDL( PHB_ITEM pItem, long lJulian )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutL( PHB_ITEM pItem, BOOL bValue )
PHB_ITEM hb_itemPutL( PHB_ITEM pItem, BOOL bValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutL(%p, %d)", pItem, (int) bValue));
@@ -808,7 +808,7 @@ HB_EXPORT PHB_ITEM hb_itemPutL( PHB_ITEM pItem, BOOL bValue )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutND( PHB_ITEM pItem, double dNumber )
PHB_ITEM hb_itemPutND( PHB_ITEM pItem, double dNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutND(%p, %lf)", pItem, dNumber));
@@ -828,7 +828,7 @@ HB_EXPORT PHB_ITEM hb_itemPutND( PHB_ITEM pItem, double dNumber )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutNI( PHB_ITEM pItem, int iNumber )
PHB_ITEM hb_itemPutNI( PHB_ITEM pItem, int iNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNI(%p, %d)", pItem, iNumber));
@@ -847,7 +847,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNI( PHB_ITEM pItem, int iNumber )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutNL( PHB_ITEM pItem, LONG lNumber )
PHB_ITEM hb_itemPutNL( PHB_ITEM pItem, LONG lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNL(%p, %ld)", pItem, lNumber));
@@ -873,7 +873,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNL( PHB_ITEM pItem, LONG lNumber )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT PHB_ITEM hb_itemPutNLL( PHB_ITEM pItem, LONGLONG llNumber )
PHB_ITEM hb_itemPutNLL( PHB_ITEM pItem, LONGLONG llNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNL(%p, %" PFLL "d)", pItem, llNumber));
@@ -899,7 +899,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNLL( PHB_ITEM pItem, LONGLONG llNumber )
}
#endif
HB_EXPORT PHB_ITEM hb_itemPutNInt( PHB_ITEM pItem, HB_LONG lNumber )
PHB_ITEM hb_itemPutNInt( PHB_ITEM pItem, HB_LONG lNumber )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNInt(%p, %" PFHL "d)", pItem, lNumber));
@@ -928,7 +928,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNInt( PHB_ITEM pItem, HB_LONG lNumber )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutNIntLen( PHB_ITEM pItem, HB_LONG lNumber, int iWidth )
PHB_ITEM hb_itemPutNIntLen( PHB_ITEM pItem, HB_LONG lNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNIntLen(%p, %" PFHL "d, %d)", pItem, lNumber, iWidth));
@@ -946,7 +946,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNIntLen( PHB_ITEM pItem, HB_LONG lNumber, int iWidt
}
}
HB_EXPORT PHB_ITEM hb_itemPutNLen( PHB_ITEM pItem, double dNumber, int iWidth, int iDec )
PHB_ITEM hb_itemPutNLen( PHB_ITEM pItem, double dNumber, int iWidth, int iDec )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNLen(%p, %lf, %d, %d)", pItem, dNumber, iWidth, iDec));
@@ -970,7 +970,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNLen( PHB_ITEM pItem, double dNumber, int iWidth, i
return hb_itemPutNDLen( pItem, dNumber, iWidth, 0 );
}
HB_EXPORT PHB_ITEM hb_itemPutNDLen( PHB_ITEM pItem, double dNumber, int iWidth, int iDec )
PHB_ITEM hb_itemPutNDLen( PHB_ITEM pItem, double dNumber, int iWidth, int iDec )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNDLen(%p, %lf, %d, %d)", pItem, dNumber, iWidth, iDec));
@@ -1006,7 +1006,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNDLen( PHB_ITEM pItem, double dNumber, int iWidth,
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutNDDec( PHB_ITEM pItem, double dNumber, int iDec )
PHB_ITEM hb_itemPutNDDec( PHB_ITEM pItem, double dNumber, int iDec )
{
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_itemPutNDDec(%p, %lf, %i)", pItem, dNumber, iDec));
@@ -1035,7 +1035,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNDDec( PHB_ITEM pItem, double dNumber, int iDec )
return pItem;
}
HB_EXPORT double hb_itemGetNDDec( PHB_ITEM pItem, int * piDec )
double hb_itemGetNDDec( PHB_ITEM pItem, int * piDec )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNDDec(%p,%p)", pItem, piDec));
@@ -1060,7 +1060,7 @@ HB_EXPORT double hb_itemGetNDDec( PHB_ITEM pItem, int * piDec )
}
HB_EXPORT PHB_ITEM hb_itemPutNILen( PHB_ITEM pItem, int iNumber, int iWidth )
PHB_ITEM hb_itemPutNILen( PHB_ITEM pItem, int iNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNILen(%p, %d, %d)", pItem, iNumber, iWidth));
@@ -1082,7 +1082,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNILen( PHB_ITEM pItem, int iNumber, int iWidth )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutNLLen( PHB_ITEM pItem, LONG lNumber, int iWidth )
PHB_ITEM hb_itemPutNLLen( PHB_ITEM pItem, LONG lNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNLLen(%p, %ld, %d)", pItem, lNumber, iWidth));
@@ -1114,7 +1114,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNLLen( PHB_ITEM pItem, LONG lNumber, int iWidth )
}
#ifndef HB_LONG_LONG_OFF
HB_EXPORT PHB_ITEM hb_itemPutNLLLen( PHB_ITEM pItem, LONGLONG llNumber, int iWidth )
PHB_ITEM hb_itemPutNLLLen( PHB_ITEM pItem, LONGLONG llNumber, int iWidth )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNLLLen(%p, %" PFLL "d, %d)", pItem, llNumber, iWidth));
@@ -1146,7 +1146,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNLLLen( PHB_ITEM pItem, LONGLONG llNumber, int iWid
}
#endif
HB_EXPORT PHB_ITEM hb_itemPutNumType( PHB_ITEM pItem, double dNumber, int iDec, int iType1, int iType2 )
PHB_ITEM hb_itemPutNumType( PHB_ITEM pItem, double dNumber, int iDec, int iType1, int iType2 )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutNumType( %p, %lf, %d, %i, %i)", pItem, dNumber, iDec, iType1, iType2));
@@ -1172,7 +1172,7 @@ HB_EXPORT PHB_ITEM hb_itemPutNumType( PHB_ITEM pItem, double dNumber, int iDec,
}
}
HB_EXPORT PHB_ITEM hb_itemPutPtr( PHB_ITEM pItem, void * pValue )
PHB_ITEM hb_itemPutPtr( PHB_ITEM pItem, void * pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutPtr(%p, %p)", pItem, pValue));
@@ -1192,7 +1192,7 @@ HB_EXPORT PHB_ITEM hb_itemPutPtr( PHB_ITEM pItem, void * pValue )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutPtrGC( PHB_ITEM pItem, void * pValue )
PHB_ITEM hb_itemPutPtrGC( PHB_ITEM pItem, void * pValue )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutPtrGC(%p, %p)", pItem, pValue));
@@ -1212,7 +1212,7 @@ HB_EXPORT PHB_ITEM hb_itemPutPtrGC( PHB_ITEM pItem, void * pValue )
return pItem;
}
HB_EXPORT PHB_ITEM hb_itemPutSymbol( PHB_ITEM pItem, PHB_SYMB pSym )
PHB_ITEM hb_itemPutSymbol( PHB_ITEM pItem, PHB_SYMB pSym )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutSymbol(%p,%p)", pItem, pSym));
@@ -1233,7 +1233,7 @@ HB_EXPORT PHB_ITEM hb_itemPutSymbol( PHB_ITEM pItem, PHB_SYMB pSym )
return pItem;
}
HB_EXPORT void hb_itemGetNLen( PHB_ITEM pItem, int * piWidth, int * piDecimal )
void hb_itemGetNLen( PHB_ITEM pItem, int * piWidth, int * piDecimal )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetNLen(%p, %p, %p)", pItem, piWidth, piDecimal));
@@ -1262,7 +1262,7 @@ HB_EXPORT void hb_itemGetNLen( PHB_ITEM pItem, int * piWidth, int * piDecimal )
}
}
HB_EXPORT ULONG hb_itemSize( PHB_ITEM pItem )
ULONG hb_itemSize( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemSize(%p)", pItem));
@@ -1279,7 +1279,7 @@ HB_EXPORT ULONG hb_itemSize( PHB_ITEM pItem )
return 0;
}
HB_EXPORT HB_TYPE hb_itemType( PHB_ITEM pItem )
HB_TYPE hb_itemType( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemType(%p)", pItem));
@@ -1289,7 +1289,7 @@ HB_EXPORT HB_TYPE hb_itemType( PHB_ITEM pItem )
return HB_IT_NIL;
}
HB_EXPORT char * hb_itemTypeStr( PHB_ITEM pItem )
char * hb_itemTypeStr( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemTypeStr(%p)", pItem));
@@ -1333,7 +1333,7 @@ HB_EXPORT char * hb_itemTypeStr( PHB_ITEM pItem )
/* Internal API, not standard Clipper */
HB_EXPORT void hb_itemInit( PHB_ITEM pItem )
void hb_itemInit( PHB_ITEM pItem )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemInit(%p)", pItem));
@@ -1341,7 +1341,7 @@ HB_EXPORT void hb_itemInit( PHB_ITEM pItem )
pItem->type = HB_IT_NIL;
}
HB_EXPORT void hb_itemClear( PHB_ITEM pItem )
void hb_itemClear( PHB_ITEM pItem )
{
HB_TYPE type;
@@ -1390,7 +1390,7 @@ HB_EXPORT void hb_itemClear( PHB_ITEM pItem )
/* Internal API, not standard Clipper */
HB_EXPORT void hb_itemCopy( PHB_ITEM pDest, PHB_ITEM pSource )
void hb_itemCopy( PHB_ITEM pDest, PHB_ITEM pSource )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemCopy(%p, %p)", pDest, pSource));
@@ -1502,7 +1502,7 @@ void hb_itemCopyFromRef( PHB_ITEM pDest, PHB_ITEM pSource )
* copy (transfer) the value of item without increasing
* a reference counters, the pSource item is cleared
*/
HB_EXPORT void hb_itemMove( PHB_ITEM pDest, PHB_ITEM pSource )
void hb_itemMove( PHB_ITEM pDest, PHB_ITEM pSource )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemMove(%p, %p)", pDest, pSource));
@@ -1617,7 +1617,7 @@ void hb_itemMoveFromRef( PHB_ITEM pDest, PHB_ITEM pSource )
/* Internal API, not standard Clipper */
HB_EXPORT void hb_itemSwap( PHB_ITEM pItem1, PHB_ITEM pItem2 )
void hb_itemSwap( PHB_ITEM pItem1, PHB_ITEM pItem2 )
{
HB_ITEM temp;
@@ -1909,7 +1909,7 @@ PHB_ITEM hb_itemUnShare( PHB_ITEM pItem )
/* Internal API, not standard Clipper */
/* clone the given item */
HB_EXPORT PHB_ITEM hb_itemClone( PHB_ITEM pItem )
PHB_ITEM hb_itemClone( PHB_ITEM pItem )
{
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_itemClone(%p)", pItem));
@@ -1931,7 +1931,7 @@ HB_EXPORT PHB_ITEM hb_itemClone( PHB_ITEM pItem )
/* Internal API, not standard Clipper */
/* Check whether two strings are equal (0), smaller (-1), or greater (1) */
HB_EXPORT int hb_itemStrCmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExact )
int hb_itemStrCmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExact )
{
const char * szFirst;
const char * szSecond;
@@ -2011,7 +2011,7 @@ HB_EXPORT int hb_itemStrCmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExact
}
/* Check whether two strings are equal (0), smaller (-1), or greater (1), ignore case */
HB_EXPORT int hb_itemStrICmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExact )
int hb_itemStrICmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExact )
{
const char * szFirst;
const char * szSecond;
@@ -2094,7 +2094,7 @@ HB_EXPORT int hb_itemStrICmp( PHB_ITEM pFirst, PHB_ITEM pSecond, BOOL bForceExac
/* converts a numeric to a string with optional width & precision. */
HB_EXPORT BOOL hb_itemStrBuf( char *szResult, PHB_ITEM pNumber, int iSize, int iDec )
BOOL hb_itemStrBuf( char *szResult, PHB_ITEM pNumber, int iSize, int iDec )
{
int iPos, iDot;
BOOL fNeg;
@@ -2361,7 +2361,7 @@ HB_EXPORT BOOL hb_itemStrBuf( char *szResult, PHB_ITEM pNumber, int iSize, int i
buffer, but ONLY if the return value is not a NULL pointer! (If a NULL
pointer is returned, then there was a conversion error.)
*/
HB_EXPORT char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
{
char * szResult = NULL;
@@ -2421,7 +2421,7 @@ HB_EXPORT char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
As a side effect the caller should never modify the returned buffer
since it may point to a constant value. [vszakats] */
HB_EXPORT char * hb_itemString( PHB_ITEM pItem, ULONG * ulLen, BOOL * bFreeReq )
char * hb_itemString( PHB_ITEM pItem, ULONG * ulLen, BOOL * bFreeReq )
{
char * buffer;
@@ -2527,7 +2527,7 @@ HB_EXPORT char * hb_itemString( PHB_ITEM pItem, ULONG * ulLen, BOOL * bFreeReq )
being padded. If date, convert to string using hb_dateFormat(). If numeric,
convert to unpadded string. Return pointer to string and set string length */
HB_EXPORT char * hb_itemPadConv( PHB_ITEM pItem, ULONG * pulSize, BOOL * bFreeReq )
char * hb_itemPadConv( PHB_ITEM pItem, ULONG * pulSize, BOOL * bFreeReq )
{
HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_itemPadConv(%p, %p, %p)", pItem, pulSize, bFreeReq));
@@ -2571,7 +2571,7 @@ HB_EXPORT char * hb_itemPadConv( PHB_ITEM pItem, ULONG * pulSize, BOOL * bFreeRe
return NULL;
}
HB_EXPORT PHB_ITEM hb_itemValToStr( PHB_ITEM pItem )
PHB_ITEM hb_itemValToStr( PHB_ITEM pItem )
{
PHB_ITEM pResult;
char * buffer;

8
harbour/source/vm/maindll.c
View File

@@ -62,7 +62,7 @@
#if defined(HB_OS_WIN_32)
HB_EXPORT BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
{
HB_TRACE( HB_TR_DEBUG, ("DllEntryPoint(%p, %p, %p)", hInstance, fdwReason,
pvReserved ) );
@@ -85,21 +85,21 @@ HB_EXPORT BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID
return TRUE;
}
HB_EXPORT LONG PASCAL HBDLLENTRY( char * cProcName )
LONG PASCAL HBDLLENTRY( char * cProcName )
{
hb_itemDoC( cProcName, 0, 0 );
return 0;
}
HB_EXPORT LONG PASCAL HBDLLENTRY1( char * cProcName, LONG pItem )
LONG PASCAL HBDLLENTRY1( char * cProcName, LONG pItem )
{
hb_itemDoC( cProcName, 1, ( PHB_ITEM ) pItem, 0 );
return 0;
}
HB_EXPORT LONG PASCAL HBDLLENTRY2( char * cProcName, LONG pItem1, LONG pItem2 )
LONG PASCAL HBDLLENTRY2( char * cProcName, LONG pItem1, LONG pItem2 )
{
hb_itemDoC( cProcName, 2, ( PHB_ITEM ) pItem1, ( PHB_ITEM ) pItem2, 0 );

2
harbour/source/vm/maindllh.c
View File

@@ -62,7 +62,7 @@
#if defined(HB_OS_WIN_32)
HB_EXPORT BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
{
HB_TRACE( HB_TR_DEBUG, ("DllEntryPoint(%p, %p, %d)", hInstance, fdwReason,
pvReserved ) );

2
harbour/source/vm/maindllp.c
View File

@@ -100,7 +100,7 @@ static FARPROC hb_getProcAddress( LPCSTR szProcName )
return pProcAddr;
}
HB_EXPORT BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
BOOL WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )
{
HB_TRACE( HB_TR_DEBUG, ("DllEntryPoint(%p, %p, %d)", hInstance, fdwReason,
pvReserved ) );

2
harbour/source/vm/mainstd.c
View File

@@ -78,7 +78,7 @@ char ** __crt0_glob_function( char * _arg )
#endif
#if defined(__WATCOMC__) && ( defined(HB_OS_LINUX) || defined(HB_OS_OS2) )
HB_EXPORT void hb_forceLinkMainStd( void ) {}
void hb_forceLinkMainStd( void ) {}
#endif
HB_EXTERN_END

2
harbour/source/vm/mainwin.c
View File

@@ -62,7 +62,7 @@
#if !defined(HB_DYNLIB) && ( defined(__DMC__) || defined(__WATCOMC__) || defined(__MINGW32__) )
HB_EXTERN_BEGIN
HB_EXPORT void hb_forceLinkMainWin( void ) {}
void hb_forceLinkMainWin( void ) {}
HB_EXTERN_END
#endif

142
harbour/source/vm/set.c
View File

@@ -297,7 +297,7 @@ static HB_FHANDLE open_handle( PHB_SET_STRUCT pSet, const char * file_name, BOOL
return handle;
}
HB_EXPORT BOOL hb_setSetCentury( BOOL new_century_setting )
BOOL hb_setSetCentury( BOOL new_century_setting )
{
PHB_SET_STRUCT pSet = hb_stackSetStruct();
BOOL old_century_setting = pSet->hb_set_century;
@@ -1271,7 +1271,7 @@ static BOOL hb_setSetFile( HB_set_enum set_specifier, const char * szFile, BOOL
return fResult;
}
HB_EXPORT BOOL hb_setSetItem( HB_set_enum set_specifier, PHB_ITEM pItem )
BOOL hb_setSetItem( HB_set_enum set_specifier, PHB_ITEM pItem )
{
PHB_SET_STRUCT pSet = hb_stackSetStruct();
BOOL fResult = FALSE;
@@ -1836,7 +1836,7 @@ HB_EXPORT BOOL hb_setSetItem( HB_set_enum set_specifier, PHB_ITEM pItem )
return fResult;
}
HB_EXPORT BOOL hb_setSetItem2( HB_set_enum set_specifier, PHB_ITEM pItem1, PHB_ITEM pItem2 )
BOOL hb_setSetItem2( HB_set_enum set_specifier, PHB_ITEM pItem1, PHB_ITEM pItem2 )
{
BOOL fResult = FALSE;
@@ -1860,7 +1860,7 @@ HB_EXPORT BOOL hb_setSetItem2( HB_set_enum set_specifier, PHB_ITEM pItem1, PHB_I
return fResult;
}
HB_EXPORT BOOL hb_setGetL( HB_set_enum set_specifier )
BOOL hb_setGetL( HB_set_enum set_specifier )
{
PHB_SET_STRUCT pSet = hb_stackSetStruct();
@@ -1977,7 +1977,7 @@ HB_EXPORT BOOL hb_setGetL( HB_set_enum set_specifier )
return FALSE;
}
HB_EXPORT char * hb_setGetCPtr( HB_set_enum set_specifier )
char * hb_setGetCPtr( HB_set_enum set_specifier )
{
PHB_SET_STRUCT pSet = hb_stackSetStruct();
@@ -2076,7 +2076,7 @@ HB_EXPORT char * hb_setGetCPtr( HB_set_enum set_specifier )
return FALSE;
}
HB_EXPORT int hb_setGetNI( HB_set_enum set_specifier )
int hb_setGetNI( HB_set_enum set_specifier )
{
PHB_SET_STRUCT pSet = hb_stackSetStruct();
@@ -2175,328 +2175,328 @@ HB_EXPORT int hb_setGetNI( HB_set_enum set_specifier )
return FALSE;
}
HB_EXPORT long hb_setGetNL( HB_set_enum set_specifier )
long hb_setGetNL( HB_set_enum set_specifier )
{
return hb_setGetNI( set_specifier );
}
HB_EXPORT HB_PATHNAMES * hb_setGetFirstSetPath( void )
HB_PATHNAMES * hb_setGetFirstSetPath( void )
{
return hb_stackSetStruct()->hb_set_path;
}
HB_EXPORT HB_FHANDLE hb_setGetAltHan( void )
HB_FHANDLE hb_setGetAltHan( void )
{
return hb_stackSetStruct()->hb_set_althan;
}
HB_EXPORT BOOL hb_setGetCentury( void )
BOOL hb_setGetCentury( void )
{
return hb_stackSetStruct()->hb_set_century;
}
HB_EXPORT HB_FHANDLE hb_setGetExtraHan( void )
HB_FHANDLE hb_setGetExtraHan( void )
{
return hb_stackSetStruct()->hb_set_extrahan;
}
HB_EXPORT HB_FHANDLE hb_setGetPrintHan( void )
HB_FHANDLE hb_setGetPrintHan( void )
{
return hb_stackSetStruct()->hb_set_printhan;
}
HB_EXPORT BOOL hb_setGetAlternate( void )
BOOL hb_setGetAlternate( void )
{
return hb_stackSetStruct()->HB_SET_ALTERNATE;
}
HB_EXPORT char * hb_setGetAltFile( void )
char * hb_setGetAltFile( void )
{
return hb_stackSetStruct()->HB_SET_ALTFILE;
}
HB_EXPORT BOOL hb_setGetAutOpen( void )
BOOL hb_setGetAutOpen( void )
{
return hb_stackSetStruct()->HB_SET_AUTOPEN;
}
HB_EXPORT int hb_setGetAutOrder( void )
int hb_setGetAutOrder( void )
{
return hb_stackSetStruct()->HB_SET_AUTORDER;
}
HB_EXPORT int hb_setGetAutoShare( void )
int hb_setGetAutoShare( void )
{
return hb_stackSetStruct()->HB_SET_AUTOSHARE;
}
HB_EXPORT BOOL hb_setGetBell( void )
BOOL hb_setGetBell( void )
{
return hb_stackSetStruct()->HB_SET_BELL;
}
HB_EXPORT BOOL hb_setGetCancel( void )
BOOL hb_setGetCancel( void )
{
return hb_stackSetStruct()->HB_SET_CANCEL;
}
HB_EXPORT char * hb_setGetColor( void )
char * hb_setGetColor( void )
{
return hb_stackSetStruct()->HB_SET_COLOR;
}
HB_EXPORT BOOL hb_setGetConfirm( void )
BOOL hb_setGetConfirm( void )
{
return hb_stackSetStruct()->HB_SET_CONFIRM;
}
HB_EXPORT BOOL hb_setGetConsole( void )
BOOL hb_setGetConsole( void )
{
return hb_stackSetStruct()->HB_SET_CONSOLE;
}
HB_EXPORT char * hb_setGetDateFormat( void )
char * hb_setGetDateFormat( void )
{
return hb_stackSetStruct()->HB_SET_DATEFORMAT;
}
HB_EXPORT BOOL hb_setGetDebug( void )
BOOL hb_setGetDebug( void )
{
return hb_stackSetStruct()->HB_SET_DEBUG;
}
HB_EXPORT int hb_setGetDecimals( void )
int hb_setGetDecimals( void )
{
return hb_stackSetStruct()->HB_SET_DECIMALS;
}
HB_EXPORT char * hb_setGetDefault( void )
char * hb_setGetDefault( void )
{
return hb_stackSetStruct()->HB_SET_DEFAULT;
}
HB_EXPORT BOOL hb_setGetDeleted( void )
BOOL hb_setGetDeleted( void )
{
return hb_stackSetStruct()->HB_SET_DELETED;
}
HB_EXPORT char * hb_setGetDelimChars( void )
char * hb_setGetDelimChars( void )
{
return hb_stackSetStruct()->HB_SET_DELIMCHARS;
}
HB_EXPORT BOOL hb_setGetDelimiters( void )
BOOL hb_setGetDelimiters( void )
{
return hb_stackSetStruct()->HB_SET_DELIMITERS;
}
HB_EXPORT char * hb_setGetDevice( void )
char * hb_setGetDevice( void )
{
return hb_stackSetStruct()->HB_SET_DEVICE;
}
HB_EXPORT BOOL hb_setGetEOF( void )
BOOL hb_setGetEOF( void )
{
return hb_stackSetStruct()->HB_SET_EOF;
}
HB_EXPORT int hb_setGetEpoch( void )
int hb_setGetEpoch( void )
{
return hb_stackSetStruct()->HB_SET_EPOCH;
}
HB_EXPORT BOOL hb_setGetEscape( void )
BOOL hb_setGetEscape( void )
{
return hb_stackSetStruct()->HB_SET_ESCAPE;
}
HB_EXPORT int hb_setGetEventMask( void )
int hb_setGetEventMask( void )
{
return hb_stackSetStruct()->HB_SET_EVENTMASK;
}
HB_EXPORT BOOL hb_setGetExact( void )
BOOL hb_setGetExact( void )
{
return hb_stackSetStruct()->HB_SET_EXACT;
}
HB_EXPORT BOOL hb_setGetExclusive( void )
BOOL hb_setGetExclusive( void )
{
return hb_stackSetStruct()->HB_SET_EXCLUSIVE;
}
HB_EXPORT BOOL hb_setGetExit( void )
BOOL hb_setGetExit( void )
{
return hb_stackSetStruct()->HB_SET_EXIT;
}
HB_EXPORT BOOL hb_setGetExtra( void )
BOOL hb_setGetExtra( void )
{
return hb_stackSetStruct()->HB_SET_EXTRA;
}
HB_EXPORT char * hb_setGetExtraFile( void )
char * hb_setGetExtraFile( void )
{
return hb_stackSetStruct()->HB_SET_EXTRAFILE;
}
HB_EXPORT BOOL hb_setGetFixed( void )
BOOL hb_setGetFixed( void )
{
return hb_stackSetStruct()->HB_SET_FIXED;
}
HB_EXPORT BOOL hb_setGetIdleRepeat( void )
BOOL hb_setGetIdleRepeat( void )
{
return hb_stackSetStruct()->HB_SET_IDLEREPEAT;
}
HB_EXPORT BOOL hb_setGetInsert( void )
BOOL hb_setGetInsert( void )
{
return hb_stackSetStruct()->HB_SET_INSERT;
}
HB_EXPORT BOOL hb_setGetIntensity( void )
BOOL hb_setGetIntensity( void )
{
return hb_stackSetStruct()->HB_SET_INTENSITY;
}
HB_EXPORT char * hb_setGetPath( void )
char * hb_setGetPath( void )
{
return hb_stackSetStruct()->HB_SET_PATH;
}
HB_EXPORT int hb_setGetMargin( void )
int hb_setGetMargin( void )
{
return hb_stackSetStruct()->HB_SET_MARGIN;
}
HB_EXPORT int hb_setGetMBlockSize( void )
int hb_setGetMBlockSize( void )
{
return hb_stackSetStruct()->HB_SET_MBLOCKSIZE;
}
HB_EXPORT BOOL hb_setGetMCenter( void )
BOOL hb_setGetMCenter( void )
{
return hb_stackSetStruct()->HB_SET_MCENTER;
}
HB_EXPORT int hb_setGetMessage( void )
int hb_setGetMessage( void )
{
return hb_stackSetStruct()->HB_SET_MESSAGE;
}
HB_EXPORT char * hb_setGetMFileExt( void )
char * hb_setGetMFileExt( void )
{
return hb_stackSetStruct()->HB_SET_MFILEEXT;
}
HB_EXPORT BOOL hb_setGetOptimize( void )
BOOL hb_setGetOptimize( void )
{
return hb_stackSetStruct()->HB_SET_OPTIMIZE;
}
HB_EXPORT BOOL hb_setGetPrinter( void )
BOOL hb_setGetPrinter( void )
{
return hb_stackSetStruct()->HB_SET_PRINTER;
}
HB_EXPORT char * hb_setGetPrintFile( void )
char * hb_setGetPrintFile( void )
{
return hb_stackSetStruct()->HB_SET_PRINTFILE;
}
HB_EXPORT BOOL hb_setGetScoreBoard( void )
BOOL hb_setGetScoreBoard( void )
{
return hb_stackSetStruct()->HB_SET_SCOREBOARD;
}
HB_EXPORT BOOL hb_setGetScrollBreak( void )
BOOL hb_setGetScrollBreak( void )
{
return hb_stackSetStruct()->HB_SET_SCROLLBREAK;
}
HB_EXPORT BOOL hb_setGetSoftSeek( void )
BOOL hb_setGetSoftSeek( void )
{
return hb_stackSetStruct()->HB_SET_SOFTSEEK;
}
HB_EXPORT BOOL hb_setGetStrictRead( void )
BOOL hb_setGetStrictRead( void )
{
return hb_stackSetStruct()->HB_SET_STRICTREAD;
}
HB_EXPORT int hb_setGetTypeAhead( void )
int hb_setGetTypeAhead( void )
{
return hb_stackSetStruct()->HB_SET_TYPEAHEAD;
}
HB_EXPORT BOOL hb_setGetUnique( void )
BOOL hb_setGetUnique( void )
{
return hb_stackSetStruct()->HB_SET_UNIQUE;
}
HB_EXPORT int hb_setGetFileCase( void )
int hb_setGetFileCase( void )
{
return hb_stackSetStruct()->HB_SET_FILECASE;
}
HB_EXPORT int hb_setGetDirCase( void )
int hb_setGetDirCase( void )
{
return hb_stackSetStruct()->HB_SET_DIRCASE;
}
HB_EXPORT int hb_setGetDirSeparator( void )
int hb_setGetDirSeparator( void )
{
return hb_stackSetStruct()->HB_SET_DIRSEPARATOR;
}
HB_EXPORT int hb_setGetVideoMode( void )
int hb_setGetVideoMode( void )
{
return hb_stackSetStruct()->HB_SET_VIDEOMODE;
}
HB_EXPORT BOOL hb_setGetWrap( void )
BOOL hb_setGetWrap( void )
{
return hb_stackSetStruct()->HB_SET_WRAP;
}
HB_EXPORT int hb_setGetDBFLockScheme( void )
int hb_setGetDBFLockScheme( void )
{
return hb_stackSetStruct()->HB_SET_DBFLOCKSCHEME;
}
HB_EXPORT BOOL hb_setGetHardCommit( void )
BOOL hb_setGetHardCommit( void )
{
return hb_stackSetStruct()->HB_SET_HARDCOMMIT;
}
HB_EXPORT BOOL hb_setGetForceOpt( void )
BOOL hb_setGetForceOpt( void )
{
return hb_stackSetStruct()->HB_SET_FORCEOPT;
}
HB_EXPORT BOOL hb_setGetDefExtension( void )
BOOL hb_setGetDefExtension( void )
{
return hb_stackSetStruct()->HB_SET_DEFEXTENSIONS;
}
HB_EXPORT char * hb_setGetEOL( void )
char * hb_setGetEOL( void )
{
return hb_stackSetStruct()->HB_SET_EOL;
}
HB_EXPORT BOOL hb_setGetTrimFileName( void )
BOOL hb_setGetTrimFileName( void )
{
return hb_stackSetStruct()->HB_SET_TRIMFILENAME;
}
HB_EXPORT char * hb_setGetHBOUTLOG( void )
char * hb_setGetHBOUTLOG( void )
{
return hb_stackSetStruct()->HB_SET_HBOUTLOG;
}
HB_EXPORT char * hb_setGetHBOUTLOGINFO( void )
char * hb_setGetHBOUTLOGINFO( void )
{
return hb_stackSetStruct()->HB_SET_HBOUTLOGINFO;
}

32
harbour/source/vm/vm.c
View File

@@ -57,7 +57,7 @@
#include "hbapi.h"
HB_EXPORT HB_VMHANDLE hb_xvalloc( ULONG nSize, USHORT nFlags )
HB_VMHANDLE hb_xvalloc( ULONG nSize, USHORT nFlags )
{
/* TODO */
HB_SYMBOL_UNUSED( nSize );
@@ -65,13 +65,13 @@ HB_EXPORT HB_VMHANDLE hb_xvalloc( ULONG nSize, USHORT nFlags )
return 0;
}
HB_EXPORT void hb_xvfree( HB_VMHANDLE h )
void hb_xvfree( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
}
HB_EXPORT HB_VMHANDLE hb_xvrealloc( HB_VMHANDLE h, ULONG nSize, USHORT nFlags )
HB_VMHANDLE hb_xvrealloc( HB_VMHANDLE h, ULONG nSize, USHORT nFlags )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -80,14 +80,14 @@ HB_EXPORT HB_VMHANDLE hb_xvrealloc( HB_VMHANDLE h, ULONG nSize, USHORT nFlags )
return 0;
}
HB_EXPORT void * hb_xvlock( HB_VMHANDLE h )
void * hb_xvlock( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
return NULL;
}
HB_EXPORT void hb_xvunlock( HB_VMHANDLE h )
void hb_xvunlock( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -95,14 +95,14 @@ HB_EXPORT void hb_xvunlock( HB_VMHANDLE h )
/* Wire */
HB_EXPORT void * hb_xvwire( HB_VMHANDLE h )
void * hb_xvwire( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
return NULL;
}
HB_EXPORT void hb_xvunwire( HB_VMHANDLE h )
void hb_xvunwire( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -111,14 +111,14 @@ HB_EXPORT void hb_xvunwire( HB_VMHANDLE h )
/* State */
HB_EXPORT ULONG hb_xvlockcount( HB_VMHANDLE h )
ULONG hb_xvlockcount( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
return 0;
}
HB_EXPORT ULONG hb_xvsize( HB_VMHANDLE h )
ULONG hb_xvsize( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -127,20 +127,20 @@ HB_EXPORT ULONG hb_xvsize( HB_VMHANDLE h )
/* Heap */
HB_EXPORT HB_VMHANDLE hb_xvheapnew( ULONG nSize )
HB_VMHANDLE hb_xvheapnew( ULONG nSize )
{
/* TODO */
HB_SYMBOL_UNUSED( nSize );
return 0;
}
HB_EXPORT void hb_xvheapdestroy( HB_VMHANDLE h )
void hb_xvheapdestroy( HB_VMHANDLE h )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
}
HB_EXPORT HB_VMHANDLE hb_xvheapresize( HB_VMHANDLE h, ULONG nSize )
HB_VMHANDLE hb_xvheapresize( HB_VMHANDLE h, ULONG nSize )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -148,7 +148,7 @@ HB_EXPORT HB_VMHANDLE hb_xvheapresize( HB_VMHANDLE h, ULONG nSize )
return 0;
}
HB_EXPORT ULONG hb_xvheapalloc( HB_VMHANDLE h, ULONG nSize )
ULONG hb_xvheapalloc( HB_VMHANDLE h, ULONG nSize )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -156,14 +156,14 @@ HB_EXPORT ULONG hb_xvheapalloc( HB_VMHANDLE h, ULONG nSize )
return 0;
}
HB_EXPORT void hb_xvheapfree( HB_VMHANDLE h, ULONG nOffset )
void hb_xvheapfree( HB_VMHANDLE h, ULONG nOffset )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
HB_SYMBOL_UNUSED( nOffset );
}
HB_EXPORT void * hb_xvheaplock( HB_VMHANDLE h, ULONG nOffset )
void * hb_xvheaplock( HB_VMHANDLE h, ULONG nOffset )
{
/* TODO */
HB_SYMBOL_UNUSED( h );
@@ -171,7 +171,7 @@ HB_EXPORT void * hb_xvheaplock( HB_VMHANDLE h, ULONG nOffset )
return NULL;
}
HB_EXPORT void hb_xvheapunlock( HB_VMHANDLE h, ULONG nOffset )
void hb_xvheapunlock( HB_VMHANDLE h, ULONG nOffset )
{
/* TODO */
HB_SYMBOL_UNUSED( h );