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

2009-11-18 20:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/src/vm/strapi.c
    ! fixed return value in hb_itemCopyStr()

  * harbour/contrib/hbct/files.c
  * harbour/contrib/hbct/disk.c
    ! fixed to work with HB_ERRCODE declared as unsigned int
This commit is contained in:
Przemyslaw Czerpak
2009-11-18 19:16:08 +00:00
parent a0ba3510a8
commit a5d2777f5c
4 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -17,6 +17,14 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-18 20:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/strapi.c
! fixed return value in hb_itemCopyStr()
* harbour/contrib/hbct/files.c
* harbour/contrib/hbct/disk.c
! fixed to work with HB_ERRCODE declared as unsigned int
2009-11-18 18:20 UTC+0100 Istvan Bisz (istvan.bisz/at/t-online.hu)
* harbour/contrib/hbqt/hbqt_destruct.cpp
* harbour/contrib/hbqt/hbqt.ch

2
harbour/contrib/hbct/disk.c
View File

@@ -92,7 +92,7 @@ HB_FUNC( DIRMAKE )
if( hb_fsMkDir( pFileName ) )
hb_retni( 0 );
else
hb_retni( -hb_fsOsError() );
hb_retnint( - ( HB_LONG ) hb_fsOsError() );
}
HB_FUNC( DIRNAME )

6
harbour/contrib/hbct/files.c
View File

@@ -306,8 +306,8 @@ HB_FUNC( FILEDELETE )
HB_FUNC( FILEMOVE )
{
hb_retni( hb_fsRename( hb_parcx( 1 ),
hb_parcx( 2 ) ) ? 0 : -hb_fsOsError() );
hb_retnint( hb_fsRename( hb_parcx( 1 ),
hb_parcx( 2 ) ) ? 0 : - ( HB_LONG ) hb_fsOsError() );
}
@@ -319,7 +319,7 @@ HB_FUNC( RENAMEFILE )
HB_FUNC( DELETEFILE )
{
hb_retni( hb_fsDelete( hb_parcx( 1 ) ) ? 0 : -hb_fsOsError() );
hb_retnint( hb_fsDelete( hb_parcx( 1 ) ) ? 0 : - ( HB_LONG ) hb_fsOsError() );
}

8
harbour/src/vm/strapi.c
View File

@@ -190,10 +190,10 @@ ULONG hb_itemCopyStr( PHB_ITEM pItem, void * cdp, char * pStrBuffer, ULONG ulSiz
if( HB_IS_STRING( pItem ) )
{
ulSize = hb_cdpTransTo( pItem->item.asString.value,
pItem->item.asString.length,
pStrBuffer, ulSize,
hb_vmCDP(), ( PHB_CODEPAGE ) cdp );
return hb_cdpTransTo( pItem->item.asString.value,
pItem->item.asString.length,
pStrBuffer, ulSize,
hb_vmCDP(), ( PHB_CODEPAGE ) cdp );
}
return 0;