From 93abf3e712882a7afab421f051ec7f89d206c7d5 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Mon, 10 Feb 2025 14:39:42 -0500
Subject: [PATCH] parser_free returns early in syntax-only mode
closes #37
---
gcc/cobol/genapi.cc | 2 ++
1 file changed, 2 insertions(+)
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 1b94e76bc693..9c2ab8ad207a 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -6134,6 +6134,8 @@ parser_allocate(cbl_refer_t size_or_based,
void
parser_free( size_t n, cbl_refer_t refers[] )
{
+ if( mode_syntax_only() ) return; // Normally handled by SHOW_PARSE, if present
+
Analyze();
for( auto p = refers; p < refers + n; p++ )
{
--
GitLab