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

2010-07-30 16:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* utils/hbmk2/hbmk2.prg
    ! Fixed RTE when using post-process command on systems without
      implib functionality. Recent regression.
    % Fixed bad performance in default -head=partial mode, which made
      it slower than -head=full. Now they are on par, so maybe -head=full
      should be made the default and partial mode deleted.
    ; Thanks to Przemek for bug reports.

  * include/hbset.h
  * include/hbgtcore.h
  * include/hbapi.h
    + Added some HB_EXPORT flags.
This commit is contained in:
Viktor Szakats
2010-07-30 14:10:16 +00:00
parent dd31118326
commit a64a5ff52f
5 changed files with 31 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/ChangeLog
View File

@@ -16,6 +16,20 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-07-30 16:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbmk2/hbmk2.prg
! Fixed RTE when using post-process command on systems without
implib functionality. Recent regression.
% Fixed bad performance in default -head=partial mode, which made
it slower than -head=full. Now they are on par, so maybe -head=full
should be made the default and partial mode deleted.
; Thanks to Przemek for bug reports.
* include/hbset.h
* include/hbgtcore.h
* include/hbapi.h
+ Added some HB_EXPORT flags.
2010-07-30 14:26 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/rdd/usrrdd/usrrdd.c
! Fixed to prev since new warnings appeared after the change.

14
harbour/include/hbapi.h
View File

@@ -1081,8 +1081,8 @@ extern char * hb_compEncodeString( int iMethod, const char * szText, HB_SI
extern char * hb_compDecodeString( int iMethod, const char * szText, HB_SIZE * pnLen );
/* misc */
extern char * hb_procname( int iLevel, char * szName, HB_BOOL bskipBlock ); /* retrieve a procedure name into a buffer */
extern HB_BOOL hb_procinfo( int iLevel, char * szName, HB_USHORT * puiLine, char * szFile );
extern HB_EXPORT char * hb_procname( int iLevel, char * szName, HB_BOOL bskipBlock ); /* retrieve a procedure name into a buffer */
extern HB_EXPORT HB_BOOL hb_procinfo( int iLevel, char * szName, HB_USHORT * puiLine, char * szFile );
/* macro compiler */
#if defined( HB_MACRO_SUPPORT )
@@ -1166,12 +1166,12 @@ extern HB_EXPORT const char * hb_osEncodeCP( const char * szName, char ** pszFre
extern HB_EXPORT const char * hb_osDecodeCP( const char * szName, char ** pszFree, HB_SIZE * pnSize ); /* Convert a string received from a system call, to Harbour codepage. */
/* environment variables access */
extern HB_BOOL hb_getenv_buffer( const char * szName, char * szBuffer, int nSize );
extern HB_EXPORT HB_BOOL hb_getenv_buffer( const char * szName, char * szBuffer, int nSize );
/* WARNING: This returned pointer must be freed if not NULL using hb_xfree( ptr ); */
extern char * hb_getenv( const char * name );
extern HB_BOOL hb_setenv( const char * szName, const char * szValue ); /* set or delete (szValue==NULL) environment variable */
extern char * hb_netname( void );
extern char * hb_username( void );
extern HB_EXPORT char * hb_getenv( const char * name );
extern HB_EXPORT HB_BOOL hb_setenv( const char * szName, const char * szValue ); /* set or delete (szValue==NULL) environment variable */
extern HB_EXPORT char * hb_netname( void );
extern HB_EXPORT char * hb_username( void );
/* Translation related things */

4
harbour/include/hbgtcore.h
View File

@@ -341,8 +341,8 @@ typedef struct _HB_GT_BASE
} HB_GT_BASE, * PHB_GT_BASE, * PHB_GT;
extern PHB_GT hb_gt_Base( void );
extern void hb_gt_BaseFree( PHB_GT pGT );
extern HB_EXPORT PHB_GT hb_gt_Base( void );
extern HB_EXPORT void hb_gt_BaseFree( PHB_GT pGT );
extern PHB_GT hb_gt_ItemBase( PHB_ITEM pItemGT );
extern void hb_gt_gcMark( void );

6
harbour/include/hbset.h
View File

@@ -251,9 +251,9 @@ typedef enum
} HB_set_listener_enum;
typedef void HB_SET_LISTENER_CALLBACK( HB_set_enum, HB_set_listener_enum );
extern int hb_setListenerAdd( HB_SET_LISTENER_CALLBACK * );
extern void hb_setListenerNotify( HB_set_enum, HB_set_listener_enum );
extern int hb_setListenerRemove( int );
extern HB_EXPORT int hb_setListenerAdd( HB_SET_LISTENER_CALLBACK * );
extern HB_EXPORT void hb_setListenerNotify( HB_set_enum, HB_set_listener_enum );
extern HB_EXPORT int hb_setListenerRemove( int );
extern HB_EXPORT HB_BOOL hb_setGetL( HB_set_enum set_specifier );
extern HB_EXPORT const char * hb_setGetCPtr( HB_set_enum set_specifier );

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

@@ -5829,7 +5829,9 @@ FUNCTION hbmk2( aArgs, nArgTarget, /* @ */ lPause, nLevel )
IF ! Empty( cBin_Post )
cOpt_Post := StrTran( cOpt_Post, "{OB}", FNameEscape( hbmk[ _HBMK_cPROGNAME ], hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) )
cOpt_Post := StrTran( cOpt_Post, "{OI}", FNameEscape( l_cIMPLIBNAME, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) )
IF l_cIMPLIBNAME != NIL
cOpt_Post := StrTran( cOpt_Post, "{OI}", FNameEscape( l_cIMPLIBNAME, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) )
ENDIF
cOpt_Post := AllTrim( cOpt_Post )
cCommand := cBin_Post + " " + cOpt_Post
@@ -6557,7 +6559,8 @@ STATIC FUNCTION FindNewerHeaders( hbmk, cFileName, cParentDir, lSystemHeader, tT
IF ( fhnd := FOpen( cFileName, FO_READ + FO_SHARED ) ) == F_ERROR
RETURN .F.
ENDIF
cFile := Space( 16384 )
cFile := Space( Min( 16384, FSeek( fhnd, 0, FS_END ) ) )
FSeek( fhnd, 0, FS_SET )
FRead( fhnd, @cFile, Len( cFile ) )
FClose( fhnd )
ENDIF