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

fixed some minor problems

Browse source
This commit is contained in:
ceriel 1987-11-03 12:44:09 +00:00
parent 867232a244
commit 6e5f3632c6
3 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -560,7 +560,7 @@ noscale:
if (np >= &buf[NUMSIZE]) { if (np >= &buf[NUMSIZE]) {
tk->TOK_REL = Salloc("0.0", 5); tk->TOK_REL = Salloc("0.0", 5);
lexerror("floating constant too long"); lexerror("real constant too long");
} }
else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1; else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1;
return tk->tk_symb = REAL; return tk->tk_symb = REAL;

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

@ -270,7 +270,6 @@ DeclProc(type, id)
/* C_exp already generated when we saw the definition /* C_exp already generated when we saw the definition
in the definition module in the definition module
*/ */
df->df_kind = D_PROCEDURE;
name = df->for_name; name = df->for_name;
DefInFront(df); DefInFront(df);
} }
@ -380,6 +379,7 @@ CheckWithDef(df, tp)
df->df_idf->id_text); df->df_idf->id_text);
} }
FreeType(df->df_type); FreeType(df->df_type);
df->df_kind = D_PROCEDURE;
} }
df->df_type = tp; df->df_type = tp;
} }

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

@ -217,6 +217,8 @@ TstParCompat(parno, formaltype, VARflag, nd, edf)
( !VARflag ( !VARflag
&& &&
actualtype->tp_size <= word_size actualtype->tp_size <= word_size
&&
! IsConformantArray(actualtype)
) )
) )
) )