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

ChangeLog 20000427-20:40 GMT+1

Browse Source
This commit is contained in:
Ryszard Glab
2000-04-27 18:34:18 +00:00
parent 1a0c1f1b2c
commit 638f750251
2 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
20000427-20:40 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.c
* changed hb_xgrab/hb_xrealloc to use sprintf in case
unsuccessfull allocation only
20000426 23:30 Luiz Rafael Culik <culik@sl.conex.net>
!ChangeLog
*Renamed ChangeLog to ChangeLog.007 and started a new one

19
harbour/source/compiler/harbour.c
View File

@@ -339,12 +339,14 @@ int isatty( int handle )
void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on failure */
{
void * pMem = malloc( ulSize );
char szSize [10];
sprintf( szSize, "%li", ulSize );
if( ! pMem )
{
char szSize[ 32 ];
sprintf( szSize, "%li", ulSize );
hb_compGenError( hb_comp_szErrors, 'F', HB_COMP_ERR_MEMALLOC, szSize, NULL );
}
return pMem;
}
@@ -352,13 +354,14 @@ void * hb_xgrab( ULONG ulSize ) /* allocates fixed memory, exits on fail
void * hb_xrealloc( void * pMem, ULONG ulSize ) /* reallocates memory */
{
void * pResult = realloc( pMem, ulSize );
char szSize [10];
sprintf( szSize, "%li", ulSize );
if( ! pResult )
hb_compGenError( hb_comp_szErrors, 'F', HB_COMP_ERR_MEMREALLOC, szSize, NULL );
{
char szSize[ 32 ];
sprintf( szSize, "%li", ulSize );
hb_compGenError( hb_comp_szErrors, 'F', HB_COMP_ERR_MEMREALLOC, szSize, NULL );
}
return pResult;
}