parent
80c1db4f0c
commit
5b899a19e3
|
@ -1176,7 +1176,7 @@ declloc(int fstatic)
|
||||||
symbol *sym;
|
symbol *sym;
|
||||||
cell val, size;
|
cell val, size;
|
||||||
char *str;
|
char *str;
|
||||||
value lval = { 0 };
|
value lval = { NULL, 0, 0, 0, 0, NULL };
|
||||||
int cur_lit = 0;
|
int cur_lit = 0;
|
||||||
int dim[sDIMEN_MAX];
|
int dim[sDIMEN_MAX];
|
||||||
int numdim, level;
|
int numdim, level;
|
||||||
|
@ -3422,7 +3422,7 @@ test(int label, int parens, int invert)
|
||||||
{
|
{
|
||||||
int index, tok;
|
int index, tok;
|
||||||
cell cidx;
|
cell cidx;
|
||||||
value lval = { 0 };
|
value lval = { NULL, 0, 0, 0, 0, NULL };
|
||||||
int localstaging = FALSE;
|
int localstaging = FALSE;
|
||||||
|
|
||||||
if (!staging)
|
if (!staging)
|
||||||
|
@ -3835,7 +3835,7 @@ doassert(void)
|
||||||
{
|
{
|
||||||
int flab1, index;
|
int flab1, index;
|
||||||
cell cidx;
|
cell cidx;
|
||||||
value lval = { 0 };
|
value lval = { NULL, 0, 0, 0, 0, NULL };
|
||||||
|
|
||||||
if ((sc_debug & sCHKBOUNDS) != 0)
|
if ((sc_debug & sCHKBOUNDS) != 0)
|
||||||
{
|
{
|
||||||
|
|
|
@ -515,7 +515,7 @@ plnge(int *opstr, int opoff, int (*hier) (value * lval), value * lval,
|
||||||
{
|
{
|
||||||
int lvalue, opidx;
|
int lvalue, opidx;
|
||||||
int count;
|
int count;
|
||||||
value lval2 = { 0 };
|
value lval2 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
|
|
||||||
lvalue = plnge1(hier, lval);
|
lvalue = plnge1(hier, lval);
|
||||||
if (nextop(&opidx, opstr) == 0)
|
if (nextop(&opidx, opstr) == 0)
|
||||||
|
@ -547,7 +547,7 @@ static int
|
||||||
plnge_rel(int *opstr, int opoff, int (*hier) (value * lval), value * lval)
|
plnge_rel(int *opstr, int opoff, int (*hier) (value * lval), value * lval)
|
||||||
{
|
{
|
||||||
int lvalue, opidx;
|
int lvalue, opidx;
|
||||||
value lval2 = { 0 }; /* intialize, to avoid a compiler warning */
|
value lval2 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
int count;
|
int count;
|
||||||
|
|
||||||
/* this function should only be called for relational operators */
|
/* this function should only be called for relational operators */
|
||||||
|
@ -630,7 +630,7 @@ plnge2(void (*oper) (void),
|
||||||
{ /* constant on right side */
|
{ /* constant on right side */
|
||||||
if (commutative(oper))
|
if (commutative(oper))
|
||||||
{ /* test for commutative operators */
|
{ /* test for commutative operators */
|
||||||
value lvaltmp = { 0 };
|
value lvaltmp = { NULL, 0, 0, 0, 0, NULL };
|
||||||
stgdel(index, cidx); /* scratch push1() and constant fetch (then
|
stgdel(index, cidx); /* scratch push1() and constant fetch (then
|
||||||
* fetch the constant again */
|
* fetch the constant again */
|
||||||
const2(lval2->constval << dbltest(oper, lval1, lval2));
|
const2(lval2->constval << dbltest(oper, lval1, lval2));
|
||||||
|
@ -760,7 +760,7 @@ calc(cell left, void (*oper) (), cell right, char *boolresult)
|
||||||
int
|
int
|
||||||
expression(int *constant, cell * val, int *tag, int chkfuncresult)
|
expression(int *constant, cell * val, int *tag, int chkfuncresult)
|
||||||
{
|
{
|
||||||
value lval = { 0 };
|
value lval = { NULL, 0, 0, 0, 0, NULL };
|
||||||
|
|
||||||
if (hier14(&lval))
|
if (hier14(&lval))
|
||||||
rvalue(&lval);
|
rvalue(&lval);
|
||||||
|
@ -824,9 +824,8 @@ int
|
||||||
hier14(value * lval1)
|
hier14(value * lval1)
|
||||||
{
|
{
|
||||||
int lvalue;
|
int lvalue;
|
||||||
value lval2 = { 0 }, lval3 =
|
value lval2 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
{
|
value lval3 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
0};
|
|
||||||
void (*oper) (void);
|
void (*oper) (void);
|
||||||
int tok, level, i;
|
int tok, level, i;
|
||||||
cell val;
|
cell val;
|
||||||
|
@ -1064,7 +1063,7 @@ static int
|
||||||
hier13(value * lval)
|
hier13(value * lval)
|
||||||
{
|
{
|
||||||
int lvalue, flab1, flab2;
|
int lvalue, flab1, flab2;
|
||||||
value lval2 = { 0 };
|
value lval2 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
int array1, array2;
|
int array1, array2;
|
||||||
|
|
||||||
lvalue = plnge1(hier12, lval);
|
lvalue = plnge1(hier12, lval);
|
||||||
|
@ -1484,7 +1483,7 @@ hier1(value * lval1)
|
||||||
{
|
{
|
||||||
int lvalue, index, tok, symtok;
|
int lvalue, index, tok, symtok;
|
||||||
cell val, cidx;
|
cell val, cidx;
|
||||||
value lval2 = { 0 };
|
value lval2 = { NULL, 0, 0, 0, 0, NULL };
|
||||||
char *st;
|
char *st;
|
||||||
char close;
|
char close;
|
||||||
symbol *sym;
|
symbol *sym;
|
||||||
|
@ -1901,7 +1900,7 @@ callfunction(symbol * sym)
|
||||||
int nargs = 0; /* number of arguments */
|
int nargs = 0; /* number of arguments */
|
||||||
int heapalloc = 0;
|
int heapalloc = 0;
|
||||||
int namedparams = FALSE;
|
int namedparams = FALSE;
|
||||||
value lval = { 0 };
|
value lval = { NULL, 0, 0, 0, 0, NULL };
|
||||||
arginfo *arg;
|
arginfo *arg;
|
||||||
char arglist[sMAXARGS];
|
char arglist[sMAXARGS];
|
||||||
constvalue arrayszlst = { NULL, "", 0, 0 }; /* array size list starts empty */
|
constvalue arrayszlst = { NULL, "", 0, 0 }; /* array size list starts empty */
|
||||||
|
|
|
@ -131,7 +131,7 @@ delete_stringpair(stringpair * root, stringpair * item)
|
||||||
}
|
}
|
||||||
|
|
||||||
/* ----- alias table --------------------------------------------- */
|
/* ----- alias table --------------------------------------------- */
|
||||||
static stringpair alias_tab = { NULL, NULL, NULL }; /* alias table */
|
static stringpair alias_tab = { NULL, NULL, NULL, 0 }; /* alias table */
|
||||||
|
|
||||||
stringpair *
|
stringpair *
|
||||||
insert_alias(char *name, char *alias)
|
insert_alias(char *name, char *alias)
|
||||||
|
@ -217,7 +217,7 @@ delete_pathtable(void)
|
||||||
|
|
||||||
/* ----- text substitution patterns ------------------------------ */
|
/* ----- text substitution patterns ------------------------------ */
|
||||||
|
|
||||||
static stringpair substpair = { NULL, NULL, NULL }; /* list of substitution pairs */
|
static stringpair substpair = { NULL, NULL, NULL, 0 }; /* list of substitution pairs */
|
||||||
static stringpair *substindex['z' - 'A' + 1]; /* quick index to first character */
|
static stringpair *substindex['z' - 'A' + 1]; /* quick index to first character */
|
||||||
|
|
||||||
static void
|
static void
|
||||||
|
|
Loading…
Reference in New Issue