Bug fix in padding code

diff --git a/lang/cem/cemcom.ansi/ival.g b/lang/cem/cemcom.ansi/ival.g
index 454343b..196d83c 100644 (file)
--- a/lang/cem/cemcom.ansi/ival.g
+++ b/lang/cem/cemcom.ansi/ival.g
@@ -28,6 +28,7 @@
 #include       "assert.h"
 #include       "Lpars.h"
 #include       "sizes.h"
+#include       "align.h"
 #include       "idf.h"
 #include       "level.h"
 #include       "def.h"
@@ -450,7 +451,7 @@ pad(tpx)
        }
 #endif NOBITFIELD
 
-       while (sz >= word_size) {
+       if (tp->tp_align >= word_align) while (sz >= word_size) {
                C_con_cst((arith) 0);
                sz -= word_size;
        }

diff --git a/lang/cem/cemcom/ival.g b/lang/cem/cemcom/ival.g
index 5c05650..ff67b0f 100644 (file)
--- a/lang/cem/cemcom/ival.g
+++ b/lang/cem/cemcom/ival.g
@@ -26,6 +26,7 @@
 #include       "assert.h"
 #include       "Lpars.h"
 #include       "sizes.h"
+#include       "align.h"
 #include       "idf.h"
 #include       "level.h"
 #include       "def.h"
@@ -444,7 +445,7 @@ pad(tpx)
                        break;
        }
 
-       while (sz >= word_size) {
+       if (tp->tp_align >= word_align) while (sz >= word_size) {
                C_con_cst((arith) 0);
                sz -= word_size;
        }