From 9d18f84be338b49f3fd7910e0b4d350eb0072fba Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Mon, 22 Apr 2024 10:48:13 -0400
Subject: [PATCH] Set machine_mode of cblc_var_t to BLKmode
---
gcc/cobol/genapi.cc | 3 +++
1 file changed, 3 insertions(+)
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 656cfc3c3a20..b83762d934b1 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -14890,6 +14890,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_external);
+ SET_DECL_MODE(new_var_decl, BLKmode);
}
else if( new_var->attr & (temporary_e | intermediate_e)
&& new_var->type != FldLiteralA
@@ -14898,12 +14899,14 @@ 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_REUSE);
+ SET_DECL_MODE(new_var_decl, BLKmode);
}
else
{
new_var_decl = gg_define_variable( cblc_field_type_node,
base_name,
vs_static);
+ SET_DECL_MODE(new_var_decl, BLKmode);
}
}
return new_var_decl;
--
GitLab