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

upgrading preprocessor files

Browse Source
This commit is contained in:
Alexander S.Kresin
1999-10-27 10:14:44 +00:00
parent 369b0a651a
commit cb8653c034
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
19991027-13:55 GMT+3 Alexander Kresin
* source/pp/hbpp.c
* Fixed bugs, reported by Antonio Linares and Victor Szel
* ( increased size of expnew in Searnrep() and expreal in WorkMarkers() )
* Added HB_TRACE to the new function ( PrevSquare() )
19991027-02:25 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/fm.c
! Fixed to display negative unreleased memory properly.

7
harbour/source/pp/hbpp.c
View File

@@ -111,6 +111,7 @@ BOOL OpenInclude( char *, PATHNAMES *, FILE**, BOOL bStandardOnly, char * );
#define ISNAME(c) (isalnum(c) || (c)=='_' || (c) > 0x7e)
#define MAX_NAME 255
#define MAX_EXP 1024
#define PATTERN_SIZE 2048
#define STATE_INIT 0
@@ -1073,7 +1074,8 @@ int RemoveSlash( char *stroka )
int WorkMarkers( char **ptrmp, char **ptri, char *ptro, int *lenres, int com_or_xcom )
{
char expreal[MAX_NAME], exppatt[MAX_NAME];
static char expreal[MAX_EXP];
char exppatt[MAX_NAME];
int lenreal = 0, maxlenreal = STR_SIZE, lenpatt;
int rezrestr, ipos;
char *ptr, *ptrtemp;
@@ -1505,7 +1507,7 @@ void SearnRep( char *exppatt,char *expreal,int lenreal,char *ptro, int *lenres)
int kolmarkers;
int lennew, i;
char lastchar = '0';
char expnew[MAX_NAME];
static char expnew[MAX_EXP];
char *ptr, *ptr2, *ptrOut = ptro;
HB_TRACE(("SearnRep(%s, %s, %d, %s, %p)", exppatt, expreal, lenreal, ptro, lenres));
@@ -1960,6 +1962,7 @@ char* PrevSquare( char* ptr, char* bound, int *kolmark )
{
int State = STATE_NORMAL;
HB_TRACE(("PrevSquare(%s, %s, %d)", ptr, bound, *kolmark));
while( ptr > bound )
{
if( State == STATE_QUOTE1 )