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; mnemonic *mn;
char reg_name[8]; char reg_name[8];
desc = 0;
mn = NULL; mn = NULL;
vp = 0; vp = 0;
etype = -1; 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 { } else {
frac = (frac + round_increment) >> 11; 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); 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, t_uint64 frac_a, t_uint64 frac_b,
RM rounding_mode, XFP *result) RM rounding_mode, XFP *result)
{ {
uint8 round_nearest_even, is_tiny; uint8 is_tiny;
t_int64 round_mask; t_int64 round_mask;
round_nearest_even = (rounding_mode == ROUND_NEAREST);
if (0x7ffd <= (uint32)(exp - 1)) { if (0x7ffd <= (uint32)(exp - 1)) {
if (0x7ffe < exp) { if (0x7ffe < exp) {
round_mask = 0; 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) 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; int32 a_exp, b_exp, exp_diff;
t_uint64 a_frac_0, a_frac_1, b_frac; 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; 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_sign = XFP_SIGN(a);
a_exp = XFP_EXP(a); a_exp = XFP_EXP(a);
a_frac_0 = XFP_FRAC(a); a_frac_0 = XFP_FRAC(a);
b_sign = XFP_SIGN(b);
b_exp = XFP_EXP(b); b_exp = XFP_EXP(b);
b_frac = XFP_FRAC(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 */ uint32 lba; /* Logical Block Address */
maxpass = 0;
dev = rqe->subdevice & 1; /* Tape or Floppy device */ dev = rqe->subdevice & 1; /* Tape or Floppy device */
capp_data[7] = rqe->opcode; 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) t_stat ports_rcv_svc(UNIT *uptr)
{ {
uint8 cid, subdev; uint8 cid;
int32 temp, ln; int32 temp, ln;
char c; char c;
cio_entry rentry = {0}; cio_entry rentry = {0};
@ -714,7 +714,6 @@ t_stat ports_rcv_svc(UNIT *uptr)
for (ln = 0; ln < ports_desc.lines; ln++) { for (ln = 0; ln < ports_desc.lines; ln++) {
cid = LCID(ln); cid = LCID(ln);
subdev = LPORT(ln);
if (!ports_ldsc[ln].conn && ports_state[ln].conn) { if (!ports_ldsc[ln].conn && ports_state[ln].conn) {
ports_update_conn(ln); ports_update_conn(ln);