1berry/pawn-compiler
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improve write op performance

Browse Source
This commit is contained in:
Alex Martin 2017-09-27 18:21:09 +02:00
parent 2a85a9fa33
commit 66e745a94b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/compiler/sc7.c
View File

@ -1254,6 +1254,7 @@ static void stgopt(char *start,char *end,int (*outputfunc)(char *str));
static char *stgbuf=NULL;
static int stgmax=0; /* current size of the staging buffer */
static int stglen=0; /* current length of the staging buffer */
static char *stgpipe=NULL;
static int pipemax=0; /* current size of the stage pipe, a second staging buffer */
@ -1364,10 +1365,12 @@ static int filewrite(char *str)
* Global references: stgidx (altered)
* stgbuf (altered)
* staging (referred to only)
* stglen (altered)
*/
SC_FUNC void stgwrite(const char *st)
{
int len;
int st_len;
if (staging) {
assert(stgidx==0 || stgbuf!=NULL); /* staging buffer must be valid if there is (apparently) something in it */
@ -1380,13 +1383,16 @@ SC_FUNC void stgwrite(const char *st)
CHECK_STGBUFFER(stgidx);
stgbuf[stgidx++]='\0';
} else {
len=(stgbuf!=NULL) ? strlen(stgbuf) : 0;
CHECK_STGBUFFER(len+strlen(st)+1);
strcat(stgbuf,st);
len=strlen(stgbuf);
len=(stgbuf!=NULL) ? stglen : 0;
st_len=strlen(st);
CHECK_STGBUFFER(len+st_len+1);
memcpy(stgbuf + len, st, st_len + 1); //strcat(stgbuf,st);
len=len+st_len;
stglen=len;
if (len>0 && stgbuf[len-1]=='\n') {
filewrite(stgbuf);
stgbuf[0]='\0';
stglen=0;
} /* if */
} /* if */
}