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

2005-10-24 12:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbtypes.h
  * harbour/source/vm/maindllp.c
    ! fixed some declaration I missed in previous commit
This commit is contained in:
Przemyslaw Czerpak
2005-10-24 10:47:32 +00:00
parent 9ad10dc666
commit 5aa228910c
3 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
harbour/ChangeLog
View File

@@ -8,8 +8,12 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2005-10-24 12:08 UTC+0100 Viktor Szakats (viktor.szakats/syenar.hu)
2005-10-24 12:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbtypes.h
* harbour/source/vm/maindllp.c
! fixed some declaration I missed in previous commit
2005-10-24 12:08 UTC+0100 Viktor Szakats (viktor.szakats/syenar.hu)
* hrbdll.bc
* hrbdll.vc
* makefile.bc
@@ -55,22 +59,22 @@
* harbour/source/lang/msgplwin.c
* harbour/source/rdd/Makefile
* harbour/source/rdd/dbcmd.c
- harbour/source/rdd/dbf0.prg
- harbour/source/rdd/dbf0.prg
* harbour/source/rdd/dbf1.c
- harbour/source/rdd/delim0.prg
- harbour/source/rdd/delim0.prg
* harbour/source/rdd/delim1.c
* harbour/source/rdd/rddsys.prg
- harbour/source/rdd/sdf0.prg
- harbour/source/rdd/sdf0.prg
* harbour/source/rdd/sdf1.c
* harbour/source/rdd/dbfcdx/Makefile
- harbour/source/rdd/dbfcdx/dbfcdx0.prg
- harbour/source/rdd/dbfcdx/dbfcdx0.prg
* harbour/source/rdd/dbfcdx/dbfcdx1.c
- harbour/source/rdd/dbfcdx/sixcdx0.prg
- harbour/source/rdd/dbfcdx/sixcdx0.prg
* harbour/source/rdd/dbfdbt/Makefile
- harbour/source/rdd/dbfdbt/dbfdbt0.prg
- harbour/source/rdd/dbfdbt/dbfdbt0.prg
* harbour/source/rdd/dbfdbt/dbfdbt1.c
* harbour/source/rdd/dbffpt/Makefile
- harbour/source/rdd/dbffpt/dbffpt0.prg
- harbour/source/rdd/dbffpt/dbffpt0.prg
* harbour/source/rdd/dbffpt/dbffpt1.c
* harbour/source/rdd/dbfntx/Makefile
* harbour/source/rdd/dbfntx/dbfntx0.prg

15
harbour/include/hbtypes.h
View File

@@ -68,14 +68,14 @@ typedef void ( * VM_DLL_EXECUTE ) ( const BYTE * pCode, PHB_SYMB pSymbols );
typedef BOOL ( * EXT_IS_ARRAY ) ( int iParam );
typedef char * ( * EXT_PARC1 ) ( int iParam );
typedef char * ( * EXT_PARC2 ) ( int iParam, ULONG ulArrayIndex );
typedef PHB_ITEM ( * HB_PARAM)( int iParam, int iMask );
typedef PHB_ITEM ( * HB_PARAM)( int iParam, LONG iMask );
typedef PHB_ITEM ( * HB_PARAMERROR)( int iParam );
typedef int ( * HB_PCOUNTS )( void );
typedef void ( * HB_RET)( void );
typedef void ( * HB_RETC)( char * szText );
typedef void ( * HB_RETCLEN)( char * szText, ULONG ulLen );
typedef void ( * HB_RETDS)( char * szDate );
typedef void ( * HB_RETD)( long lYear, long lMonth, long lDay );
typedef void ( * HB_RETC)( const char * szText );
typedef void ( * HB_RETCLEN)( const char * szText, ULONG ulLen );
typedef void ( * HB_RETDS)( const char * szDate );
typedef void ( * HB_RETD)( int iYear, int iMonth, int iDay );
typedef void ( * HB_RETDL)( long lJulian );
typedef void ( * HB_RETL)( int iTrueFalse );
typedef void ( * HB_RETND)( double dNumber );
@@ -87,12 +87,11 @@ typedef void ( * HB_RETNILEN)( int iNumber, int iWidth );
typedef void ( * HB_RETNLLEN)( long lNumber, int iWidth );
typedef void ( * HB_RETA)( ULONG ulLen );
typedef ULONG ( * HB_PARINFA)( int iParamNum, ULONG uiArrayIndex );
typedef int ( * HB_PARINFO)( int iParam );
typedef ULONG ( * HB_PARINFO)( int iParam );
typedef ULONG ( * HB_PARCLEN)( int iParam );
typedef ULONG ( * HB_PARCSIZ)( int iParam );
typedef char * ( * HB_PARDS)( int iParam );
typedef char * ( * HB_PARDSBUFF)( char * szDate,int iParam);
typedef int ( * HB_PARINFO)( int iParam );
typedef int ( * HB_PARL)( int iParam );
typedef double ( * HB_PARND)( int iParam );
typedef int ( * HB_PARNI)( int iParam );
@@ -138,4 +137,4 @@ typedef void ( * HB_XFREE)( void * pMem ); /* frees memory
typedef void * ( * HB_XREALLOC)( void * pMem, ULONG ulSize ); /* reallocates memory */
typedef ULONG ( * HB_XSIZE)( void * pMem ); /* returns the size of an allocated memory block */
#endif /* HB_TYPES_H_ */
#endif /* HB_TYPES_H_ */

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

@@ -164,21 +164,21 @@ int hb_pcount( void ) /* returns the number of suplied parameters */
return iReturn;
}
void hb_retc( char * szText ) /* returns a string */
void hb_retc( const char * szText ) /* returns a string */
{
FARPROC pRetc=GetProcAddress(GetModuleHandle( NULL ), "_hb_retc" );
if (pRetc)
((HB_RETC)pRetc)(szText);
}
void hb_retclen( char * szText, ULONG ulLen ) /* returns a string with a specific length */
void hb_retclen( const char * szText, ULONG ulLen ) /* returns a string with a specific length */
{
FARPROC pRetclen=GetProcAddress(GetModuleHandle( NULL ), "_hb_retclen" );
if (pRetclen)
((HB_RETCLEN)pRetclen)(szText,ulLen);
}
void hb_retds( char * szDate ) /* returns a date, must use yyyymmdd format */
void hb_retds( const char * szDate ) /* returns a date, must use yyyymmdd format */
{
FARPROC pRetds=GetProcAddress(GetModuleHandle( NULL ), "_hb_retds" );
if (pRetds)
@@ -274,13 +274,13 @@ ULONG hb_parinfa( int iParamNum, ULONG uiArrayIndex ) /* retrieve length or elem
return ulReturn;
}
int hb_parinfo( int iParam ) /* Determine the param count or data type */
ULONG hb_parinfo( int iParam ) /* Determine the param count or data type */
{
int iReturn;
ULONG ulReturn;
FARPROC pParinfo=GetProcAddress( GetModuleHandle( NULL ), "_hb_parinfo" );
if (pParinfo)
iReturn=((HB_PARINFO)pParinfo)(iParam);
return iReturn;
ulReturn=((HB_PARINFO)pParinfo)(iParam);
return ulReturn;
}
ULONG hb_parclen( int iParam, ... ) /* retrieve a string parameter length */