File algol68g-fix-overflow.patch of Package algol68g

--- a/src/a68g/char.c
+++ b/src/a68g/char.c
@@ -473,8 +473,9 @@
 //! @brief OP LENG = (BYTES) LONG BYTES
      void genie_leng_bytes (NODE_T * p)
 {
-  A68_BYTES a;
-  POP_OBJECT (p, &a, A68_BYTES);
+  A68_LONG_BYTES a;
+  memset (VALUE (&a), 0, sizeof VALUE (&a));
+  POP_OBJECT (p, (A68_BYTES *) &a, A68_BYTES);
   PUSH_LONG_BYTES (p, VALUE (&a));
 }