SCP: Fix incorrect disk size reporting when t_addr is 32 bits
This commit is contained in:
parent
2a38dd802b
commit
bcaed7d0b0
1 changed files with 3 additions and 3 deletions
6
scp.c
6
scp.c
|
@ -6473,10 +6473,10 @@ return SCPE_OK;
|
||||||
const char *sprint_capac (DEVICE *dptr, UNIT *uptr)
|
const char *sprint_capac (DEVICE *dptr, UNIT *uptr)
|
||||||
{
|
{
|
||||||
static char capac_buf[MAX_WIDTH + 12];
|
static char capac_buf[MAX_WIDTH + 12];
|
||||||
t_addr kval = (uptr->flags & UNIT_BINK)? 1024: 1000;
|
t_offset kval = (uptr->flags & UNIT_BINK)? 1024: 1000;
|
||||||
t_addr mval;
|
t_offset mval;
|
||||||
double remfrac;
|
double remfrac;
|
||||||
t_addr psize = uptr->capac;
|
t_offset psize = (t_offset)uptr->capac;
|
||||||
const char *scale, *width;
|
const char *scale, *width;
|
||||||
|
|
||||||
if (sim_switches & SWMASK ('B'))
|
if (sim_switches & SWMASK ('B'))
|
||||||
|
|
Loading…
Add table
Reference in a new issue