[COMMITTED] a68: use PUBLICIZED attribute of tax in a68_low_*_decl

[Jose E. Marchesi]

---
 gcc/algol68/a68-low.cc | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gcc/algol68/a68-low.cc b/gcc/algol68/a68-low.cc
index a3e768e4696..7d2b5e97472 100644
--- a/gcc/algol68/a68-low.cc
+++ b/gcc/algol68/a68-low.cc
@@ -479,8 +479,10 @@ a68_make_proc_identity_declaration_decl (NODE_T *identifier,
 
   if (public_range)
     {
+      bool publicized = PUBLICIZED (TAX (identifier));
+
       DECL_EXTERNAL (func_decl) = 0;
-      if (PUBLICIZED (identifier))
+      if (publicized)
 	TREE_PUBLIC (func_decl) = 1;
       else
 	TREE_PUBLIC (func_decl) = 0;
@@ -538,9 +540,11 @@ a68_make_identity_declaration_decl (NODE_T *identifier,
 
   if (public_range)
     {
+      bool publicized = PUBLICIZED (TAX (identifier));
+
       DECL_EXTERNAL (decl) = 0;
       TREE_STATIC (decl) = 1;
-      if (PUBLICIZED (identifier))
+      if (publicized)
 	TREE_PUBLIC (decl) = 1;
       else
 	TREE_PUBLIC (decl) = 0;
@@ -593,9 +597,11 @@ a68_make_variable_declaration_decl (NODE_T *identifier,
 
   if (public_range)
     {
+      bool publicized = PUBLICIZED (TAX (identifier));
+
       DECL_EXTERNAL (decl) = 0;
       TREE_STATIC (decl) = 1;
-      if (PUBLICIZED (identifier))
+      if (publicized)
 	TREE_PUBLIC (decl) = 1;
       else
 	TREE_PUBLIC (decl) = 0;
-- 
2.30.2