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

2012-04-26 16:26 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* utils/hbmk2/hbmk2.prg
    * LEN() -> HB_BLEN() where needed. (some for the sake 
      of clean code, one as an actual fix)
This commit is contained in:
Viktor Szakats
2012-04-26 14:27:09 +00:00
parent 8c899eb85a
commit ae76f51c41
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-26 16:26 UTC+0200 Viktor Szakats (harbour syenar.net)
* utils/hbmk2/hbmk2.prg
* LEN() -> HB_BLEN() where needed. (some for the sake
of clean code, one as an actual fix)
2012-04-26 16:13 UTC+0200 Viktor Szakats (harbour syenar.net)
* utils/hbmk2/hbmk2.prg
+ hbmk2 code made compatible with UTF8 HVM CP

8
harbour/utils/hbmk2/hbmk2.prg
View File

@@ -10617,7 +10617,7 @@ STATIC FUNCTION rtlnk_read( cFileName, aPrevFiles )
IF ( hFile := FOpen( cFileName ) ) != -1
cFileBody := Space( FSeek( hFile, 0, FS_END ) )
FSeek( hFile, 0, FS_SET )
IF FRead( hFile, @cFileBody, Len( cFileBody ) ) != Len( cFileBody )
IF FRead( hFile, @cFileBody, hb_BLen( cFileBody ) ) != hb_BLen( cFileBody )
cFileBody := NIL
ENDIF
FClose( hFile )
@@ -11005,8 +11005,8 @@ STATIC FUNCTION IsCOFFLib( cFileName )
LOCAL cBuffer
IF fhnd != F_ERROR
cBuffer := Space( Len( _COFF_LIB_SIGNATURE ) )
FRead( fhnd, @cBuffer, Len( cBuffer ) )
cBuffer := Space( hb_BLen( _COFF_LIB_SIGNATURE ) )
FRead( fhnd, @cBuffer, hb_BLen( cBuffer ) )
FClose( fhnd )
IF cBuffer == _COFF_LIB_SIGNATURE
RETURN .T.
@@ -11023,7 +11023,7 @@ STATIC FUNCTION IsOMFLib( cFileName )
IF fhnd != F_ERROR
cBuffer := Space( hb_BLen( _OMF_LIB_SIGNATURE ) )
FRead( fhnd, @cBuffer, Len( cBuffer ) )
FRead( fhnd, @cBuffer, hb_BLen( cBuffer ) )
FClose( fhnd )
IF cBuffer == _OMF_LIB_SIGNATURE
RETURN .T.