From 31a04c162180884adb912b744863667e148a9953 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Fri, 26 Apr 2024 19:46:19 -0400
Subject: [PATCH] Got rid of inexplicable assign(subscript, INT) when it needed
to be LONG) in get_data_location()
---
gcc/cobol/genutil.cc | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gcc/cobol/genutil.cc b/gcc/cobol/genutil.cc
index c0be6cfba5ad..255910dcbfc0 100644
--- a/gcc/cobol/genutil.cc
+++ b/gcc/cobol/genutil.cc
@@ -1620,7 +1620,7 @@ tree get_data_location( tree data_type,
if( enabled_exceptions.match(ec_bound_subscript_e) )
{
set_exception_code(ec_bound_subscript_e);
- gg_assign(subscript, integer_one_node);
+ gg_assign(subscript, gg_cast(LONG, integer_one_node));
}
else
{
@@ -1629,14 +1629,14 @@ tree get_data_location( tree data_type,
}
ELSE
{
- gg_assign(subscript, gg_cast(INT, value128));
+ gg_assign(subscript, gg_cast(LONG, value128));
}
ENDIF
}
else
{
get_integer_value(value128, NULL, refer->subscripts[i].field);
- gg_assign(subscript, gg_cast(INT, value128));
+ gg_assign(subscript, gg_cast(LONG, value128));
}
--
GitLab