From eaa2937f14d2a3158aa516377c98ea6b1c2052c1 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Mon, 22 Apr 2024 10:33:05 -0400
Subject: [PATCH] Turn on TREE_USED in gg_get_address_of()
---
gcc/cobol/gengen.cc | 1 +
1 file changed, 1 insertion(+)
diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index 950f20e92b9d..4cf03e5ab3cb 100644
--- a/gcc/cobol/gengen.cc
+++ b/gcc/cobol/gengen.cc
@@ -1516,6 +1516,7 @@ gg_get_address_of(const tree var_decl)
// I'll take the dangerous road.
TREE_ADDRESSABLE(var_decl) = 1;
+ TREE_USED(var_decl) = 1;
return build1( ADDR_EXPR,
build_pointer_type (TREE_TYPE(var_decl)),
var_decl);
--
GitLab