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

Additions for non-correcting error recovery

Browse Source
This commit is contained in:
ceriel
1997-02-21 17:11:04 +00:00
parent 8ea5d257c4
commit 99ac23b4b4
11 changed files with 50 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lang/m2/comp/LLmessage.c
View File

@@ -34,7 +34,9 @@ LLmessage(tk)
*/
register t_token *dotp = ˙
#ifndef LLNONCORR
error("%s missing before %s", symbol2str(tk), symbol2str(dotp->tk_symb));
#endif
aside = *dotp;
@@ -62,9 +64,15 @@ LLmessage(tk)
}
}
else if (tk < 0) {
error("garbage at end of program");
error("end of file expected");
}
else {
#ifndef LLNONCORR
error("%s deleted", symbol2str(dot.tk_symb));
#else
error("%s not expected", symbol2str(dot.tk_symb));
#endif
}
else error("%s deleted", symbol2str(dot.tk_symb));
tk_nmb_at_last_syn_err = token_nmb;
}