IBM1130: Fix Coverity identified PTR positioning bookkeeping
This commit is contained in:
parent
5d1f5c33fc
commit
0559308ee4
1 changed files with 3 additions and 2 deletions
|
@ -127,10 +127,11 @@ static t_stat ptr_svc (UNIT *uptr)
|
|||
|
||||
if (IS_ONLINE(uptr)) { /* fetch character from file */
|
||||
ptr_char = getc(uptr->fileref);
|
||||
uptr->pos++;
|
||||
|
||||
if (! feof(uptr->fileref)) /* there's more left */
|
||||
if (! feof(uptr->fileref)) { /* there's more left */
|
||||
CLRBIT(ptr_dsw, PTR1134_DSW_READER_NOT_READY);
|
||||
uptr->pos++;
|
||||
}
|
||||
}
|
||||
|
||||
SETBIT(ptr_dsw, PTR1134_DSW_READER_RESPONSE); /* indicate read complete */
|
||||
|
|
Loading…
Add table
Reference in a new issue