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

2008-11-03 00:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/thread.c
    + added temporary workaround for non GCC OS2 ST builds

  * harbour/source/rtl/hbmd5.c
    * casting cleanup
This commit is contained in:
Przemyslaw Czerpak
2008-11-02 23:55:26 +00:00
parent 3394d890da
commit b89516b58d
3 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-11-03 00:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/thread.c
+ added temporary workaround for non GCC OS2 ST builds
* harbour/source/rtl/hbmd5.c
* casting cleanup
2008-11-02 23:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* include/hbapicdp.h
* common.mak

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

@@ -325,7 +325,7 @@ HB_EXPORT void hb_md5file( HB_FHANDLE hFile, BYTE * ucDigest )
UCHAR buf[ 128 ], * readbuf = ( UCHAR * ) hb_xgrab( MAX_FBUF );
hb_md5accinit( md5.accum );
n = hb_fsReadLarge( hFile, readbuf, MAX_FBUF );
n = hb_fsReadLarge( hFile, ( BYTE * ) readbuf, MAX_FBUF );
flen += n;
while( n == MAX_FBUF )
{
@@ -334,7 +334,7 @@ HB_EXPORT void hb_md5file( HB_FHANDLE hFile, BYTE * ucDigest )
memcpy( md5.buf, readbuf + ( i << 6 ), 64 );
hb_md5go( &md5 );
}
n = hb_fsReadLarge( hFile, readbuf, MAX_FBUF );
n = hb_fsReadLarge( hFile, ( BYTE * ) readbuf, MAX_FBUF );
flen += n;
}
hb_fsClose( hFile );

6
harbour/source/vm/thread.c
View File

@@ -74,6 +74,12 @@
# include <sys/time.h>
#endif
/* temporary workaround for non GCC ST builds */
#if !defined( HB_MT_VM ) && defined( HB_OS_OS2 ) && !defined( __GNUC__ )
# define _gettid() 0
#endif
static volatile BOOL s_fThreadInit = FALSE;
static PHB_ITEM s_pOnceMutex = NULL;