godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fix in padding code

Browse Source
This commit is contained in:
ceriel
1991-10-25 11:15:09 +00:00
parent 84e6e1a10b
commit 6333faba3c
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lang/cem/cemcom.ansi/ival.g
View File

@@ -28,6 +28,7 @@
#include "assert.h" #include "assert.h"
#include "Lpars.h" #include "Lpars.h"
#include "sizes.h" #include "sizes.h"
#include "align.h"
#include "idf.h" #include "idf.h"
#include "level.h" #include "level.h"
#include "def.h" #include "def.h"
@@ -450,7 +451,7 @@ pad(tpx)
} }
#endif NOBITFIELD #endif NOBITFIELD
while (sz >= word_size) { if (tp->tp_align >= word_align) while (sz >= word_size) {
C_con_cst((arith) 0); C_con_cst((arith) 0);
sz -= word_size; sz -= word_size;
} }

3
lang/cem/cemcom/ival.g
View File

@@ -26,6 +26,7 @@
#include "assert.h" #include "assert.h"
#include "Lpars.h" #include "Lpars.h"
#include "sizes.h" #include "sizes.h"
#include "align.h"
#include "idf.h" #include "idf.h"
#include "level.h" #include "level.h"
#include "def.h" #include "def.h"
@@ -444,7 +445,7 @@ pad(tpx)
break; break;
} }
while (sz >= word_size) { if (tp->tp_align >= word_align) while (sz >= word_size) {
C_con_cst((arith) 0); C_con_cst((arith) 0);
sz -= word_size; sz -= word_size;
} }