[COMMITTED] a68: avoid unused variable in complete_encoded_mode

[Jose E. Marchesi]

---
 gcc/algol68/a68-imports.cc | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gcc/algol68/a68-imports.cc b/gcc/algol68/a68-imports.cc
index 61f7d668bc7..c8b945c4956 100644
--- a/gcc/algol68/a68-imports.cc
+++ b/gcc/algol68/a68-imports.cc
@@ -438,9 +438,12 @@ a68_get_packet_exports (const std::string &filename,
       DUINT16 (len);				\
       if (pos + len > size)			\
 	goto decode_error;			\
-      str = (char *) xmalloc (len);		\
-      memcpy (str, data + pos, len);		\
-      pos += len;				\
+      if (len > 0)				\
+	{					\
+	  str = (char *) xmalloc (len);		\
+	  memcpy (str, data + pos, len);	\
+	  pos += len;				\
+	}					\
       (V) = str;				\
     }						\
   while (0)
@@ -696,7 +699,7 @@ complete_encoded_mode (encoded_modes_map_t &encoded_modes, uint64_t offset)
 	      em->moid = NO_MOID;
 	      return NO_MOID;
 	    }
-	  (void) a68_add_mode_to_pack (&pack, arg_moid, "", NO_NODE);
+	  (void) a68_add_mode_to_pack (&pack, arg_moid, arg_name, NO_NODE);
 	}
       SUB (em->moid) = complete_encoded_mode (encoded_modes,
 					      em->data.proc.ret_mode_offset);
-- 
2.30.2