d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix blocks.c

Browse source
This commit is contained in:
ceriel 1987-08-03 14:40:49 +00:00
parent 1640b8cad8
commit af3e759da2
2 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/cem/cemcom/Makefile
View file

@ -13,13 +13,12 @@ EMKLIB = $(EMHOME)/modules/lib/libemk.a
EMELIB = $(EMHOME)/modules/lib/libeme.a EMELIB = $(EMHOME)/modules/lib/libeme.a
STRLIB = $(EMHOME)/modules/lib/libstring.a STRLIB = $(EMHOME)/modules/lib/libstring.a
PRTLIB = $(EMHOME)/modules/lib/libprint.a PRTLIB = $(EMHOME)/modules/lib/libprint.a
EMMESLIB = $(EMHOME)/modules/lib/libem_mesO.a EMMESLIB = $(EMHOME)/modules/lib/libem_mes.a
INPLIB = $(EMHOME)/modules/lib/libinput.a INPLIB = $(EMHOME)/modules/lib/libinput.a
ALLOCLIB = $(EMHOME)/modules/lib/liballoc.a ALLOCLIB = $(EMHOME)/modules/lib/liballoc.a
MALLOC = $(EMHOME)/modules/lib/malloc.o MALLOC = $(EMHOME)/modules/lib/malloc.o
LIBS = $(EMMESLIB) $(EMHOME)/modules/lib/libemopt.a $(EMHOME)/modules/lib/libread_emk.a \ LIBS = $(INPLIB) $(EMMESLIB) $(EMKLIB) $(PRTLIB) $(STRLIB) \
$(INPLIB) $(EMKLIB) $(PRTLIB) $(STRLIB) \ $(ALLOCLIB) $(MALLOC) $(SYSLIB)
$(ALLOCLIB) $(MALLOC) $(SYSLIB) $(EMHOME)/lib/em_data.a
ELIBS = $(INPLIB) $(EMMESLIB) $(EMELIB) $(PRTLIB) $(STRLIB) \ ELIBS = $(INPLIB) $(EMMESLIB) $(EMELIB) $(PRTLIB) $(STRLIB) \
$(ALLOCLIB) $(MALLOC) $(SYSLIB) $(ALLOCLIB) $(MALLOC) $(SYSLIB)
LIB_INCLUDES = -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg LIB_INCLUDES = -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
@ -36,7 +35,7 @@ ALLOCLLIB = $(EMHOME)/modules/lib/llib-lalloc.ln
LINTLIBS = $(EMMESLLIB) $(EMKLLIB) $(PRTLLIB) $(STRLLIB) $(ALLOCLLIB) $(SYSLLIB) LINTLIBS = $(EMMESLLIB) $(EMKLLIB) $(PRTLLIB) $(STRLLIB) $(ALLOCLLIB) $(SYSLLIB)
CURRDIR = . CURRDIR = .
COPTIONS = -DPEEPHOLE COPTIONS =
# What parser generator to use and how # What parser generator to use and how
GEN = $(EMHOME)/bin/LLgen GEN = $(EMHOME)/bin/LLgen
@ -119,12 +118,12 @@ Emain: Cfiles
@rm -f nmclash.o a.out @rm -f nmclash.o a.out
install: Main install: Main
rm -f $(EMHOME)/lib/em_cemcomO $(EMHOME)/man/em_cemcom.6 rm -f $(EMHOME)/lib/em_cemcom $(EMHOME)/man/em_cemcom.6
cp $(CURRDIR)/main $(EMHOME)/lib/em_cemcomO cp $(CURRDIR)/main $(EMHOME)/lib/em_cemcom
cp $(CURRDIR)/cemcom.1 $(EMHOME)/man/em_cemcom.6 cp $(CURRDIR)/cemcom.1 $(EMHOME)/man/em_cemcom.6
cmp: Main cmp: Main
-cmp $(CURRDIR)/main $(EMHOME)/lib/em_cemcomO -cmp $(CURRDIR)/main $(EMHOME)/lib/em_cemcom
-cmp $(CURRDIR)/cemcom.1 $(EMHOME)/man/em_cemcom.6 -cmp $(CURRDIR)/cemcom.1 $(EMHOME)/man/em_cemcom.6
pr: pr:

8
lang/cem/cemcom/blocks.c
View file

@ -96,7 +96,13 @@ load_block(sz, al)
{ {
arith esz = ATW(sz); /* effective size == actual # pushed bytes */ arith esz = ATW(sz); /* effective size == actual # pushed bytes */
if (((sz == al) && (word_align % al == 0)) || (al % word_align == 0)) if (
((sz == al) && (word_align % al == 0)) ||
(
(sz % word_size == 0 || word_size % sz == 0) &&
(al % word_align == 0)
)
) /* Lots of Irritating Stupid Parentheses */
C_loi(sz); C_loi(sz);
else { else {
#ifndef STB #ifndef STB