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

Record curpos on every inR.Read. Add more debug to catch OpenBSD read failure.

Browse source
This commit is contained in:
David Brown 2016-12-05 17:00:55 +00:00
parent c7e88f4634
commit cf2da3000f
8 changed files with 47 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

10
bootstrap/unix-44/OPM.c
View file

@ -484,11 +484,13 @@ void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
void OPM_Get (CHAR *ch) void OPM_Get (CHAR *ch)
{ {
Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
if (*ch == 0x0d) {
OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ); OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ);
} else { Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
OPM_curpos += 1; if ((OPM_curpos == 0 && OPM_inR.eot)) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ", 53);
OPM_LogWNum((INT16)*ch, 1);
OPM_LogW('.');
} }
if ((*ch < 0x09 && !OPM_inR.eot)) { if ((*ch < 0x09 && !OPM_inR.eot)) {
*ch = ' '; *ch = ' ';

10
bootstrap/unix-48/OPM.c
View file

@ -484,11 +484,13 @@ void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
void OPM_Get (CHAR *ch) void OPM_Get (CHAR *ch)
{ {
Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
if (*ch == 0x0d) {
OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ); OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ);
} else { Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
OPM_curpos += 1; if ((OPM_curpos == 0 && OPM_inR.eot)) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ", 53);
OPM_LogWNum((INT16)*ch, 1);
OPM_LogW('.');
} }
if ((*ch < 0x09 && !OPM_inR.eot)) { if ((*ch < 0x09 && !OPM_inR.eot)) {
*ch = ' '; *ch = ' ';

10
bootstrap/unix-88/OPM.c
View file

@ -484,11 +484,13 @@ void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
void OPM_Get (CHAR *ch) void OPM_Get (CHAR *ch)
{ {
Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
if (*ch == 0x0d) {
OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ); OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ);
} else { Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
OPM_curpos += 1; if ((OPM_curpos == 0 && OPM_inR.eot)) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ", 53);
OPM_LogWNum((INT16)*ch, 1);
OPM_LogW('.');
} }
if ((*ch < 0x09 && !OPM_inR.eot)) { if ((*ch < 0x09 && !OPM_inR.eot)) {
*ch = ' '; *ch = ' ';

10
bootstrap/windows-48/OPM.c
View file

@ -484,11 +484,13 @@ void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
void OPM_Get (CHAR *ch) void OPM_Get (CHAR *ch)
{ {
Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
if (*ch == 0x0d) {
OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ); OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ);
} else { Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
OPM_curpos += 1; if ((OPM_curpos == 0 && OPM_inR.eot)) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ", 53);
OPM_LogWNum((INT16)*ch, 1);
OPM_LogW('.');
} }
if ((*ch < 0x09 && !OPM_inR.eot)) { if ((*ch < 0x09 && !OPM_inR.eot)) {
*ch = ' '; *ch = ' ';

10
bootstrap/windows-88/OPM.c
View file

@ -484,11 +484,13 @@ void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
void OPM_Get (CHAR *ch) void OPM_Get (CHAR *ch)
{ {
Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
if (*ch == 0x0d) {
OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ); OPM_curpos = Texts_Pos(&OPM_inR, Texts_Reader__typ);
} else { Texts_Read(&OPM_inR, Texts_Reader__typ, &*ch);
OPM_curpos += 1; if ((OPM_curpos == 0 && OPM_inR.eot)) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ", 53);
OPM_LogWNum((INT16)*ch, 1);
OPM_LogW('.');
} }
if ((*ch < 0x09 && !OPM_inR.eot)) { if ((*ch < 0x09 && !OPM_inR.eot)) {
*ch = ' '; *ch = ' ';

15
src/compiler/OPM.Mod
View file

@ -387,12 +387,17 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
PROCEDURE Get*(VAR ch: CHAR); (* read next character from source text, 0X if eof *) PROCEDURE Get*(VAR ch: CHAR); (* read next character from source text, 0X if eof *)
BEGIN BEGIN
curpos := Texts.Pos(inR);
Texts.Read(inR, ch); Texts.Read(inR, ch);
IF ch = 0DX THEN
curpos := Texts.Pos(inR); (* supports CR LF mapping *) (* OpenBSD intermittent file read error debugging. *)
ELSE IF (curpos = 0) & inR.eot THEN
INC(curpos) LogWLn; LogWStr("DEBUG: OPM.Get returned inR.eot at curpos = 0, ch = ");
END ; LogWNum(ORD(ch),1); LogW(".");
END;
(* TODO, remove curpos var, and provide fn returning Texts.Pos(inR) - 1. *)
(* Or, better still, record symbol position in OPS. *)
IF (ch < 09X) & ~inR.eot THEN ch := " " END IF (ch < 09X) & ~inR.eot THEN ch := " " END
END Get; END Get;

6
src/test/confidence/intsyntax/expected
View file

@ -2,14 +2,14 @@ IntSyntax.mod compiling IntSyntax.
14: i := l; (* Bad, INTEGER shorter than LONGINT *) 14: i := l; (* Bad, INTEGER shorter than LONGINT *)
^ ^
pos 341 err 113 incompatible assignment pos 340 err 113 incompatible assignment
15: s := l; (* Bad, SHORTINT shorter than LONGINT *) 15: s := l; (* Bad, SHORTINT shorter than LONGINT *)
^ ^
pos 393 err 113 incompatible assignment pos 392 err 113 incompatible assignment
16: i := l; (* Bad, SHORTINT shorter than INTEGER *) 16: i := l; (* Bad, SHORTINT shorter than INTEGER *)
^ ^
pos 446 err 113 incompatible assignment pos 445 err 113 incompatible assignment
Module compilation failed. Module compilation failed.