fixed very minor bug: strings should be aligned on word_boundaries

diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index 4506d09..6275133 100644 (file)
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -153,7 +153,8 @@ GetString(upto)
        }
        str->s_length = p - str->s_str;
        *p = '\0';
-       str->s_str = Realloc(str->s_str, (unsigned)(str->s_length) + 1);
+       str->s_str = Realloc(str->s_str,
+         (unsigned)((str->s_length+(int)word_size) & ~((int)word_size-1)));
        if (str->s_length == 0) str->s_length = 1;
        /* ??? string length at least 1 ??? */
        return str;