From: ceriel <none@none>
Date: Fri, 25 Oct 1991 11:15:09 +0000 (+0000)
Subject: Bug fix in padding code
X-Git-Tag: release-5-5~693
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=6333faba3cebdeb3fdd388b9277f2dbadb545b22;p=ack.git

Bug fix in padding code
---

diff --git a/lang/cem/cemcom.ansi/ival.g b/lang/cem/cemcom.ansi/ival.g
index 454343bc6..196d83c9c 100644
--- 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 5c05650dd..ff67b0f6d 100644
--- 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;
 	}