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

Merge remote-tracking branch 'remotes/Daniel-Cortez/codespell' into dev

Browse Source
This commit is contained in:
Y_Less 2021-05-02 18:56:15 +01:00
commit 5bcc7b429a
10 changed files with 50 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/compiler/sc.h
View File

@ -476,7 +476,7 @@ enum {
teFUNCTN, /* Pawn function */ teFUNCTN, /* Pawn function */
teNATIVE, /* native function */ teNATIVE, /* native function */
teNONNEG, /* nonnegative integer */ teNONNEG, /* nonnegative integer */
/* for assigment to "lastst" only (see SC1.C) */ /* for assignment to "lastst" only (see SC1.C) */
tEXPR, tEXPR,
tENDLESS, /* endless loop */ tENDLESS, /* endless loop */
tTERMINAL, /* signalizes that the code after this statement is unreachable, tTERMINAL, /* signalizes that the code after this statement is unreachable,

46
source/compiler/sc1.c
View File

@ -1553,7 +1553,7 @@ static void usage(void)
pc_printf(" -\\ use '\\' for escape characters\n"); pc_printf(" -\\ use '\\' for escape characters\n");
pc_printf(" -^ use '^' for escape characters\n"); pc_printf(" -^ use '^' for escape characters\n");
pc_printf(" -;[+/-] require a semicolon to end each statement (default=%c)\n", sc_needsemicolon ? '+' : '-'); pc_printf(" -;[+/-] require a semicolon to end each statement (default=%c)\n", sc_needsemicolon ? '+' : '-');
pc_printf(" -([+/-] require parantheses for function invocation (default=%c)\n", optproccall ? '-' : '+'); pc_printf(" -([+/-] require parentheses for function invocation (default=%c)\n", optproccall ? '-' : '+');
pc_printf(" sym=val define constant \"sym\" with value \"val\"\n"); pc_printf(" sym=val define constant \"sym\" with value \"val\"\n");
pc_printf(" sym= define constant \"sym\" with value 0\n"); pc_printf(" sym= define constant \"sym\" with value 0\n");
#if defined __WIN32__ || defined _WIN32 || defined _Windows || defined __MSDOS__ #if defined __WIN32__ || defined _WIN32 || defined _Windows || defined __MSDOS__
@ -1753,7 +1753,7 @@ static void parse(void)
} else { } else {
/* This can be a static function or a static global variable; we know /* This can be a static function or a static global variable; we know
* which of the two as soon as we have parsed up to the point where an * which of the two as soon as we have parsed up to the point where an
* opening paranthesis of a function would be expected. To back out after * opening parenthesis of a function would be expected. To back out after
* deciding it was a declaration of a static variable after all, we have * deciding it was a declaration of a static variable after all, we have
* to store the symbol name and tag. * to store the symbol name and tag.
*/ */
@ -2290,7 +2290,7 @@ static void declglb(char *firstname,int firsttag,int fpublic,int fstatic,int fst
sym->fnumber=filenum; sym->fnumber=filenum;
if (explicit_init) if (explicit_init)
markinitialized(sym,TRUE); markinitialized(sym,TRUE);
sc_attachdocumentation(sym);/* attach any documenation to the variable */ sc_attachdocumentation(sym);/* attach any documentation to the variable */
if (sc_status==statSKIP) { if (sc_status==statSKIP) {
sc_status=statWRITE; sc_status=statWRITE;
code_idx=cidx; code_idx=cidx;
@ -2678,7 +2678,7 @@ static void initials(int ident,int tag,cell *size,int dim[],int numdim,
if (d==dim[numdim-2]) if (d==dim[numdim-2])
dim[numdim-1]=match; dim[numdim-1]=match;
} /* if */ } /* if */
/* after all arrays have been initalized, we know the (major) dimensions /* after all arrays have been initialized, we know the (major) dimensions
* of the array and we can properly adjust the indirection vectors * of the array and we can properly adjust the indirection vectors
*/ */
if (err==0) if (err==0)
@ -2965,7 +2965,7 @@ static void decl_const(int vclass)
check_tagmismatch(tag,exprtag,FALSE,symbolline); check_tagmismatch(tag,exprtag,FALSE,symbolline);
sym=add_constant(constname,val,vclass,tag); sym=add_constant(constname,val,vclass,tag);
if (sym!=NULL) if (sym!=NULL)
sc_attachdocumentation(sym);/* attach any documenation to the constant */ sc_attachdocumentation(sym);/* attach any documentation to the constant */
} while (matchtoken(',')); /* enddo */ /* more? */ } while (matchtoken(',')); /* enddo */ /* more? */
needtoken(tTERM); needtoken(tTERM);
} }
@ -3174,7 +3174,7 @@ static void decl_enum(int vclass,int fstatic)
/* assign the constant list */ /* assign the constant list */
assert(enumroot!=NULL); assert(enumroot!=NULL);
enumsym->dim.enumlist=enumroot; enumsym->dim.enumlist=enumroot;
sc_attachdocumentation(enumsym); /* attach any documenation to the enumeration */ sc_attachdocumentation(enumsym); /* attach any documentation to the enumeration */
} /* if */ } /* if */
} }
@ -3783,7 +3783,7 @@ static void funcstub(int fnative)
declargs(sym,FALSE); declargs(sym,FALSE);
/* "declargs()" found the ")" */ /* "declargs()" found the ")" */
sc_attachdocumentation(sym); /* attach any documenation to the function */ sc_attachdocumentation(sym); /* attach any documentation to the function */
if (!operatoradjust(opertok,sym,symbolname,tag)) if (!operatoradjust(opertok,sym,symbolname,tag))
sym->usage &= ~uDEFINE; sym->usage &= ~uDEFINE;
if (fpublic && opertok!=0) { if (fpublic && opertok!=0) {
@ -4051,7 +4051,7 @@ static int newfunc(char *firstname,int firsttag,int fpublic,int fstatic,int stoc
} /* if */ } /* if */
endfunc(); endfunc();
sym->codeaddr=code_idx; sym->codeaddr=code_idx;
sc_attachdocumentation(sym); /* attach collected documenation to the function */ sc_attachdocumentation(sym); /* attach collected documentation to the function */
if (litidx) { /* if there are literals defined */ if (litidx) { /* if there are literals defined */
glb_declared+=litidx; glb_declared+=litidx;
begdseg(); /* flip to DATA segment */ begdseg(); /* flip to DATA segment */
@ -4157,12 +4157,12 @@ static int declargs(symbol *sym,int chkshadow)
if ((sym->usage & uPROTOTYPED)!=0) if ((sym->usage & uPROTOTYPED)!=0)
while (sym->dim.arglist[oldargcnt].ident!=0) while (sym->dim.arglist[oldargcnt].ident!=0)
oldargcnt++; oldargcnt++;
argcnt=0; /* zero aruments up to now */ argcnt=0; /* zero arguments up to now */
ident=iVARIABLE; ident=iVARIABLE;
numtags=0; numtags=0;
fconst=fpragma=FALSE; fconst=fpragma=FALSE;
fpublic= (sym->usage & uPUBLIC)!=0; fpublic= (sym->usage & uPUBLIC)!=0;
/* the '(' parantheses has already been parsed */ /* the '(' parentheses has already been parsed */
if (!matchtoken(')')){ if (!matchtoken(')')){
do { /* there are arguments; process them */ do { /* there are arguments; process them */
/* any legal name increases argument count (and stack offset) */ /* any legal name increases argument count (and stack offset) */
@ -4385,7 +4385,7 @@ static void doarg(char *name,int ident,int offset,int tags[],int numtags,
arg->hasdefault=TRUE; /* argument has default value */ arg->hasdefault=TRUE; /* argument has default value */
arg->defvalue.array.size=litidx; arg->defvalue.array.size=litidx;
arg->defvalue.array.addr=-1; arg->defvalue.array.addr=-1;
/* calulate size to reserve on the heap */ /* calculate size to reserve on the heap */
arg->defvalue.array.arraysize=1; arg->defvalue.array.arraysize=1;
for (i=0; i<arg->numdim; i++) for (i=0; i<arg->numdim; i++)
arg->defvalue.array.arraysize*=arg->dim[i]; arg->defvalue.array.arraysize*=arg->dim[i];
@ -4405,12 +4405,12 @@ static void doarg(char *name,int ident,int offset,int tags[],int numtags,
if (size_tag_token!=0) { if (size_tag_token!=0) {
char* symname; char* symname;
cell val; cell val;
int paranthese; int parentheses;
if (ident==iREFERENCE) if (ident==iREFERENCE)
error(66,name); /* argument may not be a reference */ error(66,name); /* argument may not be a reference */
paranthese=0; parentheses=0;
while (matchtoken('(')) while (matchtoken('('))
paranthese++; parentheses++;
if (size_tag_token==uTAGOF && matchtoken(tLABEL)) { if (size_tag_token==uTAGOF && matchtoken(tLABEL)) {
constvalue *tagsym; constvalue *tagsym;
tokeninfo(&val,&symname); tokeninfo(&val,&symname);
@ -4436,7 +4436,7 @@ static void doarg(char *name,int ident,int offset,int tags[],int numtags,
* will trigger a fatal error because of too many error messages on one line */ * will trigger a fatal error because of too many error messages on one line */
lexclr(FALSE); lexclr(FALSE);
} /* if */ } /* if */
while (paranthese--) while (parentheses--)
needtoken(')'); needtoken(')');
} else { } else {
constexpr(&arg->defvalue.val,&arg->defvalue_tag,NULL); constexpr(&arg->defvalue.val,&arg->defvalue_tag,NULL);
@ -5325,7 +5325,7 @@ static void destructsymbols(symbol *root,int level)
if ((opsym->usage & uPROTOTYPED)==0) if ((opsym->usage & uPROTOTYPED)==0)
error(71,symname); /* operator must be declared before use */ error(71,symname); /* operator must be declared before use */
} /* if */ } /* if */
/* save PRI, in case of a return statment */ /* save PRI, in case of a return statement */
if (!savepri) { if (!savepri) {
pushreg(sPRI); /* right-hand operand is in PRI */ pushreg(sPRI); /* right-hand operand is in PRI */
savepri=TRUE; savepri=TRUE;
@ -5480,7 +5480,7 @@ SC_FUNC symbol *add_constant(char *name,cell val,int vclass,int tag)
/* Test whether a global or local symbol with the same name exists. Since /* Test whether a global or local symbol with the same name exists. Since
* constants are stored in the symbols table, this also finds previously * constants are stored in the symbols table, this also finds previously
* defind constants. */ * defined constants. */
sym=findglb(name,sSTATEVAR); sym=findglb(name,sSTATEVAR);
if (sym==NULL) if (sym==NULL)
sym=findloc(name); sym=findloc(name);
@ -5555,7 +5555,7 @@ SC_FUNC symbol *add_builtin_string_constant(char *name,const char *val,
/* Test whether a global or local symbol with the same name exists. Since /* Test whether a global or local symbol with the same name exists. Since
* constants are stored in the symbols table, this also finds previously * constants are stored in the symbols table, this also finds previously
* defind constants. */ * defined constants. */
sym=findglb(name,sSTATEVAR); sym=findglb(name,sSTATEVAR);
if (sym==NULL) if (sym==NULL)
sym=findloc(name); sym=findloc(name);
@ -5899,7 +5899,7 @@ SC_FUNC int constexpr(cell *val,int *tag,symbol **symptr)
* In the case a "simple assignment" operator ("=") is used within a test, * In the case a "simple assignment" operator ("=") is used within a test,
* the warning "possibly unintended assignment" is displayed. This routine * the warning "possibly unintended assignment" is displayed. This routine
* sets the global variable "sc_intest" to true, it is restored upon termination. * sets the global variable "sc_intest" to true, it is restored upon termination.
* In the case the assignment was intended, use parantheses around the * In the case the assignment was intended, use parentheses around the
* expression to avoid the warning; primary() sets "sc_intest" to 0. * expression to avoid the warning; primary() sets "sc_intest" to 0.
* *
* Global references: sc_intest (altered, but restored upon termination) * Global references: sc_intest (altered, but restored upon termination)
@ -6160,7 +6160,7 @@ static int dofor(void)
scanloopvariables(&loopvars,FALSE); scanloopvariables(&loopvars,FALSE);
/* Expressions 2 and 3 are reversed in the generated code: expression 3 /* Expressions 2 and 3 are reversed in the generated code: expression 3
* precedes expression 2. When parsing, the code is buffered and marks for * precedes expression 2. When parsing, the code is buffered and marks for
* the start of each expression are insterted in the buffer. * the start of each expression are inserted in the buffer.
*/ */
assert(!staging); assert(!staging);
stgset(TRUE); /* start staging */ stgset(TRUE); /* start staging */
@ -6407,7 +6407,7 @@ static int doswitch(void)
} /* if */ } /* if */
#if !defined NDEBUG #if !defined NDEBUG
/* verify that the case table is sorted (unfortunatly, duplicates can /* verify that the case table is sorted (unfortunately, duplicates can
* occur; there really shouldn't be duplicate cases, but the compiler * occur; there really shouldn't be duplicate cases, but the compiler
* may not crash or drop into an assertion for a user error). */ * may not crash or drop into an assertion for a user error). */
for (cse=caselist.first; cse!=NULL && cse->next!=NULL; cse=cse->next) for (cse=caselist.first; cse!=NULL && cse->next!=NULL; cse=cse->next)
@ -7966,7 +7966,7 @@ SC_FUNC void emit_parse_line(void)
#if !defined NDEBUG #if !defined NDEBUG
/* verify that the opcode list is sorted (skip entry 1; it is reserved /* verify that the opcode list is sorted (skip entry 1; it is reserved
* for a non-existant opcode) * for a non-existent opcode)
*/ */
{ /* local */ { /* local */
static int sorted=FALSE; static int sorted=FALSE;
@ -8115,7 +8115,7 @@ static void doreturn(void)
sub=sub->child; sub=sub->child;
assert(sym!=NULL && sub!=NULL); assert(sym!=NULL && sub!=NULL);
/* ^^^ both arrays have the same dimensions (this was checked /* ^^^ both arrays have the same dimensions (this was checked
* earlier) so the dependend should always be found * earlier) so the dependent should always be found
*/ */
} /* if */ } /* if */
} /* for */ } /* for */

8
source/compiler/sc2.c
View File

@ -1814,7 +1814,7 @@ static int substpattern(unsigned char *line,size_t buffersize,char *pattern,char
e=skippgroup(e); e=skippgroup(e);
if (*e!='\0') if (*e!='\0')
e++; /* skip non-alphapetic character (or closing quote of e++; /* skip non-alphapetic character (or closing quote of
* a string, or the closing paranthese of a group) */ * a string, or the closing parenthesis of a group) */
} /* while */ } /* while */
/* store the parameter (overrule any earlier) */ /* store the parameter (overrule any earlier) */
free(args[arg]); free(args[arg]);
@ -1952,7 +1952,7 @@ static void substallpatterns(unsigned char *line,int buffersize)
/* if matching the operator "defined", skip it plus the symbol behind it */ /* if matching the operator "defined", skip it plus the symbol behind it */
if (strncmp((char*)start,"defined",7)==0 && *(start+7)<=' ') { if (strncmp((char*)start,"defined",7)==0 && *(start+7)<=' ') {
start+=7; /* skip "defined" */ start+=7; /* skip "defined" */
/* skip white space & parantheses */ /* skip white space & parentheses */
while ((*start<=' ' && *start!='\0') || *start=='(') while ((*start<=' ' && *start!='\0') || *start=='(')
start++; start++;
/* skip the symbol behind it */ /* skip the symbol behind it */
@ -2679,7 +2679,7 @@ SC_FUNC void litinsert(cell value,int pos)
* Return current literal character and increase the pointer to point * Return current literal character and increase the pointer to point
* just behind this literal character. * just behind this literal character.
* *
* Note: standard "escape sequences" are suported, but the backslash may be * Note: standard "escape sequences" are supported, but the backslash may be
* replaced by another character; the syntax '\ddd' is supported, * replaced by another character; the syntax '\ddd' is supported,
* but ddd must be decimal! * but ddd must be decimal!
*/ */
@ -3558,7 +3558,7 @@ SC_FUNC symbol *addvariable(const char *name,cell addr,int ident,int vclass,int
/* getlabel /* getlabel
* *
* Returns te next internal label number. The global variable sc_labnum is * Returns the next internal label number. The global variable sc_labnum is
* initialized to zero. * initialized to zero.
*/ */
SC_FUNC int getlabel(void) SC_FUNC int getlabel(void)

19
source/compiler/sc3.c
View File

@ -1,4 +1,4 @@
/* Pawn compiler - Recursive descend expresion parser /* Pawn compiler - Recursive descend expression parser
* *
* Copyright (c) ITB CompuPhase, 1997-2005 * Copyright (c) ITB CompuPhase, 1997-2005
* *
@ -98,7 +98,7 @@ static void (*op1[17])(void) = {
* no operator is found, nextop() returns 0. * no operator is found, nextop() returns 0.
* *
* If an operator is found in the expression, it cannot be used in a function * If an operator is found in the expression, it cannot be used in a function
* call with omitted parantheses. Mark this... * call with omitted parentheses. Mark this...
* *
* Global references: sc_allowproccall (modified) * Global references: sc_allowproccall (modified)
*/ */
@ -197,7 +197,7 @@ static void (*unopers[])(void) = { lneg, neg, user_inc, user_dec };
if (oper==NULL) if (oper==NULL)
pc_ovlassignment=TRUE; pc_ovlassignment=TRUE;
/* check existance and the proper declaration of this function */ /* check existence and the proper declaration of this function */
if ((sym->usage & uMISSING)!=0 || (sym->usage & uPROTOTYPED)==0) { if ((sym->usage & uMISSING)!=0 || (sym->usage & uPROTOTYPED)==0) {
char symname[2*sNAMEMAX+16]; /* allow space for user defined operators */ char symname[2*sNAMEMAX+16]; /* allow space for user defined operators */
funcdisplayname(symname,sym->name); funcdisplayname(symname,sym->name);
@ -236,8 +236,7 @@ static void (*unopers[])(void) = { lneg, neg, user_inc, user_dec };
pushreg(sPRI); /* right-hand operand is in PRI */ pushreg(sPRI); /* right-hand operand is in PRI */
} else if (savealt) { } else if (savealt) {
/* for the assignment operator, ALT may contain an address at which the /* for the assignment operator, ALT may contain an address at which the
* result must be stored; this address must be preserved accross the * result must be stored; this address must be preserved across the call
* call
*/ */
assert(lval!=NULL); /* this was checked earlier */ assert(lval!=NULL); /* this was checked earlier */
assert(lval->ident==iARRAYCELL || lval->ident==iARRAYCHAR); /* checked earlier */ assert(lval->ident==iARRAYCELL || lval->ident==iARRAYCHAR); /* checked earlier */
@ -864,7 +863,7 @@ static cell array_levelsize(symbol *sym,int level)
* *
* Lowest hierarchy level (except for the , operator). * Lowest hierarchy level (except for the , operator).
* *
* Global references: sc_intest (reffered to only) * Global references: sc_intest (referred to only)
* sc_allowproccall (modified) * sc_allowproccall (modified)
*/ */
static int hier14(value *lval1) static int hier14(value *lval1)
@ -951,7 +950,7 @@ static int hier14(value *lval1)
} else if (lval1->ident==iARRAY || lval1->ident==iREFARRAY) { } else if (lval1->ident==iARRAY || lval1->ident==iREFARRAY) {
/* array assignment is permitted too (with restrictions) */ /* array assignment is permitted too (with restrictions) */
if (oper) if (oper)
return error(23); /* array assignment must be simple assigment */ return error(23); /* array assignment must be simple assignment */
assert(lval1->sym!=NULL); assert(lval1->sym!=NULL);
if (array_totalsize(lval1->sym)==0) if (array_totalsize(lval1->sym)==0)
return error(46,lval1->sym->name); /* unknown array size */ return error(46,lval1->sym->name); /* unknown array size */
@ -967,7 +966,7 @@ static int hier14(value *lval1)
return error(22); /* assignment to const argument */ return error(22); /* assignment to const argument */
sc_allowproccall=FALSE; /* may no longer use "procedure call" syntax */ sc_allowproccall=FALSE; /* may no longer use "procedure call" syntax */
lval3=*lval1; /* save symbol to enable storage of expresion result */ lval3=*lval1; /* save symbol to enable storage of expression result */
lval1->arrayidx=org_arrayidx; /* restore array index pointer */ lval1->arrayidx=org_arrayidx; /* restore array index pointer */
if (lval1->ident==iARRAYCELL || lval1->ident==iARRAYCHAR if (lval1->ident==iARRAYCELL || lval1->ident==iARRAYCHAR
|| lval1->ident==iARRAY || lval1->ident==iREFARRAY) || lval1->ident==iARRAY || lval1->ident==iREFARRAY)
@ -1088,7 +1087,7 @@ static int hier14(value *lval1)
sym2=sym2->child; sym2=sym2->child;
assert(sym1!=NULL && sym2!=NULL); assert(sym1!=NULL && sym2!=NULL);
/* ^^^ both arrays have the same dimensions (this was checked /* ^^^ both arrays have the same dimensions (this was checked
* earlier) so the dependend should always be found * earlier) so the dependent should always be found
*/ */
if (sym1->dim.array.length!=sym2->dim.array.length) if (sym1->dim.array.length!=sym2->dim.array.length)
error(47); /* array sizes must match */ error(47); /* array sizes must match */
@ -2536,7 +2535,7 @@ static int nesting=0;
close=!matchtoken(','); close=!matchtoken(',');
if (close) { /* if not comma... */ if (close) { /* if not comma... */
if (needtoken(tTERM)==1)/* ...must be end of statement */ if (needtoken(tTERM)==1)/* ...must be end of statement */
lexpush(); /* push again, because end of statement is analised later */ lexpush(); /* push again, because end of statement is analyzed later */
} /* if */ } /* if */
} /* if */ } /* if */
} while (!close && freading && !matchtoken(tENDEXPR)); /* do */ } while (!close && freading && !matchtoken(tENDEXPR)); /* do */

2
source/compiler/sc4.c
View File

@ -37,7 +37,7 @@ static int fcurseg; /* the file number (fcurrent) for the active segment */
/* When a subroutine returns to address 0, the AMX must halt. In earlier /* When a subroutine returns to address 0, the AMX must halt. In earlier
* releases, the RET and RETN opcodes checked for the special case 0 address. * releases, the RET and RETN opcodes checked for the special case 0 address.
* Today, the compiler simply generates a HALT instruction at address 0. So * Today, the compiler simply generates a HALT instruction at address 0. So
* a subroutine can savely return to 0, and then encounter a HALT. * a subroutine can safely return to 0, and then encounter a HALT.
*/ */
SC_FUNC void writeleader(symbol *root) SC_FUNC void writeleader(symbol *root)
{ {

6
source/compiler/sc5.c
View File

@ -236,9 +236,9 @@ static int errwarn;
* errors are ignored until lex() finds a semicolon or a keyword * errors are ignored until lex() finds a semicolon or a keyword
* (lex() resets "errflag" in that case). * (lex() resets "errflag" in that case).
* *
* Global references: inpfname (reffered to only) * Global references: inpfname (referred to only)
* fline (reffered to only) * fline (referred to only)
* fcurrent (reffered to only) * fcurrent (referred to only)
* errflag (altered) * errflag (altered)
*/ */
SC_FUNC int error(long number,...) SC_FUNC int error(long number,...)

2
source/compiler/sc6.c
View File

@ -759,7 +759,7 @@ SC_FUNC int assemble(FILE *fout,FILE *fin)
#if !defined NDEBUG #if !defined NDEBUG
/* verify that the opcode list is sorted (skip entry 1; it is reserved /* verify that the opcode list is sorted (skip entry 1; it is reserved
* for a non-existant opcode) * for a non-existent opcode)
*/ */
assert(opcodelist[1].name!=NULL); assert(opcodelist[1].name!=NULL);
for (i=2; i<arraysize(opcodelist); i++) { for (i=2; i<arraysize(opcodelist); i++) {

10
source/compiler/sc7.c
View File

@ -4,7 +4,7 @@
* ------------------ * ------------------
* The staging buffer allows buffered output of generated code, deletion * The staging buffer allows buffered output of generated code, deletion
* of redundant code, optimization by a tinkering process and reversing * of redundant code, optimization by a tinkering process and reversing
* the ouput of evaluated expressions (which is used for the reversed * the output of evaluated expressions (which is used for the reversed
* evaluation of arguments in functions). * evaluation of arguments in functions).
* Initially, stgwrite() writes to the file directly, but after a call to * Initially, stgwrite() writes to the file directly, but after a call to
* stgset(TRUE), output is redirected to the buffer. After a call to * stgset(TRUE), output is redirected to the buffer. After a call to
@ -163,7 +163,7 @@ static SEQUENCE sequences[] = {
* push.pri - * push.pri -
* load.s.pri n1 - * load.s.pri n1 -
* pop.alt - * pop.alt -
* The above also accurs for "load.pri" and for "const.pri", * The above also occurs for "load.pri" and for "const.pri",
* so add another two cases. * so add another two cases.
*/ */
{ {
@ -597,7 +597,7 @@ static SEQUENCE sequences[] = {
* load.s.pri n1 load.s.pri n1 * load.s.pri n1 load.s.pri n1
* pop.alt - * pop.alt -
* *
* The above also accurs for "load.pri" and for "const.pri", * The above also occurs for "load.pri" and for "const.pri",
* so add another two cases. * so add another two cases.
*/ */
{ {
@ -1459,7 +1459,7 @@ typedef struct {
* by '[', sENDREORDER by ']' and sEXPRSTART by '|' the following applies: * by '[', sENDREORDER by ']' and sEXPRSTART by '|' the following applies:
* '[]...' valid, but useless; no output * '[]...' valid, but useless; no output
* '[|...] valid, but useless; only one string * '[|...] valid, but useless; only one string
* '[|...|...] valid and usefull * '[|...|...] valid and useful
* '[...|...] invalid, first string doesn't start with '|' * '[...|...] invalid, first string doesn't start with '|'
* '[|...|] invalid * '[|...|] invalid
*/ */
@ -1530,7 +1530,7 @@ static int stgstring(char *start,char *end)
* Scraps code from the staging buffer by resetting "stgidx" to "index". * Scraps code from the staging buffer by resetting "stgidx" to "index".
* *
* Global references: stgidx (altered) * Global references: stgidx (altered)
* staging (reffered to only) * staging (referred to only)
*/ */
SC_FUNC void stgdel(int index,cell code_index) SC_FUNC void stgdel(int index,cell code_index)
{ {

4
source/compiler/sci18n.c
View File

@ -104,7 +104,7 @@ static int cp_readline(FILE *fp,char *string,size_t size)
/* cp_path() sets the directory where all codepage files must be found (if /* cp_path() sets the directory where all codepage files must be found (if
* the parameter to cp_set() specifies a full path, that is used instead). * the parameter to cp_set() specifies a full path, that is used instead).
* The path is specified into two parts: root and directory; the full path * The path is specified into two parts: root and directory; the full path
* for the codepage direcory is just the concatenation of the two, with a * for the codepage directory is just the concatenation of the two, with a
* directory separator in between. The directory is given in two parts, * directory separator in between. The directory is given in two parts,
* because often a program already retrieves its "home" directory and the * because often a program already retrieves its "home" directory and the
* codepages are most conveniently stored in a subdirectory of this home * codepages are most conveniently stored in a subdirectory of this home
@ -328,7 +328,7 @@ SC_FUNC cell get_utf8_char(const unsigned char *string,const unsigned char **end
if (--follow==0) { if (--follow==0) {
/* encoding a character in more bytes than is strictly needed, /* encoding a character in more bytes than is strictly needed,
* is not really valid UTF-8; we are strict here to increase * is not really valid UTF-8; we are strict here to increase
* the chance of heuristic dectection of non-UTF-8 text * the chance of heuristic detection of non-UTF-8 text
* (JAVA writes zero bytes as a 2-byte code UTF-8, which is invalid) * (JAVA writes zero bytes as a 2-byte code UTF-8, which is invalid)
*/ */
if (result<lowmark) if (result<lowmark)

2
source/compiler/tests/multiline_strings.pwn
View File

@ -2,7 +2,7 @@ main()
{ {
// One line. // One line.
new str1[64] = "hello"; new str1[64] = "hello";
// Mutli line. // Multi line.
new str2[64] = " new str2[64] = "
hello hello
world world