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

2008-10-19 09:34 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/filebuf.c
  * source/rtl/filesys.c
    ! Fixed -W4 warnings.

  * source/rtl/tclass.prg
  * source/rtl/tsymbol.prg
    ! Fixed mistakes in recent commit.
This commit is contained in:
Viktor Szakats
2008-10-19 07:35:06 +00:00
parent 8a905fadd5
commit 10ddbcf1f4
5 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-19 09:34 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/filebuf.c
* source/rtl/filesys.c
! Fixed -W4 warnings.
* source/rtl/tclass.prg
* source/rtl/tsymbol.prg
! Fixed mistakes in recent commit.
2008-10-19 09:16 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* common.mak
* contrib/mtpl_b32.mak

4
harbour/source/rtl/filebuf.c
View File

@@ -432,7 +432,7 @@ BOOL hb_fileLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET ulLen,
fResult = hb_fileUnlock( pFile, &fLockFS, ulStart, ulLen );
hb_threadLeaveCriticalSection( &s_fileMtx );
if( fLockFS )
hb_fsLockLarge( pFile->hFile, ulStart, ulLen, iType );
hb_fsLockLarge( pFile->hFile, ulStart, ulLen, ( USHORT ) iType );
}
else
{
@@ -441,7 +441,7 @@ BOOL hb_fileLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET ulLen,
hb_threadLeaveCriticalSection( &s_fileMtx );
if( fLockFS )
{
fResult = hb_fsLockLarge( pFile->hFile, ulStart, ulLen, iType );
fResult = hb_fsLockLarge( pFile->hFile, ulStart, ulLen, ( USHORT ) iType );
if( !fResult )
{
hb_threadEnterCriticalSection( &s_fileMtx );

2
harbour/source/rtl/filesys.c
View File

@@ -3097,7 +3097,7 @@ HB_EXPORT BYTE * hb_fsNameConv( BYTE * szFileName, BOOL * pfFree )
}
fTrim = hb_setGetTrimFileName();
cDirSep = hb_setGetDirSeparator();
cDirSep = ( char ) hb_setGetDirSeparator();
iFileCase = hb_setGetFileCase();
iDirCase = hb_setGetDirCase();

4
harbour/source/rtl/tclass.prg
View File

@@ -175,7 +175,7 @@ STATIC FUNCTION New( cClassName, xSuper, sClassFunc, lModuleFriendly )
IF Empty( xSuper )
::asSuper := {}
ELSEIF ISCHARACTER( xSuper )
::asSuper := { __DynsNToSym( xSuper ) }
::asSuper := { __DynsN2Sym( xSuper ) }
ELSEIF hb_isSymbol( xSuper )
::asSuper := { xSuper }
ELSEIF ISARRAY( xSuper )
@@ -184,7 +184,7 @@ STATIC FUNCTION New( cClassName, xSuper, sClassFunc, lModuleFriendly )
FOR i := 1 TO nSuper
IF !Empty( xSuper[ i ] )
IF ISCHARACTER( xSuper[ i ] )
AAdd( ::asSuper, __DynsNToSym( xSuper[ i ] ) )
AAdd( ::asSuper, __DynsN2Sym( xSuper[ i ] ) )
ELSEIF hb_isSymbol( xSuper[ i ] )
AAdd( ::asSuper, xSuper[ i ] )
ENDIF

2
harbour/source/rtl/tsymbol.prg
View File

@@ -68,7 +68,7 @@ CREATE CLASS Symbol
ENDCLASS
METHOD New( cSymName ) CLASS Symbol
::nSym := __DynSNToSym( cSymName )
::nSym := __DynSN2Sym( cSymName )
RETURN Self
METHOD name() CLASS Symbol