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

Delinted a bit

Browse source
This commit is contained in:
ceriel 1991-04-25 16:47:47 +00:00
parent c955dc1374
commit 1da2103504
4 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/m2/comp/LLlex.c
View file

@ -29,7 +29,6 @@
#include "type.h" #include "type.h"
#include "warning.h" #include "warning.h"
extern long str2long();
extern char *getwdir(); extern char *getwdir();
t_token dot, t_token dot,

4
lang/m2/comp/chk_expr.c
View file

@ -86,6 +86,7 @@ MkCoercion(pnd, tp)
break; break;
default: default:
crash("MkCoercion"); crash("MkCoercion");
/*NOTREACHED*/
} }
if (flt_status == FLT_OVFL) { if (flt_status == FLT_OVFL) {
wmess = "conversion"; wmess = "conversion";
@ -912,7 +913,8 @@ ChkBinOper(expp)
/* First, check BOTH operands */ /* First, check BOTH operands */
retval = ChkExpression(&(exp->nd_LEFT)) & ChkExpression(&(exp->nd_RIGHT)); retval = ChkExpression(&(exp->nd_LEFT));
retval &= ChkExpression(&(exp->nd_RIGHT));
tpl = BaseType(exp->nd_LEFT->nd_type); tpl = BaseType(exp->nd_LEFT->nd_type);
tpr = BaseType(exp->nd_RIGHT->nd_type); tpr = BaseType(exp->nd_RIGHT->nd_type);

2
lang/m2/comp/type.c
View file

@ -719,7 +719,7 @@ ForceForwardTypeDef(df)
node_error(nd, "\"%s\" is not a type", df1->df_idf->id_text); node_error(nd, "\"%s\" is not a type", df1->df_idf->id_text);
} }
while (df1 && df1->df_kind == D_FORWTYPE) { while (df1 && df1->df_kind == D_FORWTYPE) {
t_def *df2 = df1->df_forw_def; df2 = df1->df_forw_def;
df1->df_type = df->df_type; df1->df_type = df->df_type;
SolveForwardTypeRefs(df1); SolveForwardTypeRefs(df1);
free_def(df1); free_def(df1);

8
lang/m2/comp/walk.c
View file

@ -901,10 +901,12 @@ DoForInit(nd)
register t_def *df; register t_def *df;
t_type *base_tp; t_type *base_tp;
t_type *tpl, *tpr; t_type *tpl, *tpr;
int r;
if (!( ChkVariable(&(nd->nd_LEFT), D_USED|D_DEFINED) & r = ChkVariable(&(nd->nd_LEFT), D_USED|D_DEFINED);
ChkExpression(&(right->nd_LEFT)) & r &= ChkExpression(&(right->nd_LEFT));
ChkExpression(&(right->nd_RIGHT)))) return 0; r &= ChkExpression(&(right->nd_RIGHT));
if (!r) return 0;
df = nd->nd_LEFT->nd_def; df = nd->nd_LEFT->nd_def;
if (df->df_kind == D_FIELD) { if (df->df_kind == D_FIELD) {