d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases 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 "warning.h"
extern long str2long();
extern char *getwdir();
t_token dot,

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

@ -86,6 +86,7 @@ MkCoercion(pnd, tp)
break;
default:
crash("MkCoercion");
/*NOTREACHED*/
}
if (flt_status == FLT_OVFL) {
wmess = "conversion";
@ -912,7 +913,8 @@ ChkBinOper(expp)
/* 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);
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);
}
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;
SolveForwardTypeRefs(df1);
free_def(df1);

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

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