vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 09:52:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add debug for intermittent failure only on OpenBSD.

Browse source
This commit is contained in:
David Brown 2016-08-23 20:08:17 +01:00
parent b63bfd4b4a
commit 37ba47a202
6 changed files with 101 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/compiler/OPP.Mod
View file

@ -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);