diff --git a/bootstrap/unix-44/OPP.c b/bootstrap/unix-44/OPP.c index d9698b7e..01d2144d 100644 --- a/bootstrap/unix-44/OPP.c +++ b/bootstrap/unix-44/OPP.c @@ -1783,6 +1783,24 @@ void OPP_Module (OPT_Node *prog, SET opt) if (OPP_sym == 63) { OPS_Get(&OPP_sym); } else { + OPM_LogWLn(); + OPM_LogWStr((CHAR*)"Unexpected symbol found when MODULE expected:", (LONGINT)46); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" sym: ", (LONGINT)15); + OPM_LogWNum(OPP_sym, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.name: ", (LONGINT)15); + OPM_LogWStr(OPS_name, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.str: ", (LONGINT)15); + OPM_LogWStr(OPS_str, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.numtyp: ", (LONGINT)15); + OPM_LogWNum(OPS_numtyp, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.intval: ", (LONGINT)15); + OPM_LogWNum(OPS_intval, ((LONGINT)(1))); + OPM_LogWLn(); OPP_err(16); } if (OPP_sym == 38) { diff --git a/bootstrap/unix-48/OPP.c b/bootstrap/unix-48/OPP.c index d9698b7e..01d2144d 100644 --- a/bootstrap/unix-48/OPP.c +++ b/bootstrap/unix-48/OPP.c @@ -1783,6 +1783,24 @@ void OPP_Module (OPT_Node *prog, SET opt) if (OPP_sym == 63) { OPS_Get(&OPP_sym); } else { + OPM_LogWLn(); + OPM_LogWStr((CHAR*)"Unexpected symbol found when MODULE expected:", (LONGINT)46); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" sym: ", (LONGINT)15); + OPM_LogWNum(OPP_sym, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.name: ", (LONGINT)15); + OPM_LogWStr(OPS_name, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.str: ", (LONGINT)15); + OPM_LogWStr(OPS_str, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.numtyp: ", (LONGINT)15); + OPM_LogWNum(OPS_numtyp, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.intval: ", (LONGINT)15); + OPM_LogWNum(OPS_intval, ((LONGINT)(1))); + OPM_LogWLn(); OPP_err(16); } if (OPP_sym == 38) { diff --git a/bootstrap/unix-88/OPP.c b/bootstrap/unix-88/OPP.c index 5f515091..be7c13b5 100644 --- a/bootstrap/unix-88/OPP.c +++ b/bootstrap/unix-88/OPP.c @@ -1784,6 +1784,24 @@ void OPP_Module (OPT_Node *prog, SET opt) if (OPP_sym == 63) { OPS_Get(&OPP_sym); } else { + OPM_LogWLn(); + OPM_LogWStr((CHAR*)"Unexpected symbol found when MODULE expected:", (LONGINT)46); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" sym: ", (LONGINT)15); + OPM_LogWNum(OPP_sym, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.name: ", (LONGINT)15); + OPM_LogWStr(OPS_name, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.str: ", (LONGINT)15); + OPM_LogWStr(OPS_str, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.numtyp: ", (LONGINT)15); + OPM_LogWNum(OPS_numtyp, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.intval: ", (LONGINT)15); + OPM_LogWNum(OPS_intval, ((LONGINT)(1))); + OPM_LogWLn(); OPP_err(16); } if (OPP_sym == 38) { diff --git a/bootstrap/windows-48/OPP.c b/bootstrap/windows-48/OPP.c index d9698b7e..01d2144d 100644 --- a/bootstrap/windows-48/OPP.c +++ b/bootstrap/windows-48/OPP.c @@ -1783,6 +1783,24 @@ void OPP_Module (OPT_Node *prog, SET opt) if (OPP_sym == 63) { OPS_Get(&OPP_sym); } else { + OPM_LogWLn(); + OPM_LogWStr((CHAR*)"Unexpected symbol found when MODULE expected:", (LONGINT)46); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" sym: ", (LONGINT)15); + OPM_LogWNum(OPP_sym, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.name: ", (LONGINT)15); + OPM_LogWStr(OPS_name, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.str: ", (LONGINT)15); + OPM_LogWStr(OPS_str, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.numtyp: ", (LONGINT)15); + OPM_LogWNum(OPS_numtyp, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.intval: ", (LONGINT)15); + OPM_LogWNum(OPS_intval, ((LONGINT)(1))); + OPM_LogWLn(); OPP_err(16); } if (OPP_sym == 38) { diff --git a/bootstrap/windows-88/OPP.c b/bootstrap/windows-88/OPP.c index 5f515091..be7c13b5 100644 --- a/bootstrap/windows-88/OPP.c +++ b/bootstrap/windows-88/OPP.c @@ -1784,6 +1784,24 @@ void OPP_Module (OPT_Node *prog, SET opt) if (OPP_sym == 63) { OPS_Get(&OPP_sym); } else { + OPM_LogWLn(); + OPM_LogWStr((CHAR*)"Unexpected symbol found when MODULE expected:", (LONGINT)46); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" sym: ", (LONGINT)15); + OPM_LogWNum(OPP_sym, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.name: ", (LONGINT)15); + OPM_LogWStr(OPS_name, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.str: ", (LONGINT)15); + OPM_LogWStr(OPS_str, ((LONGINT)(256))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.numtyp: ", (LONGINT)15); + OPM_LogWNum(OPS_numtyp, ((LONGINT)(1))); + OPM_LogWLn(); + OPM_LogWStr((CHAR*)" OPS.intval: ", (LONGINT)15); + OPM_LogWNum(OPS_intval, ((LONGINT)(1))); + OPM_LogWLn(); OPP_err(16); } if (OPP_sym == 38) { diff --git a/src/compiler/OPP.Mod b/src/compiler/OPP.Mod index 09583505..56f2a3d0 100644 --- a/src/compiler/OPP.Mod +++ b/src/compiler/OPP.Mod @@ -990,7 +990,17 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *) c: LONGINT; done: BOOLEAN; BEGIN OPS.Init; LoopLevel := 0; level := 0; OPS.Get(sym); - IF sym = OPS.module THEN OPS.Get(sym) ELSE err(16) END ; + IF sym = OPS.module THEN OPS.Get(sym) ELSE + (* Debug intermittent failure only found on OpenBSD *) + OPM.LogWLn; + OPM.LogWStr("Unexpected symbol found when MODULE expected:"); OPM.LogWLn; + OPM.LogWStr(" sym: "); OPM.LogWNum(sym,1); OPM.LogWLn; + OPM.LogWStr(" OPS.name: "); OPM.LogWStr(OPS.name); OPM.LogWLn; + OPM.LogWStr(" OPS.str: "); OPM.LogWStr(OPS.str); OPM.LogWLn; + OPM.LogWStr(" OPS.numtyp: "); OPM.LogWNum(OPS.numtyp,1); OPM.LogWLn; + OPM.LogWStr(" OPS.intval: "); OPM.LogWNum(OPS.intval,1); OPM.LogWLn; + err(16) + END; IF sym = OPS.ident THEN OPM.LogWStr("compiling "); OPM.LogWStr(OPS.name); OPM.LogW("."); OPT.Init(OPS.name, opt); OPS.Get(sym); CheckSym(OPS.semicolon);