From afc9cd73d261ea6841b52d4eef672d3bf1e6d262 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Thu, 19 Dec 2024 10:45:22 -0500
Subject: [PATCH] allow "section" to be part of a name
---
gcc/cobol/scan.l | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gcc/cobol/scan.l b/gcc/cobol/scan.l
index 5b0e553ec26a..7ee809bc5d45 100644
--- a/gcc/cobol/scan.l
+++ b/gcc/cobol/scan.l
@@ -1489,7 +1489,7 @@ USE({SPC}FOR)? { return USE; }
EXIT{SPC}/(PROGRAM|SECTION|PARAGRAPH|PERFORM) {
return EXIT; }
- EXIT{OSPC}/[.] { return SIMPLE_EXIT; }
+ EXIT{OSPC}/{DOTSEP} { return SIMPLE_EXIT; }
EXIT { return EXIT; } // (PROGRAM|SECTION|PARAGRAPH|PERFORM)
RETURNING { return RETURNING; }
@@ -1499,8 +1499,9 @@ USE({SPC}FOR)? { return USE; }
STACK { return STACK; }
TOP-LEVEL { return TOP_LEVEL; }
- {NAME}/{SPC}SECTION\b { yylval.string = strdup(yytext);
- return NAME; }
+ {NAME}/{SPC}SECTION{OSPC}{DOTSEP} {
+ yylval.string = strdup(yytext);
+ return NAME; }
(IS{SPC})?POSITIVE/[[:space:]] { yylval.number = IS; return POSITIVE; }
(IS{SPC})?NEGATIVE/[[:space:]] { yylval.number = IS; return NEGATIVE; }
--
GitLab