From 0a048d15d4b0e81b1d5c0840ea6b0751808950cc Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Fri, 31 Jan 2025 05:59:57 -0500
Subject: [PATCH] UAT tests pass
---
gcc/cobol/parse.y | 2 +-
gcc/cobol/token_names.h | 9 +++++----
gcc/cobol/token_names.h.gen | 2 --
3 files changed, 6 insertions(+), 7 deletions(-)
diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y
index 4fea1b772bb5..11dcea94728c 100644
--- a/gcc/cobol/parse.y
+++ b/gcc/cobol/parse.y
@@ -531,7 +531,7 @@
PROGRAM_ID "PROGRAM-ID"
PROGRAM_kw "Program" PROPERTY PROTOTYPE PSEUDOTEXT
- QUOTES
+ QUOTES "QUOTE"
RANDOM RANDOM_SEED RANGE RAISE RAISING
RD RECORD RECORDING RECORDS RECURSIVE
diff --git a/gcc/cobol/token_names.h b/gcc/cobol/token_names.h
index 699d51e0e43f..f8b9d331a1b0 100644
--- a/gcc/cobol/token_names.h
+++ b/gcc/cobol/token_names.h
@@ -1,5 +1,5 @@
// generated by ./token_names.h.gen ../../build/gcc/cobol/parse.h
-// Fri Jan 31 05:29:40 EST 2025
+// Fri Jan 31 05:52:10 EST 2025
tokens = {
{ "identification", IDENTIFICATION_DIV }, // 258
{ "environment", ENVIRONMENT_DIV }, // 259
@@ -446,7 +446,7 @@ tokens = {
{ "ph", PH }, // 696
{ "pi", PI }, // 697
{ "pic", PIC }, // 698
- { "pic", PICTURE }, // 699
+ { "picture", PICTURE }, // 699
{ "plus", PLUS }, // 700
{ "present-value", PRESENT_VALUE }, // 701
{ "print-switch", PRINT_SWITCH }, // 702
@@ -677,6 +677,7 @@ tokens = {
{ "end-unstring", END_UNSTRING }, // 926
{ "end-write", END_WRITE }, // 927
{ "end-if", END_IF }, // 928
+ { "thru", THRU }, // 929
{ "through", THRU }, // 929
{ "or", OR }, // 930
{ "and", AND }, // 931
@@ -1130,7 +1131,7 @@ token_names = {
"PH", // 438 (696)
"PI", // 439 (697)
"PIC", // 440 (698)
- "PIC", // 441 (699)
+ "PICTURE", // 441 (699)
"PLUS", // 442 (700)
"PRESENT-VALUE", // 443 (701)
"PRINT-SWITCH", // 444 (702)
@@ -1360,7 +1361,7 @@ token_names = {
"END-UNSTRING", // 668 (926)
"END-WRITE", // 669 (927)
"END-IF", // 670 (928)
- "THROUGH", // 671 (929)
+ "THRU", // 671 (929)
"OR", // 672 (930)
"AND", // 673 (931)
"NOT", // 674 (932)
diff --git a/gcc/cobol/token_names.h.gen b/gcc/cobol/token_names.h.gen
index f43d7c1b8c99..58957575a5b1 100755
--- a/gcc/cobol/token_names.h.gen
+++ b/gcc/cobol/token_names.h.gen
@@ -26,8 +26,6 @@ BEGIN {
gsub( /^CODESET/, "CODE-SET", $2 )
gsub( /^IO/, "I-O", $2 )
- gsub( /^PICTURE/, "PIC", $2 )
- gsub( /^THRU/, "THROUGH", $2 )
gsub(/_/, "-")
upper = $2
--
GitLab