From 576c57b39b06896d4db5f75384f39c7fef7710cf Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Tue, 6 Dec 2016 20:38:09 +0400
Subject: [PATCH] update of bootstrap sources.

---
 bootstrap/unix-44/OPP.c    | 2 +-
 bootstrap/unix-48/OPP.c    | 2 +-
 bootstrap/unix-88/OPP.c    | 2 +-
 bootstrap/windows-48/OPP.c | 2 +-
 bootstrap/windows-88/OPP.c | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/bootstrap/unix-44/OPP.c b/bootstrap/unix-44/OPP.c
index 9d510a11..ebecc1ea 100644
--- a/bootstrap/unix-44/OPP.c
+++ b/bootstrap/unix-44/OPP.c
@@ -1665,7 +1665,7 @@ static void OPP_Block (OPT_Node *procdec, OPT_Node *statseq)
 				obj->typ = OPT_undftyp;
 				OPP_CheckMark(&obj->vis);
 				if (OPP_sym == 9) {
-					if (((((((((__STRCMP(obj->name, OPT_sinttyp->strobj->name) == 0 || __STRCMP(obj->name, OPT_inttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_linttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_hinttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_realtyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_lrltyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_settyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_chartyp->strobj->name) == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
+					if (((((((((__STRCMP(obj->name, "SHORTINT") == 0 || __STRCMP(obj->name, "INTEGER") == 0) || __STRCMP(obj->name, "LONGINT") == 0) || __STRCMP(obj->name, "HUGEINT") == 0) || __STRCMP(obj->name, "REAL") == 0) || __STRCMP(obj->name, "LONGREAL") == 0) || __STRCMP(obj->name, "SET") == 0) || __STRCMP(obj->name, "CHAR") == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
 						OPM_Mark(-310, OPM_curpos);
 					}
 					OPS_Get(&OPP_sym);
diff --git a/bootstrap/unix-48/OPP.c b/bootstrap/unix-48/OPP.c
index 9d510a11..ebecc1ea 100644
--- a/bootstrap/unix-48/OPP.c
+++ b/bootstrap/unix-48/OPP.c
@@ -1665,7 +1665,7 @@ static void OPP_Block (OPT_Node *procdec, OPT_Node *statseq)
 				obj->typ = OPT_undftyp;
 				OPP_CheckMark(&obj->vis);
 				if (OPP_sym == 9) {
-					if (((((((((__STRCMP(obj->name, OPT_sinttyp->strobj->name) == 0 || __STRCMP(obj->name, OPT_inttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_linttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_hinttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_realtyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_lrltyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_settyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_chartyp->strobj->name) == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
+					if (((((((((__STRCMP(obj->name, "SHORTINT") == 0 || __STRCMP(obj->name, "INTEGER") == 0) || __STRCMP(obj->name, "LONGINT") == 0) || __STRCMP(obj->name, "HUGEINT") == 0) || __STRCMP(obj->name, "REAL") == 0) || __STRCMP(obj->name, "LONGREAL") == 0) || __STRCMP(obj->name, "SET") == 0) || __STRCMP(obj->name, "CHAR") == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
 						OPM_Mark(-310, OPM_curpos);
 					}
 					OPS_Get(&OPP_sym);
diff --git a/bootstrap/unix-88/OPP.c b/bootstrap/unix-88/OPP.c
index dc5f3a8b..4db27f7d 100644
--- a/bootstrap/unix-88/OPP.c
+++ b/bootstrap/unix-88/OPP.c
@@ -1665,7 +1665,7 @@ static void OPP_Block (OPT_Node *procdec, OPT_Node *statseq)
 				obj->typ = OPT_undftyp;
 				OPP_CheckMark(&obj->vis);
 				if (OPP_sym == 9) {
-					if (((((((((__STRCMP(obj->name, OPT_sinttyp->strobj->name) == 0 || __STRCMP(obj->name, OPT_inttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_linttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_hinttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_realtyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_lrltyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_settyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_chartyp->strobj->name) == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
+					if (((((((((__STRCMP(obj->name, "SHORTINT") == 0 || __STRCMP(obj->name, "INTEGER") == 0) || __STRCMP(obj->name, "LONGINT") == 0) || __STRCMP(obj->name, "HUGEINT") == 0) || __STRCMP(obj->name, "REAL") == 0) || __STRCMP(obj->name, "LONGREAL") == 0) || __STRCMP(obj->name, "SET") == 0) || __STRCMP(obj->name, "CHAR") == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
 						OPM_Mark(-310, OPM_curpos);
 					}
 					OPS_Get(&OPP_sym);
diff --git a/bootstrap/windows-48/OPP.c b/bootstrap/windows-48/OPP.c
index 9d510a11..ebecc1ea 100644
--- a/bootstrap/windows-48/OPP.c
+++ b/bootstrap/windows-48/OPP.c
@@ -1665,7 +1665,7 @@ static void OPP_Block (OPT_Node *procdec, OPT_Node *statseq)
 				obj->typ = OPT_undftyp;
 				OPP_CheckMark(&obj->vis);
 				if (OPP_sym == 9) {
-					if (((((((((__STRCMP(obj->name, OPT_sinttyp->strobj->name) == 0 || __STRCMP(obj->name, OPT_inttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_linttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_hinttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_realtyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_lrltyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_settyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_chartyp->strobj->name) == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
+					if (((((((((__STRCMP(obj->name, "SHORTINT") == 0 || __STRCMP(obj->name, "INTEGER") == 0) || __STRCMP(obj->name, "LONGINT") == 0) || __STRCMP(obj->name, "HUGEINT") == 0) || __STRCMP(obj->name, "REAL") == 0) || __STRCMP(obj->name, "LONGREAL") == 0) || __STRCMP(obj->name, "SET") == 0) || __STRCMP(obj->name, "CHAR") == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
 						OPM_Mark(-310, OPM_curpos);
 					}
 					OPS_Get(&OPP_sym);
diff --git a/bootstrap/windows-88/OPP.c b/bootstrap/windows-88/OPP.c
index dc5f3a8b..4db27f7d 100644
--- a/bootstrap/windows-88/OPP.c
+++ b/bootstrap/windows-88/OPP.c
@@ -1665,7 +1665,7 @@ static void OPP_Block (OPT_Node *procdec, OPT_Node *statseq)
 				obj->typ = OPT_undftyp;
 				OPP_CheckMark(&obj->vis);
 				if (OPP_sym == 9) {
-					if (((((((((__STRCMP(obj->name, OPT_sinttyp->strobj->name) == 0 || __STRCMP(obj->name, OPT_inttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_linttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_hinttyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_realtyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_lrltyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_settyp->strobj->name) == 0) || __STRCMP(obj->name, OPT_chartyp->strobj->name) == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
+					if (((((((((__STRCMP(obj->name, "SHORTINT") == 0 || __STRCMP(obj->name, "INTEGER") == 0) || __STRCMP(obj->name, "LONGINT") == 0) || __STRCMP(obj->name, "HUGEINT") == 0) || __STRCMP(obj->name, "REAL") == 0) || __STRCMP(obj->name, "LONGREAL") == 0) || __STRCMP(obj->name, "SET") == 0) || __STRCMP(obj->name, "CHAR") == 0) || __STRCMP(obj->name, "TRUE") == 0) || __STRCMP(obj->name, "FALSE") == 0) {
 						OPM_Mark(-310, OPM_curpos);
 					}
 					OPS_Get(&OPP_sym);