2001-02-23 18:10 UTC+0300 Alex Shashkov <shashkov@ostu.ru>

* harbour/source/rtl/console.c
     ! Fixed bug STDOUT(..,"",..) on Watcom C 11.0

   * harbour/source/pp/ppcore.c
   * harbour/source/pp/pragma.c
     ! Fixed extern declaration for Watcom C 11.0
This commit is contained in:
Alex Shashkov
2001-02-24 15:08:27 +00:00
parent 49903bf1d7
commit d05b38d8d0
4 changed files with 25 additions and 1 deletions

View File

@@ -1,3 +1,11 @@
2001-02-24 18:10 UTC+0300 Alex Shashkov <shashkov@ostu.ru>
* harbour/source/rtl/console.c
! Fixed bug STDOUT(..,"",..) on Watcom C 11.0
* harbour/source/pp/ppcore.c
* harbour/source/pp/pragma.c
! Fixed extern declaration for Watcom C 11.0
2001-02-24 12:45 UTC+0300 Alex Shashkov <shashkov@ostu.ru>
* harbour/source/vm/dynsym.c
! Fixed

View File

@@ -177,6 +177,11 @@ char * hb_pp_STD_CH = NULL;
/* Ron Pinkas added 2000-11-21 */
static BOOL s_bArray = FALSE;
#if defined(__WATCOMC__)
extern BOOL hb_pp_bInline;
extern int hb_pp_LastOutLine;
#endif
/* Table with parse errors */
char * hb_pp_szErrors[] =
{
@@ -2761,7 +2766,9 @@ static void pp_rQuotes( char * expreal, char * sQuotes )
int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, char * sBuffer, int * lenBuffer, int * iBuffer )
{
#ifndef __WATCOMC__
extern BOOL hb_pp_bInline;
#endif
int readed = 0;
int State = 0;
char cha, cLast = '\0', symbLast = '\0';
@@ -2949,7 +2956,9 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
int hb_pp_WrStr( FILE * handl_o, char * buffer )
{
#ifndef __WATCOMC__
extern int hb_pp_LastOutLine;
#endif
int lens = strlen(buffer);
HB_TRACE(HB_TR_DEBUG, ("hb_pp_WrStr(%p, %s)", handl_o, buffer));

View File

@@ -50,6 +50,10 @@ static BOOL s_bTracePragma = FALSE;
/* Size of abreviated pragma commands */
#define PRAGMAS_LEN 8
#if defined(__WATCOMC__)
extern BOOL hb_pp_bInline;
#endif
/* TODO: Add support for:
RequestLib /R
*/
@@ -173,7 +177,9 @@ void hb_pp_ParsePragma( char * szLine )
{
char sBuffer[ HB_PP_STR_SIZE ], *pBuffer, sDirective[9] ;
int iSize;
#ifndef __WATCOMC__
extern BOOL hb_pp_bInline;
#endif
PINLINE pInline;
if( hb_comp_bPPO )

View File

@@ -166,7 +166,8 @@ static void hb_conOut( USHORT uiParam, hb_out_func_typedef * pOutFunc )
pszString = hb_itemString( hb_param( uiParam, HB_IT_ANY ), &ulLen, &bFreeReq );
pOutFunc( pszString, ulLen );
if ( ulLen )
pOutFunc( pszString, ulLen );
if( bFreeReq )
hb_xfree( pszString );