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

2010-06-23 11:59 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/hbdefs.h
    + Added new abstract type: HB_RECNO.
      To replace HB_ULONG usage where it means record number.

  * src/vm/hvm.c
  * src/vm/cmdarg.c
  * include/hbapi.h
  * include/hbvm.h
    * HB_ULONG -> HB_U32 for VM flags.
This commit is contained in:
Viktor Szakats
2010-06-23 10:00:00 +00:00
parent 273878fb30
commit 89ef883626
6 changed files with 28 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -16,6 +16,17 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-06-23 11:59 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* include/hbdefs.h
+ Added new abstract type: HB_RECNO.
To replace HB_ULONG usage where it means record number.
* src/vm/hvm.c
* src/vm/cmdarg.c
* include/hbapi.h
* include/hbvm.h
* HB_ULONG -> HB_U32 for VM flags.
2010-06-22 19:30 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/THbQtUI.prg
+ Started: .ui => .uic ( auto ) => .prg.
@@ -26,7 +37,7 @@
* contrib/hbide/ideedit.prg
* contrib/hbide/idefindreplace.prg
% Fixed: slowness caused in selection process when many
% Fixed: slowness caused in selection process when many
lines were being selected. Now there is no overhead.
Thanks to Itamar for reporting.

2
harbour/include/hbapi.h
View File

@@ -1024,7 +1024,7 @@ extern HB_BOOL hb_cmdargIsInternal( const char * szArg, int * piLen ); /*
extern HB_BOOL hb_cmdargCheck( const char * pszName ); /* Check if a given internal switch (like //INFO) was set */
extern char * hb_cmdargString( const char * pszName ); /* Returns the string value of an internal switch (like //TEMPPATH:"C:\") */
extern int hb_cmdargNum( const char * pszName ); /* Returns the numeric value of an internal switch (like //F:90) */
extern HB_ULONG hb_cmdargProcessVM( int*, int* ); /* Check for command line internal arguments */
extern HB_U32 hb_cmdargProcessVM( int * pCancelKey, int * pCancelKeyEx ); /* Check for command line internal arguments */
#if defined( HB_OS_WIN )
extern HB_EXPORT HB_BOOL hb_winmainArgGet( void * phInstance, void * phPrevInstance, int * piCmdShow ); /* Retrieve WinMain() parameters */
#endif

3
harbour/include/hbdefs.h
View File

@@ -255,6 +255,9 @@ typedef unsigned int HB_UINT;
typedef HB_LONG HB_ISIZ; /* TODO: Change to HB_SIZE, after HB_SIZE has been converted to signed type. TEMPORARY type. */
#endif
/* Harbour abstract types */
typedef HB_RECNO HB_ULONG;
/* Convenience */
typedef HB_UCHAR HB_BYTE;

6
harbour/include/hbvm.h
View File

@@ -192,9 +192,9 @@ extern HB_EXPORT void * hb_vmThreadState( void );
/* various flags for supported features */
#define HB_VMFLAG_HARBOUR 1 /* enable Harbour extension */
#define HB_VMFLAG_ARRSTR 16 /* support for string as array of bytes -ks */
extern HB_EXPORT HB_ULONG hb_vmFlagEnabled( HB_ULONG flags );
extern HB_EXPORT void hb_vmFlagSet( HB_ULONG flags );
extern HB_EXPORT void hb_vmFlagClear( HB_ULONG flags );
extern HB_EXPORT HB_U32 hb_vmFlagEnabled( HB_U32 flags );
extern HB_EXPORT void hb_vmFlagSet( HB_U32 flags );
extern HB_EXPORT void hb_vmFlagClear( HB_U32 flags );
HB_EXTERN_END

4
harbour/src/vm/cmdarg.c
View File

@@ -483,10 +483,10 @@ HB_FUNC( HB_CMDLINE )
}
/* Check for command line internal arguments */
HB_ULONG hb_cmdargProcessVM( int *pCancelKey, int *pCancelKeyEx )
HB_U32 hb_cmdargProcessVM( int * pCancelKey, int * pCancelKeyEx )
{
char * cFlags;
HB_ULONG ulFlags = HB_VMFLAG_HARBOUR;
HB_U32 ulFlags = HB_VMFLAG_HARBOUR;
if( hb_cmdargCheck( "INFO" ) )
{

14
harbour/src/vm/hvm.c
View File

@@ -276,14 +276,14 @@ static void * s_main_thread = NULL;
/* Various compatibility flags
*/
static HB_ULONG s_VMFlags = HB_VMFLAG_HARBOUR;
static HB_U32 s_VMFlags = HB_VMFLAG_HARBOUR;
#undef hb_vmFlagEnabled
#define hb_vmFlagEnabled(flag) (s_VMFlags & (flag))
#define hb_vmFlagEnabled( flag ) ( s_VMFlags & ( flag ) )
/* Keycodes to stop virtual machine
*/
static int s_VMCancelKey = K_ALT_C;
static int s_VMCancelKeyEx = HB_K_ALT_C;
static int s_VMCancelKey = K_ALT_C;
static int s_VMCancelKeyEx = HB_K_ALT_C;
/* SEQUENCE envelope items position from stack top active
*/
@@ -11464,17 +11464,17 @@ void hb_xvmWithObjectMessage( PHB_SYMB pSymbol )
#undef hb_vmFlagEnabled
HB_ULONG hb_vmFlagEnabled( HB_ULONG flags )
HB_U32 hb_vmFlagEnabled( HB_U32 flags )
{
return s_VMFlags & flags;
}
void hb_vmFlagSet( HB_ULONG flags )
void hb_vmFlagSet( HB_U32 flags )
{
s_VMFlags |= flags;
}
void hb_vmFlagClear( HB_ULONG flags )
void hb_vmFlagClear( HB_U32 flags )
{
s_VMFlags &= ~flags;
}