modyfications in search for more speed
This commit is contained in:
ceriel
parent
7851ff900f
commit
8fab3192b6
|
|
@ -27,422 +27,94 @@ extern short em_ptyp[]; /* One per parameter kind: indicates parameter type */
|
||||||
static char *C_error;
|
static char *C_error;
|
||||||
char *C_tmpdir;
|
char *C_tmpdir;
|
||||||
|
|
||||||
static int listtype = 0; /* indicates pseudo when generating code for
|
EXPORT int
|
||||||
variable length argument lists
|
C_out(p)
|
||||||
(only for MES)
|
|
||||||
*/
|
|
||||||
|
|
||||||
#ifdef CHECKING
|
|
||||||
/* c_getarg: Check the argument indicated by "args".
|
|
||||||
The argument must be of a type allowed by "typset".
|
|
||||||
Return a pointer to the next argument.
|
|
||||||
*/
|
|
||||||
PRIVATE
|
|
||||||
checkarg(arg, typset)
|
|
||||||
register struct e_arg *arg;
|
|
||||||
{
|
|
||||||
|
|
||||||
if (((!typset) && arg->ema_argtype) ||
|
|
||||||
((!arg->ema_argtype) && typset)) {
|
|
||||||
/* End of arguments expected, but there are more, or
|
|
||||||
an argument expected, but there is none
|
|
||||||
*/
|
|
||||||
C_error = "Illegal number of parameters";
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!(arg->ema_argtype & typset)) {
|
|
||||||
/* Type error */
|
|
||||||
C_error = "Illegal parameter type";
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
#else not CHECKING
|
|
||||||
#define checkarg(arg, x) 1
|
|
||||||
#endif CHECKING
|
|
||||||
|
|
||||||
/* EM_doinstr: An EM instruction
|
|
||||||
*/
|
|
||||||
PRIVATE
|
|
||||||
EM_doinstr(p)
|
|
||||||
register struct e_instr *p;
|
register struct e_instr *p;
|
||||||
|
{
|
||||||
|
C_error = 0;
|
||||||
|
switch(p->em_type) {
|
||||||
|
default:
|
||||||
|
C_error = "Illegal EM line";
|
||||||
|
break;
|
||||||
|
case EM_MNEM:
|
||||||
|
/* normal instruction */
|
||||||
{
|
{
|
||||||
register int parametertype; /* parametertype of the instruction */
|
register int parametertype; /* parametertype of the instruction */
|
||||||
|
|
||||||
parametertype = em_flag[p->em_opcode-sp_fmnem] & EM_PAR;
|
parametertype = em_flag[p->em_opcode-sp_fmnem] & EM_PAR;
|
||||||
#ifdef CHECKING
|
|
||||||
if (parametertype != PAR_NO && parametertype != PAR_W) {
|
|
||||||
if (p->em_argtype == 0) {
|
|
||||||
C_error = "Illegal number of parameters";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif CHECKING
|
|
||||||
switch(parametertype) {
|
switch(parametertype) {
|
||||||
case PAR_NO:
|
|
||||||
break;
|
|
||||||
default:
|
default:
|
||||||
if (! checkarg(&(p->em_arg), em_ptyp[parametertype])) {
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case PAR_W:
|
case PAR_W:
|
||||||
if (p->em_argtype != 0) {
|
if (p->em_argtype != 0) {
|
||||||
if (! checkarg(&(p->em_arg), cst_ptyp)) return;
|
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
#include "C_mnem_narg"
|
#include "C_mnem_narg"
|
||||||
return;
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
#include "C_mnem"
|
#include "C_mnem"
|
||||||
}
|
}
|
||||||
|
|
||||||
#ifdef ____
|
|
||||||
PRIVATE
|
|
||||||
EM_dopseudo(p)
|
|
||||||
register struct e_instr *p;
|
|
||||||
{
|
|
||||||
|
|
||||||
switch(p->em_opcode) {
|
|
||||||
case ps_exc: {
|
|
||||||
C_exc(p->em_exc1, p->em_exc2);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case ps_hol: {
|
|
||||||
if (! checkarg(&(p->em_arg), par_ptyp)) break;
|
|
||||||
switch(p->em_argtype) {
|
|
||||||
case cst_ptyp:
|
|
||||||
C_hol_cst(EM_holsize,
|
|
||||||
p->em_cst,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case ico_ptyp:
|
|
||||||
C_hol_icon(EM_holsize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case uco_ptyp:
|
|
||||||
C_hol_ucon(EM_holsize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case fco_ptyp:
|
|
||||||
C_hol_fcon(EM_holsize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case sof_ptyp:
|
|
||||||
C_hol_dnam(EM_holsize,
|
|
||||||
p->em_dnam,
|
|
||||||
p->em_off,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case nof_ptyp:
|
|
||||||
C_hol_dlb(EM_holsize,
|
|
||||||
p->em_dlb,
|
|
||||||
p->em_off,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case ilb_ptyp:
|
|
||||||
C_hol_ilb(EM_holsize,
|
|
||||||
p->em_ilb,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
case pro_ptyp:
|
|
||||||
C_hol_pnam(EM_holsize,
|
|
||||||
p->em_pnam,
|
|
||||||
EM_holinit);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal parameter type";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case ps_bss: {
|
|
||||||
if (! checkarg(&(p->em_arg), par_ptyp)) break;
|
|
||||||
switch(p->em_argtype) {
|
|
||||||
case cst_ptyp:
|
|
||||||
C_bss_cst(EM_bsssize,
|
|
||||||
p->em_cst,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case ico_ptyp:
|
|
||||||
C_bss_icon(EM_bsssize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case uco_ptyp:
|
|
||||||
C_bss_ucon(EM_bsssize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case fco_ptyp:
|
|
||||||
C_bss_fcon(EM_bsssize,
|
|
||||||
p->em_string,
|
|
||||||
p->em_size,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case sof_ptyp:
|
|
||||||
C_bss_dnam(EM_bsssize,
|
|
||||||
p->em_dnam,
|
|
||||||
p->em_off,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case nof_ptyp:
|
|
||||||
C_bss_dlb(EM_bsssize,
|
|
||||||
p->em_dlb,
|
|
||||||
p->em_off,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case ilb_ptyp:
|
|
||||||
C_bss_ilb(EM_bsssize,
|
|
||||||
p->em_ilb,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
case pro_ptyp:
|
|
||||||
C_bss_pnam(EM_bsssize,
|
|
||||||
p->em_pnam,
|
|
||||||
EM_bssinit);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal parameter type";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
case ps_end:
|
|
||||||
if (p->em_argtype != 0) {
|
|
||||||
if (! checkarg(&(p->em_arg), cst_ptyp)) break;
|
|
||||||
C_end(p->em_cst);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
C_end_narg();
|
|
||||||
break;
|
|
||||||
case ps_exa:
|
|
||||||
case ps_ina:
|
|
||||||
if (! checkarg(&(p->em_arg), lab_ptyp)) break;
|
|
||||||
if (p->em_argtype == nof_ptyp) {
|
|
||||||
if (p->em_opcode == ps_exa) {
|
|
||||||
C_exa_dlb(p->em_dlb);
|
|
||||||
}
|
|
||||||
else C_ina_dlb(p->em_dlb);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (p->em_opcode == ps_exa) {
|
|
||||||
C_exa_dnam(p->em_dnam);
|
|
||||||
}
|
|
||||||
else C_ina_dnam(p->em_dnam);
|
|
||||||
break;
|
|
||||||
case ps_exp:
|
|
||||||
if (! checkarg(&(p->em_arg), pro_ptyp)) break;
|
|
||||||
C_exp(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case ps_inp:
|
|
||||||
if (! checkarg(&(p->em_arg), pro_ptyp)) break;
|
|
||||||
C_inp(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case ps_pro:
|
|
||||||
if (! checkarg(&(p->em_arg), pro_ptyp)) break;
|
|
||||||
if (p->em_nlocals >= 0) {
|
|
||||||
C_pro(p->em_pnam, p->em_nlocals);
|
|
||||||
}
|
|
||||||
else C_pro_narg(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case ps_con:
|
|
||||||
if (! checkarg(&(p->em_arg), val_ptyp)) break;
|
|
||||||
switch(p->em_argtype) {
|
|
||||||
case ilb_ptyp:
|
|
||||||
C_con_ilb(p->em_ilb);
|
|
||||||
break;
|
|
||||||
case nof_ptyp:
|
|
||||||
C_con_dlb(p->em_dlb, p->em_off);
|
|
||||||
break;
|
|
||||||
case sof_ptyp:
|
|
||||||
C_con_dnam(p->em_dnam, p->em_off);
|
|
||||||
break;
|
|
||||||
case cst_ptyp:
|
|
||||||
C_con_cst(p->em_cst);
|
|
||||||
break;
|
|
||||||
case pro_ptyp:
|
|
||||||
C_con_pnam(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case str_ptyp:
|
|
||||||
C_con_scon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case ico_ptyp:
|
|
||||||
C_con_icon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case uco_ptyp:
|
|
||||||
C_con_ucon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case fco_ptyp:
|
|
||||||
C_con_fcon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal argument type";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case ps_rom:
|
|
||||||
if (! checkarg(&(p->em_arg), val_ptyp)) break;
|
|
||||||
switch(p->em_argtype) {
|
|
||||||
case ilb_ptyp:
|
|
||||||
C_rom_ilb(p->em_ilb);
|
|
||||||
break;
|
|
||||||
case nof_ptyp:
|
|
||||||
C_rom_dlb(p->em_dlb, p->em_off);
|
|
||||||
break;
|
|
||||||
case sof_ptyp:
|
|
||||||
C_rom_dnam(p->em_dnam, p->em_off);
|
|
||||||
break;
|
|
||||||
case cst_ptyp:
|
|
||||||
C_rom_cst(p->em_cst);
|
|
||||||
break;
|
|
||||||
case pro_ptyp:
|
|
||||||
C_rom_pnam(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case str_ptyp:
|
|
||||||
C_rom_scon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case ico_ptyp:
|
|
||||||
C_rom_icon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case uco_ptyp:
|
|
||||||
C_rom_ucon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case fco_ptyp:
|
|
||||||
C_rom_fcon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal argument type";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal pseudo instruction";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
PRIVATE
|
|
||||||
EM_docon(p)
|
|
||||||
register struct e_instr *p;
|
|
||||||
{
|
|
||||||
checkarg(&(p->em_arg), val_ptyp);
|
|
||||||
switch(p->em_argtype) {
|
|
||||||
case ilb_ptyp:
|
|
||||||
C_ilb(p->em_ilb);
|
|
||||||
break;
|
|
||||||
case nof_ptyp:
|
|
||||||
C_dlb(p->em_dlb, p->em_off);
|
|
||||||
break;
|
|
||||||
case sof_ptyp:
|
|
||||||
C_dnam(p->em_dnam, p->em_off);
|
|
||||||
break;
|
|
||||||
case cst_ptyp:
|
|
||||||
C_cst(p->em_cst);
|
|
||||||
break;
|
|
||||||
case pro_ptyp:
|
|
||||||
C_pnam(p->em_pnam);
|
|
||||||
break;
|
|
||||||
case str_ptyp:
|
|
||||||
C_scon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case ico_ptyp:
|
|
||||||
C_icon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case uco_ptyp:
|
|
||||||
C_ucon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
case fco_ptyp:
|
|
||||||
C_fcon(p->em_string, p->em_size);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
C_error = "Illegal argument type";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
PRIVATE
|
|
||||||
EM_dostartmes(p)
|
|
||||||
register struct e_instr *p;
|
|
||||||
{
|
|
||||||
|
|
||||||
if (listtype) {
|
|
||||||
C_error = "Message not ended";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
if (! checkarg(&(p->em_arg), cst_ptyp)) return;
|
|
||||||
C_mes_begin((int) (p->em_cst));
|
|
||||||
listtype = ps_mes;
|
|
||||||
}
|
|
||||||
|
|
||||||
EXPORT int
|
|
||||||
C_out(line)
|
|
||||||
register struct e_instr *line;
|
|
||||||
{
|
|
||||||
|
|
||||||
#ifdef CHECKING
|
|
||||||
if (listtype && line->em_type != EM_MESARG && line->em_type != EM_ENDMES) {
|
|
||||||
C_error = "Message not ended";
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
#endif CHECKING
|
|
||||||
C_error = 0;
|
|
||||||
switch(line->em_type) {
|
|
||||||
default:
|
|
||||||
C_error = "Illegal EM line";
|
|
||||||
break;
|
|
||||||
case EM_MNEM:
|
|
||||||
/* normal instruction */
|
|
||||||
EM_doinstr(line);
|
|
||||||
break;
|
break;
|
||||||
case EM_DEFILB:
|
case EM_DEFILB:
|
||||||
/* defining occurrence of an instruction label */
|
/* defining occurrence of an instruction label */
|
||||||
C_df_ilb(line->em_ilb);
|
C_df_ilb(p->em_ilb);
|
||||||
break;
|
break;
|
||||||
#ifdef ____
|
#ifdef ____
|
||||||
case EM_DEFDLB:
|
case EM_DEFDLB:
|
||||||
/* defining occurrence of a global data label */
|
/* defining occurrence of a global data label */
|
||||||
C_df_dlb(line->em_dlb);
|
C_df_dlb(p->em_dlb);
|
||||||
break;
|
break;
|
||||||
case EM_DEFDNAM:
|
case EM_DEFDNAM:
|
||||||
/* defining occurrence of a non-numeric data label */
|
/* defining occurrence of a non-numeric data label */
|
||||||
C_df_dnam(line->em_dnam);
|
C_df_dnam(p->em_dnam);
|
||||||
break;
|
break;
|
||||||
case EM_PSEU:
|
case EM_PSEU:
|
||||||
/* pseudo */
|
/* pseudo */
|
||||||
EM_dopseudo(line);
|
EM_dopseudo(p);
|
||||||
break;
|
break;
|
||||||
#endif
|
#endif
|
||||||
case EM_STARTMES:
|
case EM_STARTMES:
|
||||||
/* start of a MES pseudo */
|
/* start of a MES pseudo */
|
||||||
EM_dostartmes(line);
|
C_mes_begin((int) (p->em_cst));
|
||||||
break;
|
break;
|
||||||
case EM_MESARG:
|
case EM_MESARG:
|
||||||
case EM_ENDMES:
|
switch(p->em_argtype) {
|
||||||
#ifdef CHECKING
|
case ilb_ptyp:
|
||||||
if (!listtype) {
|
C_ilb(p->em_ilb);
|
||||||
C_error = "Message not started";
|
break;
|
||||||
return 0;
|
case nof_ptyp:
|
||||||
}
|
C_dlb(p->em_dlb, p->em_off);
|
||||||
#endif
|
break;
|
||||||
if (line->em_type == EM_MESARG) {
|
case sof_ptyp:
|
||||||
EM_docon(line);
|
C_dnam(p->em_dnam, p->em_off);
|
||||||
|
break;
|
||||||
|
case cst_ptyp:
|
||||||
|
C_cst(p->em_cst);
|
||||||
|
break;
|
||||||
|
case pro_ptyp:
|
||||||
|
C_pnam(p->em_pnam);
|
||||||
|
break;
|
||||||
|
case str_ptyp:
|
||||||
|
C_scon(p->em_string, p->em_size);
|
||||||
|
break;
|
||||||
|
case ico_ptyp:
|
||||||
|
C_icon(p->em_string, p->em_size);
|
||||||
|
break;
|
||||||
|
case uco_ptyp:
|
||||||
|
C_ucon(p->em_string, p->em_size);
|
||||||
|
break;
|
||||||
|
case fco_ptyp:
|
||||||
|
C_fcon(p->em_string, p->em_size);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
C_error = "Illegal argument type";
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
break;
|
||||||
|
case EM_ENDMES:
|
||||||
C_mes_end();
|
C_mes_end();
|
||||||
listtype = 0;
|
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
if (C_error) return 0;
|
if (C_error) return 0;
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
trap "rm -f tmp$$" 1 2 3 15
|
trap "rm -f tmp$$" 0 1 2 3 15
|
||||||
cp C_out_skel.c tmp$$
|
cp C_out_skel.c tmp$$
|
||||||
ed - tmp$$ <<'EOF'
|
ed - tmp$$ <<'EOF'
|
||||||
/^#include "C_mnem_narg"/d
|
/^#include "C_mnem_narg"/d
|
||||||
|
|
@ -9,4 +9,3 @@ w
|
||||||
q
|
q
|
||||||
EOF
|
EOF
|
||||||
cat tmp$$
|
cat tmp$$
|
||||||
rm -f tmp$$
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue