d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

l_states.c used 'const' as an identifier; unacceptable for ANSI-C!

Browse source
This commit is contained in:
ceriel 1991-12-02 13:09:15 +00:00
parent a01a4a9fd2
commit 9248d14195
2 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lang/cem/cemcom.ansi/l_states.c
View file

@ -671,12 +671,12 @@ find_cs()
/******** A C T I O N S : I F ********/ /******** A C T I O N S : I F ********/
start_if_part(const) start_if_part(cst)
{ {
register struct lint_stack_entry *new = mk_lint_stack_entry(IF); register struct lint_stack_entry *new = mk_lint_stack_entry(IF);
dbg_lint_stack("start_if_part"); dbg_lint_stack("start_if_part");
if (const) if (cst)
hwarning("condition in if statement is constant"); hwarning("condition in if statement is constant");
lint_push(new); lint_push(new);
@ -768,20 +768,20 @@ start_for_stmt(expr)
} }
PRIVATE PRIVATE
start_loop_stmt(looptype, const, cond) start_loop_stmt(looptype, cst, cond)
{ {
/* If const, the condition is a constant and its value is cond /* If cst, the condition is a constant and its value is cond
*/ */
register struct lint_stack_entry *new = mk_lint_stack_entry(looptype); register struct lint_stack_entry *new = mk_lint_stack_entry(looptype);
dbg_lint_stack("start_loop_stmt"); dbg_lint_stack("start_loop_stmt");
if (const && !cond) { if (cst && !cond) {
/* while (0) | for (;0;) */ /* while (0) | for (;0;) */
hwarning("condition in %s statement is always false", hwarning("condition in %s statement is always false",
symbol2str(looptype)); symbol2str(looptype));
new->ls_current->st_notreached = 1; new->ls_current->st_notreached = 1;
} }
if (const && cond) { if (cst && cond) {
/* while (1) | for (;;) | do */ /* while (1) | for (;;) | do */
/* omitting the copy for LS_LOOP will force this loop /* omitting the copy for LS_LOOP will force this loop
to be treated as a do loop to be treated as a do loop
@ -792,7 +792,7 @@ start_loop_stmt(looptype, const, cond)
else { else {
new->LS_LOOP = copy_state(top_ls->ls_current, level); new->LS_LOOP = copy_state(top_ls->ls_current, level);
} }
new->LS_TEST = (!const ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE); new->LS_TEST = (!cst ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE);
lint_push(new); lint_push(new);
/* ls_current: the state at the start of the body /* ls_current: the state at the start of the body
@ -836,16 +836,16 @@ end_loop_stmt()
lint_pop(); lint_pop();
} }
end_do_stmt(const, cond) end_do_stmt(cst, cond)
{ {
register struct lint_stack_entry *lse = find_wdf(); register struct lint_stack_entry *lse = find_wdf();
dbg_lint_stack("end_do_stmt"); dbg_lint_stack("end_do_stmt");
if (const && !cond) { if (cst && !cond) {
/* do ... while (0) */ /* do ... while (0) */
hwarning("condition in do statement is always false"); hwarning("condition in do statement is always false");
} }
lse->LS_TEST = (!const ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE); lse->LS_TEST = (!cst ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE);
end_loop_stmt(); end_loop_stmt();
} }
@ -865,7 +865,7 @@ lint_continue_stmt()
/******** A C T I O N S : S W I T C H ********/ /******** A C T I O N S : S W I T C H ********/
start_switch_part(const) start_switch_part(cst)
{ {
/* ls_current of a SWITCH entry has different meaning from ls_current of /* ls_current of a SWITCH entry has different meaning from ls_current of
* other entries. It keeps track of which variables are used in all * other entries. It keeps track of which variables are used in all
@ -875,7 +875,7 @@ start_switch_part(const)
register struct lint_stack_entry *new = mk_lint_stack_entry(SWITCH); register struct lint_stack_entry *new = mk_lint_stack_entry(SWITCH);
dbg_lint_stack("start_switch_part"); dbg_lint_stack("start_switch_part");
if (const) if (cst)
hwarning("value in switch statement is constant"); hwarning("value in switch statement is constant");
new->LS_CASE = copy_state(top_ls->ls_current, level); new->LS_CASE = copy_state(top_ls->ls_current, level);

24
lang/cem/cemcom/l_states.c
View file

@ -664,12 +664,12 @@ find_cs()
/******** A C T I O N S : I F ********/ /******** A C T I O N S : I F ********/
start_if_part(const) start_if_part(cst)
{ {
register struct lint_stack_entry *new = mk_lint_stack_entry(IF); register struct lint_stack_entry *new = mk_lint_stack_entry(IF);
dbg_lint_stack("start_if_part"); dbg_lint_stack("start_if_part");
if (const) if (cst)
hwarning("condition in if statement is constant"); hwarning("condition in if statement is constant");
lint_push(new); lint_push(new);
@ -761,20 +761,20 @@ start_for_stmt(expr)
} }
PRIVATE PRIVATE
start_loop_stmt(looptype, const, cond) start_loop_stmt(looptype, cst, cond)
{ {
/* If const, the condition is a constant and its value is cond /* If cst, the condition is a constant and its value is cond
*/ */
register struct lint_stack_entry *new = mk_lint_stack_entry(looptype); register struct lint_stack_entry *new = mk_lint_stack_entry(looptype);
dbg_lint_stack("start_loop_stmt"); dbg_lint_stack("start_loop_stmt");
if (const && !cond) { if (cst && !cond) {
/* while (0) | for (;0;) */ /* while (0) | for (;0;) */
hwarning("condition in %s statement is always false", hwarning("condition in %s statement is always false",
symbol2str(looptype)); symbol2str(looptype));
new->ls_current->st_notreached = 1; new->ls_current->st_notreached = 1;
} }
if (const && cond) { if (cst && cond) {
/* while (1) | for (;;) | do */ /* while (1) | for (;;) | do */
/* omitting the copy for LS_LOOP will force this loop /* omitting the copy for LS_LOOP will force this loop
to be treated as a do loop to be treated as a do loop
@ -785,7 +785,7 @@ start_loop_stmt(looptype, const, cond)
else { else {
new->LS_LOOP = copy_state(top_ls->ls_current, level); new->LS_LOOP = copy_state(top_ls->ls_current, level);
} }
new->LS_TEST = (!const ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE); new->LS_TEST = (!cst ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE);
lint_push(new); lint_push(new);
/* ls_current: the state at the start of the body /* ls_current: the state at the start of the body
@ -829,16 +829,16 @@ end_loop_stmt()
lint_pop(); lint_pop();
} }
end_do_stmt(const, cond) end_do_stmt(cst, cond)
{ {
register struct lint_stack_entry *lse = find_wdf(); register struct lint_stack_entry *lse = find_wdf();
dbg_lint_stack("end_do_stmt"); dbg_lint_stack("end_do_stmt");
if (const && !cond) { if (cst && !cond) {
/* do ... while (0) */ /* do ... while (0) */
hwarning("condition in do statement is always false"); hwarning("condition in do statement is always false");
} }
lse->LS_TEST = (!const ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE); lse->LS_TEST = (!cst ? TEST_VAR : cond ? TEST_TRUE : TEST_FALSE);
end_loop_stmt(); end_loop_stmt();
} }
@ -858,7 +858,7 @@ lint_continue_stmt()
/******** A C T I O N S : S W I T C H ********/ /******** A C T I O N S : S W I T C H ********/
start_switch_part(const) start_switch_part(cst)
{ {
/* ls_current of a SWITCH entry has different meaning from ls_current of /* ls_current of a SWITCH entry has different meaning from ls_current of
* other entries. It keeps track of which variables are used in all * other entries. It keeps track of which variables are used in all
@ -868,7 +868,7 @@ start_switch_part(const)
register struct lint_stack_entry *new = mk_lint_stack_entry(SWITCH); register struct lint_stack_entry *new = mk_lint_stack_entry(SWITCH);
dbg_lint_stack("start_switch_part"); dbg_lint_stack("start_switch_part");
if (const) if (cst)
hwarning("value in switch statement is constant"); hwarning("value in switch statement is constant");
new->LS_CASE = copy_state(top_ls->ls_current, level); new->LS_CASE = copy_state(top_ls->ls_current, level);