diff --git a/PDP10/ka10_cpu.c b/PDP10/ka10_cpu.c index 59e402a..af268ec 100644 --- a/PDP10/ka10_cpu.c +++ b/PDP10/ka10_cpu.c @@ -794,7 +794,7 @@ int check_irq_level() { * Recover from held interrupt. */ void restore_pi_hold() { - int i, lvl; + int lvl; if (!pi_enable) return; @@ -1442,7 +1442,7 @@ int its_load_tlb(uint32 reg, int page, uint32 *tlb) { if ((page & 1) == 0) data >>= 18; data &= RMASK; - *tlb = data; + *tlb = (uint32)data; pag_reload = ((pag_reload + 1) & 017); return 0; } @@ -1460,7 +1460,7 @@ int page_lookup(int addr, int flag, int *loc, int wr, int cur_context, int fetch int page = (RMASK & addr) >> 10; int acc; int uf = (FLAGS & USER) != 0; - int ofd = fault_data; + int ofd = (int)fault_data; /* If paging is not enabled, address is direct */ if (!page_enable) { @@ -2771,7 +2771,7 @@ dpnorm: dbr3 = ((0377 << 18) | RMASK) & MB; AB = (AB + 1) & RMASK; MB = M[AB]; /* WD 7 */ - ac_stack = MB; + ac_stack = (uint32)MB; page_enable = 1; } /* AC & 2 = Clear TLB */ @@ -3122,7 +3122,6 @@ ldb_ptr: } fnorm: if (AR != 0) { -fxnorm: if ((AR & FPNMASK) != 0) { SC += 1; AR >>= 1; } if (((SC & 0400) != 0) ^ ((SC & 0200) != 0)) fxu_hold_set = 1; diff --git a/PDP10/ka10_dc.c b/PDP10/ka10_dc.c index 8f33c4c..df48145 100644 --- a/PDP10/ka10_dc.c +++ b/PDP10/ka10_dc.c @@ -315,7 +315,7 @@ int32 ln; tmxr_poll_rx(&dc_desc); for (ln = 0; ln < dc_desc.lines; ln++) { /* Check if buffer empty */ - if (dc_ldsc[ln].xmte && (dc_l_status & (1 << ln)) != 0) { + if (dc_ldsc[ln].xmte && ((dc_l_status & (1ll << ln)) != 0)) { tx_enable |= 1 << ln; } diff --git a/PDP10/ka10_defs.h b/PDP10/ka10_defs.h index 57ca618..4d22eda 100644 --- a/PDP10/ka10_defs.h +++ b/PDP10/ka10_defs.h @@ -213,6 +213,9 @@ extern DEBTAB crd_debug[]; #define EXJSYS 000040 /* 002000 */ #endif #ifdef ITS +#ifdef PURE +#undef PURE +#endif #define PURE 000040 /* 002000 */ #define ONEP 000010 /* 000400 */ #endif diff --git a/PDP10/ka10_mt.c b/PDP10/ka10_mt.c index c3a89e5..de57b58 100644 --- a/PDP10/ka10_mt.c +++ b/PDP10/ka10_mt.c @@ -610,7 +610,7 @@ t_stat mt_srv(UNIT * uptr) } uptr->BPOS++; uptr->CPOS++; - if ((uptr->BPOS + cc_max) >= uptr->hwmark) + if ((uint32)(uptr->BPOS + cc_max) >= uptr->hwmark) uptr->CNTRL |= MT_LASTWD; status &= ~CHAR_COUNT; status |= (uint64)(uptr->CPOS) << 18; diff --git a/PDP10/ka10_mty.c b/PDP10/ka10_mty.c index 47b77e0..ddc4bd9 100644 --- a/PDP10/ka10_mty.c +++ b/PDP10/ka10_mty.c @@ -169,7 +169,6 @@ static t_stat mty_svc (UNIT *uptr) { static int scan = 0; int i; - int32 done; /* High speed device, poll every 0.1 ms. */ sim_activate_after (uptr, 100); @@ -221,8 +220,6 @@ static t_stat mty_svc (UNIT *uptr) static t_stat mty_reset (DEVICE *dptr) { - int i; - sim_debug(DEBUG_CMD, &mty_dev, "Reset\n"); if (mty_unit->flags & UNIT_ATT) sim_activate (mty_unit, tmxr_poll); diff --git a/PDP10/ka10_rp.c b/PDP10/ka10_rp.c index 0e4e859..4e657eb 100644 --- a/PDP10/ka10_rp.c +++ b/PDP10/ka10_rp.c @@ -539,7 +539,7 @@ t_stat rp_devio(uint32 dev, uint64 *data) { } else if ((rp_reg[ctlr] & 040) == 0) { int parity; *data = (t_uint64)(rp_read(ctlr, rp_drive[ctlr], rp_reg[ctlr]) & 0177777); - parity = (*data >> 8) ^ *data; + parity = (int)((*data >> 8) ^ *data); parity = (parity >> 4) ^ parity; parity = (parity >> 2) ^ parity; parity = ((parity >> 1) ^ parity) & 1; diff --git a/PDP10/ka10_rs.c b/PDP10/ka10_rs.c index 26c7aa6..24fe795 100644 --- a/PDP10/ka10_rs.c +++ b/PDP10/ka10_rs.c @@ -382,7 +382,7 @@ t_stat rs_devio(uint32 dev, uint64 *data) { int parity; *data = (t_uint64)(rs_read(ctlr, rs_drive[ctlr], rs_reg[ctlr]) & 0177777); - parity = (*data >> 8) ^ *data; + parity = (int)((*data >> 8) ^ *data); parity = (parity >> 4) ^ parity; parity = (parity >> 2) ^ parity; parity = ((parity >> 1) ^ parity) & 1; diff --git a/PDP10/ka10_tk10.c b/PDP10/ka10_tk10.c index b8c42d4..bddc377 100644 --- a/PDP10/ka10_tk10.c +++ b/PDP10/ka10_tk10.c @@ -183,7 +183,6 @@ static t_stat tk10_svc (UNIT *uptr) { static int scan = 0; int i; - int32 done; sim_activate_after (uptr, 1000); @@ -244,8 +243,6 @@ static t_stat tk10_svc (UNIT *uptr) static t_stat tk10_reset (DEVICE *dptr) { - int i; - sim_debug(DEBUG_CMD, &tk10_dev, "Reset\n"); if (tk10_unit->flags & UNIT_ATT) sim_activate (tk10_unit, tmxr_poll);