d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases 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]) {
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;
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
in the definition module
*/
df->df_kind = D_PROCEDURE;
name = df->for_name;
DefInFront(df);
}
@ -380,6 +379,7 @@ CheckWithDef(df, tp)
df->df_idf->id_text);
}
FreeType(df->df_type);
df->df_kind = D_PROCEDURE;
}
df->df_type = tp;
}

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

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