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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-09-12 21:25:07 +00:00
parent 6bf1b29be7
commit 3048e60d57
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990912-17:11 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/memvars.c
* added a few casts
19990912-20:45 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/memvars.c

6
harbour/source/rtl/memvars.c
View File

@@ -1561,7 +1561,7 @@ HARBOUR HB___MVSAVE( void )
PHB_ITEM pItem = &s_globalTable[ pDynVar->hMemvar ].item;
memset( buffer, 0, HB_MEM_REC_LEN );
strcpy( buffer, pDynVar->pSymbol->szName );
strcpy( (char *)buffer, pDynVar->pSymbol->szName );
if( IS_STRING( pItem ) && ( hb_itemGetCLen( pItem ) + 1 ) <= SHRT_MAX )
{
@@ -1573,7 +1573,7 @@ HARBOUR HB___MVSAVE( void )
buffer[ 17 ] = HIBYTE( uiLength );
hb_fsWrite( fhnd, buffer, HB_MEM_REC_LEN );
hb_fsWrite( fhnd, hb_itemGetCPtr( pItem ), uiLength );
hb_fsWrite( fhnd, (BYTE *)hb_itemGetCPtr( pItem ), uiLength );
}
else if( IS_NUMERIC( pItem ) )
{
@@ -1690,7 +1690,7 @@ HARBOUR HB___MVRESTORE( void )
pbyString = ( BYTE * ) hb_xgrab( uiWidth );
if( hb_fsRead( fhnd, pbyString, uiWidth ) == uiWidth )
pItem = hb_itemPutCL( NULL, pbyString, uiWidth - 1 );
pItem = hb_itemPutCL( NULL, (char *)pbyString, uiWidth - 1 );
hb_xfree( pbyString );