From 3d895eef8528a25a00298f8df9ada04c19de33a8 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Fri, 19 Apr 2024 11:26:50 -0400
Subject: [PATCH] Put a couple of Analyze() objects in genmath.cc
---
gcc/cobol/genmath.cc | 2 ++
1 file changed, 2 insertions(+)
diff --git a/gcc/cobol/genmath.cc b/gcc/cobol/genmath.cc
index bc2175a76bd2..b9c7f741b53f 100644
--- a/gcc/cobol/genmath.cc
+++ b/gcc/cobol/genmath.cc
@@ -101,6 +101,7 @@ static void
set_up_arithmetic_error_handler(cbl_label_t *error,
cbl_label_t *not_error)
{
+ Analyze();
// There might, or might not, be error and/or not_error labels:
set_up_arith_error_label(error);
set_up_arith_error_label(not_error);
@@ -276,6 +277,7 @@ arithmetic_error_handler( cbl_label_t *error,
cbl_label_t *not_error,
tree compute_error) // Pointer to in
{
+ Analyze();
if( error )
{
// We had an ON SIZE ERROR phrase
--
GitLab