From d5e92504052bcb3830a84ef294ce961df0471bce Mon Sep 17 00:00:00 2001 From: bruce Date: Fri, 6 Feb 1987 14:13:22 +0000 Subject: [PATCH] Use awk program to generate distinct C_xxx routines in separate files. --- modules/src/em_opt/Makefile | 62 ++++++++------ modules/src/em_opt/mkcalls.c | 150 ++++++++++++---------------------- modules/src/em_opt/outcalls.c | 32 +++----- 3 files changed, 97 insertions(+), 147 deletions(-) diff --git a/modules/src/em_opt/Makefile b/modules/src/em_opt/Makefile index 8a17571e8..1c9539ac2 100644 --- a/modules/src/em_opt/Makefile +++ b/modules/src/em_opt/Makefile @@ -4,17 +4,38 @@ INSTALL = $(EMHOME)/modules/install 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) @@ -31,37 +52,25 @@ opr: 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 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: @@ -44,8 +37,7 @@ OO_mkcalls(p) 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: @@ -69,28 +61,21 @@ OO_mkcalls(p) 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: @@ -109,26 +94,19 @@ OO_mkcalls(p) 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; @@ -143,11 +121,9 @@ OO_mkcalls(p) 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: @@ -156,8 +132,7 @@ OO_mkcalls(p) 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: @@ -191,8 +166,7 @@ OO_mkcalls(p) 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: @@ -202,58 +176,43 @@ OO_mkcalls(p) 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; @@ -262,8 +221,7 @@ OO_mkcalls(p) 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: @@ -271,17 +229,13 @@ OO_mkcalls(p) 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; @@ -294,8 +248,7 @@ OO_mkcalls(p) 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: @@ -311,13 +264,11 @@ OO_mkcalls(p) 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: @@ -332,8 +283,7 @@ OO_mkcalls(p) 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; } diff --git a/modules/src/em_opt/outcalls.c b/modules/src/em_opt/outcalls.c index 17c1d86dd..30830dde2 100644 --- a/modules/src/em_opt/outcalls.c +++ b/modules/src/em_opt/outcalls.c @@ -9,17 +9,16 @@ outputincalls() 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); @@ -28,10 +27,9 @@ outputincalls() 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); @@ -40,10 +38,9 @@ outputincalls() 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); @@ -52,10 +49,9 @@ outputincalls() 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); @@ -64,10 +60,9 @@ outputincalls() 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); @@ -76,10 +71,9 @@ outputincalls() 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); @@ -88,10 +82,9 @@ outputincalls() 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); @@ -100,8 +93,7 @@ outputincalls() 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); @@ -110,8 +102,7 @@ outputincalls() 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); @@ -120,7 +111,6 @@ outputincalls() fprint(ofile,"\tFLUSHDFA();\n"); fprint(ofile,"\tO_%s_dlb(l,n);\n",s); } - fprint(ofile,"}\n",s); break; } } -- 2.34.1