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

2007-10-27 17:50 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* utils/hbpp/pragma.c
   * source/rtl/binnum.c
   * source/rtl/direct.c
     ! Some VS2005 -O2 warnings.
       One TOFIX added at the same time, since DIRECTORY()
       has a problem returning file sizes greater than 2GB.
This commit is contained in:
Viktor Szakats
2007-10-27 15:54:12 +00:00
parent 0639e8b140
commit e400c484b5
4 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-10-27 17:50 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbpp/pragma.c
* source/rtl/binnum.c
* source/rtl/direct.c
! Some VS2005 -O2 warnings.
One TOFIX added at the same time, since DIRECTORY()
has a problem returning file sizes greater than 2GB.
2007-10-27 16:57 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* include/hbapifs.h
* source/rtl/fserror.c

9
harbour/source/rtl/binnum.c
View File

@@ -114,10 +114,10 @@ HB_FUNC( L2BIN )
{
long lValue = hb_parnl( 1 );
szString[ 0 ] = ( lValue & 0x000000FF );
szString[ 1 ] = ( lValue & 0x0000FF00 ) >> 8;
szString[ 2 ] = ( lValue & 0x00FF0000 ) >> 16;
szString[ 3 ] = ( lValue & 0xFF000000 ) >> 24;
szString[ 0 ] = ( char ) ( lValue & 0x000000FF );
szString[ 1 ] = ( char ) ( ( lValue & 0x0000FF00 ) >> 8 );
szString[ 2 ] = ( char ) ( ( lValue & 0x00FF0000 ) >> 16 );
szString[ 3 ] = ( char ) ( ( lValue & 0xFF000000 ) >> 24 );
}
else
{
@@ -129,4 +129,3 @@ HB_FUNC( L2BIN )
hb_retclen( szString, 4 );
}

3
harbour/source/rtl/direct.c
View File

@@ -157,7 +157,7 @@ HB_FUNC( DIRECTORY )
char buffer[ 32 ];
hb_arraySet( pSubarray, F_NAME, hb_itemPutC( pFilename, ffind->szName ) );
hb_arraySet( pSubarray, F_SIZE, hb_itemPutNL( pSize, ffind->size ) );
hb_arraySet( pSubarray, F_SIZE, hb_itemPutNL( pSize, ( LONG ) ffind->size ) ); /* TOFIX: Loss of digits. */
hb_arraySet( pSubarray, F_DATE, hb_itemPutDL( pDate, ffind->lDate ) );
hb_arraySet( pSubarray, F_TIME, hb_itemPutC( pTime, ffind->szTime ) );
hb_arraySet( pSubarray, F_ATTR, hb_itemPutC( pAttr, hb_fsAttrDecode( ffind->attr, buffer ) ) );
@@ -180,4 +180,3 @@ HB_FUNC( DIRECTORY )
hb_itemRelease( hb_itemReturn( pDir ) );
}

4
harbour/utils/hbpp/pragma.c
View File

@@ -342,11 +342,11 @@ BOOL hb_pp_ParsePragma( char * szLine )
int iOverflow;
int iMax;
iMax = hb_strValInt( szLine, &iOverflow );
iMax = ( int ) hb_strValInt( szLine, &iOverflow );
if( iOverflow || iMax < 1 )
hb_pp_MaxTranslateCycles = 1024;
else
hb_pp_MaxTranslateCycles = (unsigned int)iMax;
hb_pp_MaxTranslateCycles = ( unsigned int ) iMax;
DebugPragma( szLine, hb_pp_MaxTranslateCycles, FALSE );
}
}