From f92b0e36b2a55ff13bfd4099fb188e63b226c106 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Wed, 27 Mar 2024 23:31:25 -0400
Subject: [PATCH] temporary_e and intermediate_e variables go onto the stack,
not static
---
gcc/cobol/genapi.cc | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index b617a3d7ea41..4d4622274c05 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -14167,10 +14167,10 @@ actually_create_the_static_field( cbl_field_t *new_var,
build_int_cst_type(SIZE_T, new_var->occurs.bounds.upper) );
next_field = TREE_CHAIN(next_field);
- // INT, "attr",
+ // SIZE_T, "attr",
CONSTRUCTOR_APPEND_ELT( CONSTRUCTOR_ELTS(constr),
next_field,
- build_int_cst_type(INT, new_var->attr) );
+ build_int_cst_type(SIZE_T, new_var->attr) );
next_field = TREE_CHAIN(next_field);
// SCHAR, "type",
@@ -14385,7 +14385,7 @@ psa_new_var_decl(cbl_field_t *new_var, const char *external_record_base)
{
new_var_decl = gg_define_variable( cblc_field_type_node,
base_name,
- vs_static);
+ vs_stack); // vs_stack);
}
else
{
--
GitLab