Fix for issue at19199

This commit is contained in:
David Anderson 2005-11-19 09:16:27 +00:00
parent 6163e25d7d
commit 4d9f2ded74
5 changed files with 13 additions and 4 deletions

View File

@ -4,6 +4,7 @@
Version="7.10" Version="7.10"
Name="libpc300" Name="libpc300"
ProjectGUID="{19B72687-080B-437A-917A-12AEB0031635}" ProjectGUID="{19B72687-080B-437A-917A-12AEB0031635}"
RootNamespace="libpc300"
Keyword="Win32Proj"> Keyword="Win32Proj">
<Platforms> <Platforms>
<Platform <Platform
@ -367,6 +368,12 @@
<File <File
RelativePath=".\libpawnc.rc"> RelativePath=".\libpawnc.rc">
</File> </File>
<File
RelativePath=".\sc5.scp">
</File>
<File
RelativePath=".\sc7.scp">
</File>
</Filter> </Filter>
</Files> </Files>
<Globals> <Globals>

View File

@ -1920,7 +1920,7 @@ static int nesting=0;
assert(lval.sym!=NULL); assert(lval.sym!=NULL);
if ((lval.sym->usage & uCONST)!=0 && (arg[argidx].usage & uCONST)==0) { if ((lval.sym->usage & uCONST)!=0 && (arg[argidx].usage & uCONST)==0) {
/* treat a "const" variable passed to a function with a non-const /* treat a "const" variable passed to a function with a non-const
* "variable argument list" as a constant here */ * "variable argument flist" as a constant here */
assert(lvalue); assert(lvalue);
rvalue(&lval); /* get value in PRI */ rvalue(&lval); /* get value in PRI */
setheap_pri(); /* address of the value on the heap in PRI */ setheap_pri(); /* address of the value on the heap in PRI */
@ -2132,7 +2132,7 @@ static int nesting=0;
markexpr(sPARM,NULL,0); /* mark the end of a sub-expression */ markexpr(sPARM,NULL,0); /* mark the end of a sub-expression */
nest_stkusage++; nest_stkusage++;
} else { } else {
error(99,argidx); /* argument count mismatch */ error(88,argidx); /* argument count mismatch */
} /* if */ } /* if */
if (arglist[argidx]==ARG_UNHANDLED) if (arglist[argidx]==ARG_UNHANDLED)
nargs++; nargs++;

View File

@ -125,7 +125,8 @@ static char *errmsg[] = {
/*084*/ "state conflict: one of the states is already assigned to another implementation (symbol \"%s\")\n", /*084*/ "state conflict: one of the states is already assigned to another implementation (symbol \"%s\")\n",
/*085*/ "no states are defined for function \"%s\"\n", /*085*/ "no states are defined for function \"%s\"\n",
/*086*/ "unknown automaton \"%s\"\n", /*086*/ "unknown automaton \"%s\"\n",
/*087*/ "unknown state \"%s\" for automaton \"%s\"\n" /*087*/ "unknown state \"%s\" for automaton \"%s\"\n",
/*088*/ "number of arguments does not match definition\n"
#else #else
"\267pect\233\277k\210:\242\312bu\202fo\217\206\216\012", "\267pect\233\277k\210:\242\312bu\202fo\217\206\216\012",
"\201l\223\247s\203g\361\326\373\202(\254\355\201) c\350f\246\356w ea\273 \042c\342e\042\012", "\201l\223\247s\203g\361\326\373\202(\254\355\201) c\350f\246\356w ea\273 \042c\342e\042\012",
@ -213,7 +214,8 @@ static char *errmsg[] = {
"\326\200\302flict: \201\200\300\266\200\326\325\274\212\222ad\223a\250gn\233\277 a\221\266\270i\357l\373\320\231\364", "\326\200\302flict: \201\200\300\266\200\326\325\274\212\222ad\223a\250gn\233\277 a\221\266\270i\357l\373\320\231\364",
"\376\326\325\204\200\323\233f\254\251\216\012", "\376\326\325\204\200\323\233f\254\251\216\012",
"\217k\221w\346au\277\334\201\311", "\217k\221w\346au\277\334\201\311",
"\217k\221w\346\326\200\216 f\254au\277\334\201\311" "\217k\221w\346\326\200\216 f\254au\277\334\201\311",
"\374\270\300\265t\207do\325\241\334\273 \323i\213\012"
#endif #endif
}; };

Binary file not shown.

Binary file not shown.