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

2011-01-27 20:46 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/examples/pp/hbppdef.h
  * harbour/examples/pp/hbpragma.c
    * updated to compile with current header files.
This commit is contained in:
Przemyslaw Czerpak
2011-01-27 19:46:38 +00:00
parent 4ab21df05c
commit 6ad722ca12
3 changed files with 11 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.
*/
2011-01-27 20:46 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/examples/pp/hbppdef.h
* harbour/examples/pp/hbpragma.c
* updated to compile with current header files.
2011-01-27 14:30 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbnetio/utils/hbnetio/hbnetio.hbp
* contrib/hbnetio/utils/hbnetio/hbnetioc.hbp

1
harbour/examples/pp/hbppdef.h
View File

@@ -61,6 +61,7 @@ HB_EXTERN_BEGIN
typedef void * PHB_PP_STATE;
typedef void * PHB_PP_TOKEN;
typedef void * PHB_PP_OPEN_FUNC;
struct _DEFINES;
typedef struct _DEFINES

9
harbour/examples/pp/hbpragma.c
View File

@@ -195,7 +195,7 @@ HB_BOOL hb_pp_ParsePragma( char * szLine )
else if( hb_strnicmp( szLine, "BEGINDUMP", PRAGMAS_LEN ) == 0 )
{
char sBuffer[ HB_PP_STR_SIZE ], *pBuffer, sDirective[9] ;
int iSize;
int iSize, iOldSize;
PINLINE pInline;
if( hb_comp_bPPO )
@@ -246,6 +246,7 @@ HB_BOOL hb_pp_ParsePragma( char * szLine )
}
}
iOldSize = 0;
iSize = strlen( (char*) sBuffer );
if( pInline->pCode == NULL )
{
@@ -253,10 +254,10 @@ HB_BOOL hb_pp_ParsePragma( char * szLine )
}
else
{
pInline->pCode = (BYTE *) hb_xrealloc( pInline->pCode, pInline->lPCodeSize + iSize + 1 );
iOldSize = strlen( (char*)pInline->pCode );
pInline->pCode = (BYTE *) hb_xrealloc( pInline->pCode, iOldSize + iSize + 1 );
}
memcpy( pInline->pCode + pInline->lPCodeSize, sBuffer, iSize + 1 );
pInline->lPCodeSize += iSize;
memcpy( pInline->pCode + iOldSize, sBuffer, iSize + 1 );
goto DigestInline;
}