folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

3b2: Removed compiler warnings.

Browse source
This commit is contained in:
Seth Morabito 2020-10-19 11:33:14 -07:00
parent f4d1abd61d
commit bf6ec441f5
4 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
3B2/3b2_400_cpu.c
View file

@ -882,6 +882,7 @@ t_stat fprint_sym_m(FILE *of, t_addr addr, t_value *val)
mnemonic *mn;
char reg_name[8];
desc = 0;
mn = NULL;
vp = 0;
etype = -1;

10
3B2/3b2_400_mau.c
View file

@ -1157,7 +1157,8 @@ static DFP round_pack_dfp(t_bool sign, int16 exp, t_uint64 frac,
}
} else {
frac = (frac + round_increment) >> 11;
frac &= ~(t_uint64)(!(round_bits ^ 0x200));
lsb = !((t_bool)(round_bits ^ 0x200));
frac &= ~((t_uint64)lsb);
}
return PACK_DFP(sign, exp, frac);
@ -1173,11 +1174,9 @@ static void round_pack_xfp(t_bool sign, int32 exp,
t_uint64 frac_a, t_uint64 frac_b,
RM rounding_mode, XFP *result)
{
uint8 round_nearest_even, is_tiny;
uint8 is_tiny;
t_int64 round_mask;
round_nearest_even = (rounding_mode == ROUND_NEAREST);
if (0x7ffd <= (uint32)(exp - 1)) {
if (0x7ffe < exp) {
round_mask = 0;
@ -2684,7 +2683,7 @@ static void xfp_sqrt(XFP *a, XFP *result, RM rounding_mode)
static void xfp_remainder(XFP *a, XFP *b, XFP *result, RM rounding_mode)
{
uint32 a_sign, b_sign, r_sign;
uint32 a_sign, r_sign;
int32 a_exp, b_exp, exp_diff;
t_uint64 a_frac_0, a_frac_1, b_frac;
t_uint64 q, term_0, term_1, alt_a_frac_0, alt_a_frac_1;
@ -2692,7 +2691,6 @@ static void xfp_remainder(XFP *a, XFP *b, XFP *result, RM rounding_mode)
a_sign = XFP_SIGN(a);
a_exp = XFP_EXP(a);
a_frac_0 = XFP_FRAC(a);
b_sign = XFP_SIGN(b);
b_exp = XFP_EXP(b);
b_frac = XFP_FRAC(b);

1
3B2/3b2_ctc.c
View file

@ -272,6 +272,7 @@ static void ctc_cmd(uint8 cid,
uint32 lba; /* Logical Block Address */
maxpass = 0;
dev = rqe->subdevice & 1; /* Tape or Floppy device */
capp_data[7] = rqe->opcode;

3
3B2/3b2_ports.c
View file

@ -693,7 +693,7 @@ t_stat ports_cio_svc(UNIT *uptr)
t_stat ports_rcv_svc(UNIT *uptr)
{
uint8 cid, subdev;
uint8 cid;
int32 temp, ln;
char c;
cio_entry rentry = {0};
@ -714,7 +714,6 @@ t_stat ports_rcv_svc(UNIT *uptr)
for (ln = 0; ln < ports_desc.lines; ln++) {
cid = LCID(ln);
subdev = LPORT(ln);
if (!ports_ldsc[ln].conn && ports_state[ln].conn) {
ports_update_conn(ln);