From 6333faba3cebdeb3fdd388b9277f2dbadb545b22 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 25 Oct 1991 11:15:09 +0000 Subject: [PATCH] Bug fix in padding code --- lang/cem/cemcom.ansi/ival.g | 3 ++- lang/cem/cemcom/ival.g | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) 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; } -- 2.34.1