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

Additions for non-correcting error recovery

Browse source
This commit is contained in:
ceriel 1997-02-21 17:22:42 +00:00
parent 99ac23b4b4
commit 2382ef1a27
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lang/m2/m2mm/proto.make
View file

@ -12,7 +12,7 @@ SRC_DIR = \
TABGEN= $(UTIL_BIN)/tabgen TABGEN= $(UTIL_BIN)/tabgen
LLGEN = $(UTIL_BIN)/LLgen LLGEN = $(UTIL_BIN)/LLgen
LLGENOPTIONS = \ LLGENOPTIONS = \
-v -v -n
SRC_G = $(SRC_DIR)/program.g $(SRC_DIR)/declar.g \ SRC_G = $(SRC_DIR)/program.g $(SRC_DIR)/declar.g \
$(SRC_DIR)/expression.g $(SRC_DIR)/statement.g $(SRC_DIR)/expression.g $(SRC_DIR)/statement.g
@ -24,7 +24,7 @@ SRC_C = $(SRC_DIR)/LLlex.c $(SRC_DIR)/LLmessage.c $(SRC_DIR)/error.c \
$(SRC_DIR)/idf.c $(SRC_DIR)/input.c $(SRC_DIR)/misc.c \ $(SRC_DIR)/idf.c $(SRC_DIR)/input.c $(SRC_DIR)/misc.c \
$(SRC_DIR)/options.c $(SRC_DIR)/options.c
GEN_C = tokenfile.c program.c declar.c expression.c statement.c \ GEN_C = tokenfile.c program.c declar.c expression.c statement.c \
symbol2str.c char.c Lpars.c symbol2str.c char.c Lpars.c Lncor.c
CFILES= $(SRC_C) $(GEN_C) CFILES= $(SRC_C) $(GEN_C)
SRC_H = $(SRC_DIR)/LLlex.h $(SRC_DIR)/class.h \ SRC_H = $(SRC_DIR)/LLlex.h $(SRC_DIR)/class.h \
@ -104,6 +104,7 @@ clean:
LLfiles: $(GFILES) LLfiles: $(GFILES)
$(LLGEN) $(LLGENOPTIONS) $(GFILES) $(LLGEN) $(LLGENOPTIONS) $(GFILES)
@touch LLfiles @touch LLfiles
@if [ -f Lncor.c ] ; then : ; else touch Lncor.c ; fi
tokenfile.g: $(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokfile tokenfile.g: $(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokfile
$(SRC_DIR)/make.tokfile <$(SRC_DIR)/tokenname.c >tokenfile.g $(SRC_DIR)/make.tokfile <$(SRC_DIR)/tokenname.c >tokenfile.g

3
lang/m2/m2mm/statement.g
View file

@ -30,7 +30,8 @@ statement :
ActualParameters? ActualParameters?
| |
[ BECOMES [ BECOMES
| '=' { error("':=' expected instead of '='"); | %erroneous
'=' { error("':=' expected instead of '='");
DOT = BECOMES; DOT = BECOMES;
} }
] ]