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

See ChangeLog entry 2000-04-26 20:00 GMT-4 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-04-27 00:41:41 +00:00
parent b3281f0563
commit 23e1b2174a
4 changed files with 26 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/ChangeLog
View File

@@ -1,3 +1,21 @@
2000-04-26 20:40 GMT-4 David G. Holm <dholm@jsd-llc.com>
* include/hbcomp.h
! Change hb_comp_iGenCOutput from BOOL to int, because it can have
one of three values, not just TRUE or FALSE.
* source/compiler/harbour.c
! Change hb_comp_iGenCOutput from BOOL to int, because it can have
one of three values, not just TRUE or FALSE.
! Changed 'char * szSize [10];' to 'char szSize [10];' in hb_xgrab()
and hb_xrealloc().
* source/compiler/hbpcode
! Added parentheses around & expressions in comparisons for the
HB_P_PUSHSYMNEAR case due to operator precedence confusion
resulting in compiler warnings.
20000426-12:30 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* harbour/include/hbcomp.h

2
harbour/include/hbcomp.h
View File

@@ -358,7 +358,7 @@ extern BOOL hb_comp_bAutoMemvarAssume;
extern BOOL hb_comp_bForceMemvars;
extern BOOL hb_comp_bDebugInfo;
extern char hb_comp_szPrefix[ 20 ];
extern BOOL hb_comp_iGenCOutput;
extern int hb_comp_iGenCOutput;
extern int hb_comp_iExitLevel;
extern int hb_comp_iFunctionCnt;
extern char hb_comp_cVarType;

6
harbour/source/compiler/harbour.c
View File

@@ -99,7 +99,7 @@ BOOL hb_comp_bAutoMemvarAssume = FALSE; /* holds if undeclared va
BOOL hb_comp_bForceMemvars = FALSE; /* holds if memvars are assumed when accesing undeclared variable (-v)*/
BOOL hb_comp_bDebugInfo = FALSE; /* holds if generate debugger required info */
char hb_comp_szPrefix[ 20 ] = { '\0' }; /* holds the prefix added to the generated symbol init function name (in C output currently) */
BOOL hb_comp_iGenCOutput = HB_COMPGENC_VERBOSE; /* C code generation should be verbose (use comments) or not */
int hb_comp_iGenCOutput = HB_COMPGENC_VERBOSE; /* C code generation should be verbose (use comments) or not */
int hb_comp_iExitLevel = HB_EXITLEVEL_DEFAULT; /* holds if there was any warning during the compilation process */
PATHNAMES * hb_comp_pIncludePath = NULL;
int hb_comp_iFunctionCnt;
@@ -339,7 +339,7 @@ int isatty( int handle )
void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on failure */
{
void * pMem = malloc( ulSize );
char * szSize [10];
char szSize [10];
sprintf( szSize, "%li", ulSize );
@@ -352,7 +352,7 @@ void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on fail
void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
{
void * pResult = realloc( pMem, ulSize );
char * szSize [10];
char szSize [10];
sprintf( szSize, "%li", ulSize );

8
harbour/source/compiler/hbpcode.c
View File

@@ -442,10 +442,10 @@ void hb_compStrongType( int iSize )
if ( pSym )
{
/* TODO: Check this!!! */
if ( pSym->cScope & HB_FS_PUBLIC == HB_FS_PUBLIC ||
pSym->cScope & HB_FS_STATIC == HB_FS_STATIC ||
pSym->cScope & HB_FS_INIT == HB_FS_INIT ||
pSym->cScope & HB_FS_EXIT == HB_FS_EXIT )
if ( ( pSym->cScope & HB_FS_PUBLIC ) == HB_FS_PUBLIC ||
( pSym->cScope & HB_FS_STATIC ) == HB_FS_STATIC ||
( pSym->cScope & HB_FS_INIT ) == HB_FS_INIT ||
( pSym->cScope & HB_FS_EXIT ) == HB_FS_EXIT )
/* Storing a Book Mark of the last pushed symbol so we know how many bytes to pop when encountering function call. */
pFunc->pFunctionCalls[ pFunc->iFunctionIndex++ ] = pFunc->iStackIndex;