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

Use awk program to generate distinct C_xxx routines in separate files.

Browse Source
This commit is contained in:
bruce
1987-02-06 14:13:22 +00:00
parent 2e571491b9
commit b248ec9c8f
3 changed files with 97 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

150
modules/src/em_opt/mkcalls.c
View File

@@ -9,30 +9,23 @@ OO_mkcalls(p)
{
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:
@@ -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;
}