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

2004-07-26 10:50 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/compiler/cmdcheck.c
     ! Writing out of bound when using -x compiler switch fixed.
       (Thanks to Chen Kedem)

   * source/vm/cmdarg.c
     ! Tabs removed.
This commit is contained in:
Viktor Szakats
2004-07-26 08:53:31 +00:00
parent 0366162d36
commit 8b4793ecb3
3 changed files with 56 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-07-26 10:50 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/compiler/cmdcheck.c
! Writing out of bound when using -x compiler switch fixed.
(Thanks to Chen Kedem)
* source/vm/cmdarg.c
! Tabs removed.
2004-07-26 01:21 UTC+0100 Antonio Linares <alinares@fivetechsoft.com>
+ source/rtl/scalar.prg
* Harbour implementation of Class(y) Class ScalarObject

2
harbour/source/compiler/cmdcheck.c
View File

@@ -830,7 +830,7 @@ void hb_compChkEnvironVar( char * szSwitch )
sprintf( szPrefix, "%08lX_", PackDateTime() );
strncpy( hb_comp_szPrefix, szPrefix, 16 );
hb_comp_szPrefix[ 20 ] = '\0';
hb_comp_szPrefix[ 16 ] = '\0';
strcat( hb_comp_szPrefix, "_" );
free( szPrefix );

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

@@ -316,53 +316,55 @@ ULONG hb_cmdargProcessVM( int *pCancelKey, int *pCancelKeyEx )
if( hb_cmdargCheck( "BUILD" ) )
hb_verBuildInfo();
if( (cFlags=hb_cmdargString( "FLAGS" )) != NULL )
{
int i = 1;
while( cFlags[ i ] )
{
switch( cFlags[ i++ ] )
{
case 'c':
/* clear all flags - minimal set of features */
ulFlags = 0;
break;
if( (cFlags = hb_cmdargString( "FLAGS" )) != NULL )
{
int i = 1;
while( cFlags[ i ] )
{
switch( cFlags[ i++ ] )
{
case 'c':
/* clear all flags - minimal set of features */
ulFlags = 0;
break;
case 'h':
/* default Harbour mode */
ulFlags |= HB_VMFLAG_HARBOUR;
break;
case 'h':
/* default Harbour mode */
ulFlags |= HB_VMFLAG_HARBOUR;
break;
/*
case 'x':
ulFlags |= HB_VMFLAG_XBASE;
break;
case 'x':
ulFlags |= HB_VMFLAG_XBASE;
break;
case 'r':
ulFlags |= HB_VMFLAG_RT_MACRO;
break;
case 'r':
ulFlags |= HB_VMFLAG_RT_MACRO;
break;
*/
case 's':
ulFlags |= HB_VMFLAG_ARRSTR;
break;
}
}
hb_xfree( cFlags );
}
case 's':
ulFlags |= HB_VMFLAG_ARRSTR;
break;
}
}
hb_xfree( cFlags );
}
if( (cFlags=hb_cmdargString( "CANCEL" )) != NULL )
{
int iVal = atoi( cFlags );
if( iVal )
*pCancelKey = iVal;
hb_xfree( cFlags );
}
if( (cFlags=hb_cmdargString( "CANCELEX" )) != NULL )
{
int iVal = atoi( cFlags );
if( iVal )
*pCancelKeyEx = iVal;
hb_xfree( cFlags );
}
return ulFlags;
if( (cFlags=hb_cmdargString( "CANCEL" )) != NULL )
{
int iVal = atoi( cFlags );
if( iVal )
*pCancelKey = iVal;
hb_xfree( cFlags );
}
if( (cFlags=hb_cmdargString( "CANCELEX" )) != NULL )
{
int iVal = atoi( cFlags );
if( iVal )
*pCancelKeyEx = iVal;
hb_xfree( cFlags );
}
return ulFlags;
}