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

Update bootstrap sources.

Browse source
This commit is contained in:
David Brown 2016-08-12 12:19:02 +01:00
parent f5ae1af37d
commit 0049d88a0f
203 changed files with 621 additions and 1873 deletions
Download patch file Download diff file Expand all files Collapse all files

17
bootstrap/windows-88/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/08/12] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE
#include "SYSTEM.h"
#include "OPM.h"
@ -91,8 +91,8 @@ OPT_Node OPB_NewLeaf (OPT_Object obj)
node = OPT_NewNode(9);
break;
default:
OPB_err(127);
node = OPT_NewNode(0);
OPB_err(127);
break;
}
node->obj = obj;
@ -1597,8 +1597,9 @@ void OPB_SetElem (OPT_Node *x)
static void OPB_CheckAssign (OPT_Struct x, OPT_Node ynode)
{
OPT_Struct y = NIL;
INTEGER f, g;
OPT_Struct y = NIL, p = NIL, q = NIL;
OPT_Struct p = NIL, q = NIL;
if (OPM_Verbose) {
OPM_LogWLn();
OPM_LogWStr((CHAR*)"PROCEDURE CheckAssign", (LONGINT)22);
@ -1643,14 +1644,8 @@ static void OPB_CheckAssign (OPT_Struct x, OPT_Node ynode)
}
break;
case 6:
if (OPM_LIntSize == 4) {
if (!__IN(g, 0x70)) {
OPB_err(113);
}
} else {
if (!__IN(g, 0x70)) {
OPB_err(113);
}
if (!__IN(g, 0x70)) {
OPB_err(113);
}
break;
case 7: