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

PDP10: Make file position settings consistently use sim_ftell() instead of ftell().

Browse source
This commit is contained in:
Mark Pizzolato 2015-04-02 10:02:00 -07:00
parent a8087ac4cc
commit f081ddf9aa
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
PDP10/pdp10_lp20.c
View file

@ -780,7 +780,7 @@ else {
}
for (i = 0; i < rpt; i++)
fputc (lppdat, lp20_unit.fileref);
lp20_unit.pos = ftell (lp20_unit.fileref);
lp20_unit.pos = (t_addr)sim_ftell (lp20_unit.fileref);
lpcolc = lpcolc + rpt;
return r;
}
@ -816,7 +816,7 @@ for (i = 0; i < cnt; i++) { /* print 'n' newlines; e
} /* At TOF */
} /* update pointer */
}
lp20_unit.pos = ftell (lp20_unit.fileref);
lp20_unit.pos = (t_addr)sim_ftell (lp20_unit.fileref);
if (stoppc) /* Crossed one or more TOFs? */
return FALSE;
@ -841,7 +841,7 @@ for (i = 0; i < dvlnt; i++) { /* search DAVFU */
if (lpcolc) /* TOF, need newline? */
lp20_adv (1, FALSE);
fputc ('\f', lp20_unit.fileref); /* print form feed */
lp20_unit.pos = ftell (lp20_unit.fileref);
lp20_unit.pos = (t_addr)sim_ftell (lp20_unit.fileref);
lppagc = (lppagc - 1) & PAGC_MASK; /* decr page cntr */
if (lppagc != 0)
return TRUE;