bug fixes

This commit is contained in:
ceriel 1987-03-29 12:55:25 +00:00
parent de8fb5d489
commit c6cf0725d0

View file

@ -123,47 +123,47 @@ EM_dopseudo(opcode, args)
case cst_ptyp: case cst_ptyp:
C_hol_cst(args->em_cst, C_hol_cst(args->em_cst,
arg->em_cst, arg->em_cst,
args2->em_cst); (int) (args2->em_cst));
break; break;
case ico_ptyp: case ico_ptyp:
C_hol_icon(args->em_cst, C_hol_icon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case uco_ptyp: case uco_ptyp:
C_hol_ucon(args->em_cst, C_hol_ucon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case fco_ptyp: case fco_ptyp:
C_hol_fcon(args->em_cst, C_hol_fcon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case sof_ptyp: case sof_ptyp:
C_hol_dnam(args->em_cst, C_hol_dnam(args->em_cst,
arg->em_dnam, arg->em_dnam,
arg->em_soff, arg->em_soff,
args2->em_cst); (int)(args2->em_cst));
break; break;
case nof_ptyp: case nof_ptyp:
C_hol_dlb(args->em_cst, C_hol_dlb(args->em_cst,
arg->em_dlb, arg->em_dlb,
arg->em_noff, arg->em_noff,
args2->em_cst); (int)(args2->em_cst));
break; break;
case ilb_ptyp: case ilb_ptyp:
C_hol_ilb(args->em_cst, C_hol_ilb(args->em_cst,
arg->em_ilb, arg->em_ilb,
args2->em_cst); (int)(args2->em_cst));
break; break;
case pro_ptyp: case pro_ptyp:
C_hol_pnam(args->em_cst, C_hol_pnam(args->em_cst,
arg->em_pnam, arg->em_pnam,
args2->em_cst); (int)(args2->em_cst));
break; break;
default: default:
EM_error = "Illegal parameter type"; EM_error = "Illegal parameter type";
@ -182,47 +182,47 @@ EM_dopseudo(opcode, args)
case cst_ptyp: case cst_ptyp:
C_bss_cst(args->em_cst, C_bss_cst(args->em_cst,
arg->em_cst, arg->em_cst,
args2->em_cst); (int)(args2->em_cst));
break; break;
case ico_ptyp: case ico_ptyp:
C_bss_icon(args->em_cst, C_bss_icon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case uco_ptyp: case uco_ptyp:
C_bss_ucon(args->em_cst, C_bss_ucon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case fco_ptyp: case fco_ptyp:
C_bss_fcon(args->em_cst, C_bss_fcon(args->em_cst,
arg->em_str, arg->em_str,
arg->em_size, arg->em_size,
args2->em_cst); (int)(args2->em_cst));
break; break;
case sof_ptyp: case sof_ptyp:
C_bss_dnam(args->em_cst, C_bss_dnam(args->em_cst,
arg->em_dnam, arg->em_dnam,
arg->em_soff, arg->em_soff,
args2->em_cst); (int)(args2->em_cst));
break; break;
case nof_ptyp: case nof_ptyp:
C_bss_dlb(args->em_cst, C_bss_dlb(args->em_cst,
arg->em_dlb, arg->em_dlb,
arg->em_noff, arg->em_noff,
args2->em_cst); (int)(args2->em_cst));
break; break;
case ilb_ptyp: case ilb_ptyp:
C_bss_ilb(args->em_cst, C_bss_ilb(args->em_cst,
arg->em_ilb, arg->em_ilb,
args2->em_cst); (int)(args2->em_cst));
break; break;
case pro_ptyp: case pro_ptyp:
C_bss_pnam(args->em_cst, C_bss_pnam(args->em_cst,
arg->em_pnam, arg->em_pnam,
args2->em_cst); (int)(args2->em_cst));
break; break;
default: default:
EM_error = "Illegal parameter type"; EM_error = "Illegal parameter type";
@ -407,7 +407,7 @@ EM_dostartmes(args)
} }
arg = c_getarg(args, cst_ptyp); arg = c_getarg(args, cst_ptyp);
arg = c_getarg(arg, 0); arg = c_getarg(arg, 0);
C_mes_begin(args->em_cst); C_mes_begin((int) (args->em_cst));
listtype = ps_mes; listtype = ps_mes;
} }