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

2002-02-04 13:12 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-02-04 10:03:08 +00:00
parent 2d28466dc7
commit af1de815a4
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* Fix for hb_dbfGoTo(), posted by Horacio Rold¡n
2002-02-04 16:45 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>
* source/rtl/Tget.prg
* source/rtl/Tgetlist.prg
* Minor modifications proposed by Walter Negro

4
harbour/source/vm/runner.c
View File

@@ -507,13 +507,13 @@ static ULONG hb_hrbFindSymbol( char * szName, PHB_DYNF pDynFunc, ULONG ulLoaded
static int hb_hrbFileReadHead( FILE * file, char * szFileName )
{
char szHead[] = { '\192','H','R','B' }, szBuf[4];
unsigned char szHead[] = { (unsigned char)192,'H','R','B' }, szBuf[4];
char cInt[ 2 ];
HB_TRACE(HB_TR_DEBUG, ("hb_hrbFileReadHead(%p)", file ));
hb_hrbFileRead( file, szFileName, szBuf, 1, 4 );
if( !strncmp( szHead,szBuf,4 ) )
if( strncmp( szHead,szBuf,4 ) )
{
hb_errRT_BASE_Ext1( EG_CORRUPTION, 9999, NULL, szFileName, 0, EF_CANDEFAULT, 1, hb_paramError( 1 ) );
return 0;