godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed error messages, initialize bss with funny value, and be

Browse Source 
somewhat more conservative with memory usage
This commit is contained in:
ceriel
1988-11-28 12:54:38 +00:00
parent 0008704904
commit 17e744b5e0
3 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lang/m2/comp/statement.g
View File

@@ -111,10 +111,12 @@ StatementSequence(register t_node **pnd;)
[ %persistent
';'
statement(&nd)
{ nd1 = dot2node(Link, *pnd, nd);
*pnd = nd1;
nd1->nd_symb = ';';
pnd = &(nd1->nd_right);
{ if (nd != EmptyStatement) {
nd1 = dot2node(Link, *pnd, nd);
*pnd = nd1;
nd1->nd_symb = ';';
pnd = &(nd1->nd_right);
}
}
]*
;
@@ -262,15 +264,15 @@ ReturnStatement(t_node **pnd;)
[
expression(&(nd->nd_right))
{ if (scopeclosed(CurrentScope)) {
error("a module body has no result value");
error("a module body cannot return a value");
}
else if (! ResultType(df->df_type)) {
error("procedure \"%s\" has no result value", df->df_idf->id_text);
error("procedure \"%s\" is not a function, so cannot return a value", df->df_idf->id_text);
}
}
|
{ if (ResultType(df->df_type)) {
error("procedure \"%s\" must return a value", df->df_idf->id_text);
error("function procedure \"%s\" must return a value", df->df_idf->id_text);
}
}
]