From 996ee310b479b307612a16a8ad6c81af2017dffc Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Sun, 22 Dec 2024 22:13:24 -0500
Subject: [PATCH] Make libgcobol.cc:enabled_ECs a local static.
---
libgcobol/libgcobol.cc | 2 +-
libgcobol/valconv.cc | 5 +++--
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index afd5e31c0e87..8f98068f11d4 100644
--- a/libgcobol/libgcobol.cc
+++ b/libgcobol/libgcobol.cc
@@ -10745,7 +10745,7 @@ cbl_enabled_exceptions_array_t::match( ec_type_t ec, size_t file ) const {
return output < ecs + nec? output->enabled : false;
}
-cbl_enabled_exceptions_array_t enabled_ECs;
+static cbl_enabled_exceptions_array_t enabled_ECs;
/*
* Store and report the enabled exceptions.
diff --git a/libgcobol/valconv.cc b/libgcobol/valconv.cc
index 795cdb810dae..b32b1ed63c86 100644
--- a/libgcobol/valconv.cc
+++ b/libgcobol/valconv.cc
@@ -1371,8 +1371,9 @@ __gg__remove_trailing_zeroes(char *p)
}
}
-// This is just a convenient place to put this, since it is used in both the
-// run-time and compile-time code
+// This is a convenient place to put this table, since it is used in both the
+// run-time and compile-time code, and this source code module is one of the
+// ones that are copied from ./libgcobol to gcc/cobol as part of the build.
ec_descr_t __gg__exception_table[] = {
{ ec_all_e, ec_category_none_e,
--
GitLab