COMPARE = $(EMHOME)/modules/compare
LIBOPT = libopt.a
-CSRC = nopt.c aux.c mkcalls.c pseudo.c outputdfa.c outcalls.c\
+# set HOWMUCH to head -20 to limit number of patterns used
+#HOWMUCH = head -20
+HOWMUCH = cat
+
+LEXLIB = -ll
+INCLDIR = -I$(EMHOME)/h -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
+PREFLAGS = $(INCLDIR) -DPRIVATE=static
+# Enable the next line to produce a version that output's the line number
+# from the patterns file each time an optimization is performed.
+#PREFLAG = $(PREFLAGS) -DSTATS
+PROFFLAG = -O
+CFLAGS = $(PREFLAGS) $(PROFFLAG)
+LLOPT =
+CMD = '$(CC) -c $(CFLAGS)'
+
+.SUFFIXES: .d .r
+
+.r.d:; CMD=$(CMD); export CMD; awk -f makefuns.awk $*.r | sh
+ touch $@
+
+CSRC = nopt.c aux.c mkcalls.c outputdfa.c outcalls.c\
findworst.c initlex.c
-SRCS = Makefile nopt.h parser.h parser.g syntax.l patterns $(CSRC)
+SRCS = Makefile nopt.h parser.h parser.g syntax.l pseudo.r patterns $(CSRC)
-NOFILES = nopt.o dfa.o trans.o incalls.o pseudo.o aux.o mkcalls.o
+NOFILES = nopt.o dfa.o trans.o aux.o mkcalls.o
POFILES = parser.o syntax.o outputdfa.o outcalls.o findworst.o initlex.o Lpars.o
GENFILES = Lpars.h Lpars.c parserdummy parser.c syntax.c dfadummy\
- dfa.c dfa.c.save trans.c trans.c.save incalls.c incalls.c.save
+ dfa.c dfa.c.save trans.c trans.c.save incalls.d incalls.r\
+ incalls.r.save pseudo.d
all: $(LIBOPT)
make pr | opr
clean:
+ rm -f C_*.o
+ rm -f C_*.c
rm -f $(NOFILES) $(POFILES) $(GENFILES) parser libopt.a
-# set HOWMUCH to head -20 to limit number of patterns used
-#HOWMUCH = head -20
-HOWMUCH = cat
-
-LEXLIB = -ll
-INCLDIR = -I$(EMHOME)/h -I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
-PREFLAGS = $(INCLDIR) -DPRIVATE=static
-# Enable the next line to produce a version that output's the line number
-# from the patterns file each time an optimization is performed.
-#PREFLAGS = $(PREFLAGS) -DSTATS
-PROFFLAG = -O
-CFLAGS = $(PREFLAGS) $(PROFFLAG)
-LLOPT =
-
-$(LIBOPT): dfadummy $(NOFILES)
+$(LIBOPT): dfadummy $(NOFILES) pseudo.d incalls.d
rm -f $(LIBOPT)
- ar rc $(LIBOPT) $(NOFILES)
+ ar rc $(LIBOPT) C_*.o $(NOFILES)
-sh -c 'ranlib $(LIBOPT)'
dfadummy: patterns parser
-mv dfa.c dfa.c.save
-mv trans.c trans.c.save
- -mv incalls.c incalls.c.save
+ -mv incalls.r incalls.r.save
-/lib/cpp patterns | $(HOWMUCH) >/tmp/patts
parser </tmp/patts
-rm /tmp/patts
-if cmp -s dfa.c dfa.c.save; then mv dfa.c.save dfa.c; else exit 0; fi
-if cmp -s trans.c trans.c.save; then mv trans.c.save trans.c; else exit 0; fi
- -if cmp -s incalls.c incalls.c.save; then mv incalls.c.save incalls.c; else exit 0; fi
+ -if cmp -s incalls.r incalls.r.save; then mv incalls.r.save incalls.r; else exit 0; fi
touch dfadummy
# How to build program to parse patterns table and build c files.
touch parserdummy
nopt.o: nopt.h
-dfa.o: nopt.h
aux.o: nopt.h
-trans.o: nopt.h
-pseudo.o: nopt.h
-incalls.o: nopt.h
+pseudo.d: nopt.h
mkcalls.o: nopt.h
+dfa.o: nopt.h dfadummy
+trans.o: nopt.h dfadummy
+incalls.d: nopt.h
+incalls.r: dfadummy
parser.o: Lpars.h parser.h
Lpars.o: Lpars.h
{
switch(p->opcode) {
case op_aar:
- if(p->argtype!=none_ptyp) O_aar(p->acst);
- else O_aar_narg(); break;
+ O_aar(p->acst); break;
case op_adf:
- if(p->argtype!=none_ptyp) O_adf(p->acst);
- else O_adf_narg(); break;
+ O_adf(p->acst); break;
case op_adi:
- if(p->argtype!=none_ptyp) O_adi(p->acst);
- else O_adi_narg(); break;
+ O_adi(p->acst); break;
case op_adp:
O_adp(p->acst); break;
case op_ads:
- if(p->argtype!=none_ptyp) O_ads(p->acst);
- else O_ads_narg(); break;
+ O_ads(p->acst); break;
case op_adu:
- if(p->argtype!=none_ptyp) O_adu(p->acst);
- else O_adu_narg(); break;
+ O_adu(p->acst); break;
case op_and:
- if(p->argtype!=none_ptyp) O_and(p->acst);
- else O_and_narg(); break;
+ O_and(p->acst); break;
case op_asp:
O_asp(p->acst); break;
case op_ass:
- if(p->argtype!=none_ptyp) O_ass(p->acst);
- else O_ass_narg(); break;
+ O_ass(p->acst); break;
case op_beq:
O_beq((label)p->acst); break;
case op_bge:
case op_blm:
O_blm(p->acst); break;
case op_bls:
- if(p->argtype!=none_ptyp) O_bls(p->acst);
- else O_bls_narg(); break;
+ O_bls(p->acst); break;
case op_blt:
O_blt((label)p->acst); break;
case op_bne:
case op_ciu:
O_ciu(); break;
case op_cmf:
- if(p->argtype!=none_ptyp) O_cmf(p->acst);
- else O_cmf_narg(); break;
+ O_cmf(p->acst); break;
case op_cmi:
- if(p->argtype!=none_ptyp) O_cmi(p->acst);
- else O_cmi_narg(); break;
+ O_cmi(p->acst); break;
case op_cmp:
O_cmp(); break;
case op_cms:
- if(p->argtype!=none_ptyp) O_cms(p->acst);
- else O_cms_narg(); break;
+ O_cms(p->acst); break;
case op_cmu:
- if(p->argtype!=none_ptyp) O_cmu(p->acst);
- else O_cmu_narg(); break;
+ O_cmu(p->acst); break;
case op_com:
- if(p->argtype!=none_ptyp) O_com(p->acst);
- else O_com_narg(); break;
+ O_com(p->acst); break;
case op_csa:
- if(p->argtype!=none_ptyp) O_csa(p->acst);
- else O_csa_narg(); break;
+ O_csa(p->acst); break;
case op_csb:
- if(p->argtype!=none_ptyp) O_csb(p->acst);
- else O_csb_narg(); break;
+ O_csb(p->acst); break;
case op_cuf:
O_cuf(); break;
case op_cui:
case op_dup:
O_dup(p->acst); break;
case op_dus:
- if(p->argtype!=none_ptyp) O_dus(p->acst);
- else O_dus_narg(); break;
+ O_dus(p->acst); break;
case op_dvf:
- if(p->argtype!=none_ptyp) O_dvf(p->acst);
- else O_dvf_narg(); break;
+ O_dvf(p->acst); break;
case op_dvi:
- if(p->argtype!=none_ptyp) O_dvi(p->acst);
- else O_dvi_narg(); break;
+ O_dvi(p->acst); break;
case op_dvu:
- if(p->argtype!=none_ptyp) O_dvu(p->acst);
- else O_dvu_narg(); break;
+ O_dvu(p->acst); break;
case op_exg:
- if(p->argtype!=none_ptyp) O_exg(p->acst);
- else O_exg_narg(); break;
+ O_exg(p->acst); break;
case op_fef:
- if(p->argtype!=none_ptyp) O_fef(p->acst);
- else O_fef_narg(); break;
+ O_fef(p->acst); break;
case op_fif:
- if(p->argtype!=none_ptyp) O_fif(p->acst);
- else O_fif_narg(); break;
+ O_fif(p->acst); break;
case op_fil:
if(p->argtype==nof_ptyp) O_fil_dlb(p->adlb, p->anoff);
else O_fil_dnam(p->adnam, p->asoff); break;
case op_inl:
O_inl(p->acst); break;
case op_inn:
- if(p->argtype!=none_ptyp) O_inn(p->acst);
- else O_inn_narg(); break;
+ O_inn(p->acst); break;
case op_ior:
- if(p->argtype!=none_ptyp) O_ior(p->acst);
- else O_ior_narg(); break;
+ O_ior(p->acst); break;
case op_lab:
O_df_ilb(p->alab); break;
case op_lae:
case op_lal:
O_lal(p->acst); break;
case op_lar:
- if(p->argtype!=none_ptyp) O_lar(p->acst);
- else O_lar_narg(); break;
+ O_lar(p->acst); break;
case op_ldc:
O_ldc(p->acst); break;
case op_lde:
case op_lor:
O_lor(p->acst); break;
case op_los:
- if(p->argtype!=none_ptyp) O_los(p->acst);
- else O_los_narg(); break;
+ O_los(p->acst); break;
case op_lpb:
O_lpb(); break;
case op_lpi:
case op_lxl:
O_lxl(p->acst); break;
case op_mlf:
- if(p->argtype!=none_ptyp) O_mlf(p->acst);
- else O_mlf_narg(); break;
+ O_mlf(p->acst); break;
case op_mli:
- if(p->argtype!=none_ptyp) O_mli(p->acst);
- else O_mli_narg(); break;
+ O_mli(p->acst); break;
case op_mlu:
- if(p->argtype!=none_ptyp) O_mlu(p->acst);
- else O_mlu_narg(); break;
+ O_mlu(p->acst); break;
case op_mon:
O_mon(); break;
case op_ngf:
- if(p->argtype!=none_ptyp) O_ngf(p->acst);
- else O_ngf_narg(); break;
+ O_ngf(p->acst); break;
case op_ngi:
- if(p->argtype!=none_ptyp) O_ngi(p->acst);
- else O_ngi_narg(); break;
+ O_ngi(p->acst); break;
case op_nop:
O_nop(); break;
case op_rck:
- if(p->argtype!=none_ptyp) O_rck(p->acst);
- else O_rck_narg(); break;
+ O_rck(p->acst); break;
case op_ret:
O_ret(p->acst); break;
case op_rmi:
- if(p->argtype!=none_ptyp) O_rmi(p->acst);
- else O_rmi_narg(); break;
+ O_rmi(p->acst); break;
case op_rmu:
- if(p->argtype!=none_ptyp) O_rmu(p->acst);
- else O_rmu_narg(); break;
+ O_rmu(p->acst); break;
case op_rol:
- if(p->argtype!=none_ptyp) O_rol(p->acst);
- else O_rol_narg(); break;
+ O_rol(p->acst); break;
case op_ror:
- if(p->argtype!=none_ptyp) O_ror(p->acst);
- else O_ror_narg(); break;
+ O_ror(p->acst); break;
case op_rtt:
O_rtt(); break;
case op_sar:
- if(p->argtype!=none_ptyp) O_sar(p->acst);
- else O_sar_narg(); break;
+ O_sar(p->acst); break;
case op_sbf:
- if(p->argtype!=none_ptyp) O_sbf(p->acst);
- else O_sbf_narg(); break;
+ O_sbf(p->acst); break;
case op_sbi:
- if(p->argtype!=none_ptyp) O_sbi(p->acst);
- else O_sbi_narg(); break;
+ O_sbi(p->acst); break;
case op_sbs:
- if(p->argtype!=none_ptyp) O_sbs(p->acst);
- else O_sbs_narg(); break;
+ O_sbs(p->acst); break;
case op_sbu:
- if(p->argtype!=none_ptyp) O_sbu(p->acst);
- else O_sbu_narg(); break;
+ O_sbu(p->acst); break;
case op_sde:
if(p->argtype==nof_ptyp) O_sde_dlb(p->adlb, p->anoff);
else O_sde_dnam(p->adnam, p->asoff); break;
case op_sdl:
O_sdl(p->acst); break;
case op_set:
- if(p->argtype!=none_ptyp) O_set(p->acst);
- else O_set_narg(); break;
+ O_set(p->acst); break;
case op_sig:
O_sig(); break;
case op_sil:
case op_sim:
O_sim(); break;
case op_sli:
- if(p->argtype!=none_ptyp) O_sli(p->acst);
- else O_sli_narg(); break;
+ O_sli(p->acst); break;
case op_slu:
- if(p->argtype!=none_ptyp) O_slu(p->acst);
- else O_slu_narg(); break;
+ O_slu(p->acst); break;
case op_sri:
- if(p->argtype!=none_ptyp) O_sri(p->acst);
- else O_sri_narg(); break;
+ O_sri(p->acst); break;
case op_sru:
- if(p->argtype!=none_ptyp) O_sru(p->acst);
- else O_sru_narg(); break;
+ O_sru(p->acst); break;
case op_ste:
if(p->argtype==nof_ptyp) O_ste_dlb(p->adlb, p->anoff);
else O_ste_dnam(p->adnam, p->asoff); break;
case op_str:
O_str(p->acst); break;
case op_sts:
- if(p->argtype!=none_ptyp) O_sts(p->acst);
- else O_sts_narg(); break;
+ O_sts(p->acst); break;
case op_teq:
O_teq(); break;
case op_tge:
case op_trp:
O_trp(); break;
case op_xor:
- if(p->argtype!=none_ptyp) O_xor(p->acst);
- else O_xor_narg(); break;
+ O_xor(p->acst); break;
case op_zeq:
O_zeq((label)p->acst); break;
case op_zer:
- if(p->argtype!=none_ptyp) O_zer(p->acst);
- else O_zer_narg(); break;
+ O_zer(p->acst); break;
case op_zge:
O_zge((label)p->acst); break;
case op_zgt:
if(p->argtype==nof_ptyp) O_zre_dlb(p->adlb, p->anoff);
else O_zre_dnam(p->adnam, p->asoff); break;
case op_zrf:
- if(p->argtype!=none_ptyp) O_zrf(p->acst);
- else O_zrf_narg(); break;
+ O_zrf(p->acst); break;
case op_zrl:
O_zrl(p->acst); break;
}
struct idf *op;
int opcode;
char *s;
- if(!sys_open("incalls.c",OP_WRITE,&ofile)) {
- fprint(STDERR,"Fatal Error: cannot open output file incalls.c\n");
+ if(!sys_open("incalls.r",OP_WRITE,&ofile)) {
+ fprint(STDERR,"Fatal Error: cannot open output file incalls.r\n");
sys_stop(S_EXIT);
}
- fprint(ofile,"#include \"nopt.h\"\n\n");
for(op=ops;op!=(struct idf *)NULL;op=op->id_nextidf) {
opcode = op->id_opcode;
s = op->id_text;
switch(op->id_argfmt) {
case NOARG:
- fprint(ofile,"\nC_%s() {\n",s);
+ fprint(ofile,"%s\t|\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inop(op_%s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s();\n",s);
}
- fprint(ofile,"}\n",s);
break;
case CSTOPT:
- fprint(ofile,"\nC_%s_narg() {\n",s);
+ fprint(ofile,"%s_narg\t|\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inop(op_%s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_narg();\n",s);
}
- fprint(ofile,"}\n",s);
/* fall thru */
case CST:
- fprint(ofile,"\nC_%s(n) int n; {\n",s);
+ fprint(ofile,"%s\t| int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_incst(op_%s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(n);\n",s);
}
- fprint(ofile,"}\n",s);
break;
case DEFILB:
- fprint(ofile,"\nC_df_ilb(l) label l; {\n");
+ fprint(ofile,"df_ilb\t| label:l\t|\n");
if(op->id_used) {
fprint(ofile,"\tOO_indefilb(op_%s,l);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_df_ilb(l);\n",s);
}
- fprint(ofile,"}\n",s);
break;
case PNAM:
- fprint(ofile,"\nC_%s(s) char *s; {\n",s);
+ fprint(ofile,"%s\t| char *:s\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inpnam(op_%s,s);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(s);\n",s);
}
- fprint(ofile,"}\n",s);
break;
case LAB:
- fprint(ofile,"\nC_%s(l) label l; {\n",s);
+ fprint(ofile,"%s\t| label:l\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_inlab(op_%s,l);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(l);\n",s);
}
- fprint(ofile,"}\n",s);
break;
case EXT:
- fprint(ofile,"\nC_%s(n) int n; {\n",s);
+ fprint(ofile,"%s\t| int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_incst(op_%s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s(n);\n",s);
}
- fprint(ofile,"}\n",s);
- fprint(ofile,"\nC_%s_dnam(s,n) char *s; int n; {\n",s);
+ fprint(ofile,"%s_dnam\t| char *:s int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_indnam(op_%s,s,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_dnam(s,n);\n",s);
}
- fprint(ofile,"}\n",s);
- fprint(ofile,"\nC_%s_dlb(l,n) label l; int n; {\n",s);
+ fprint(ofile,"%s_dlb\t| label:l int:n\t|\n",s);
if(op->id_used) {
fprint(ofile,"\tOO_indlb(op_%s,l,n);\n",s);
fprint(ofile,"\tOO_dfa(op_%s);\n",s);
fprint(ofile,"\tFLUSHDFA();\n");
fprint(ofile,"\tO_%s_dlb(l,n);\n",s);
}
- fprint(ofile,"}\n",s);
break;
}
}
public / ack.git / commitdiff