fix: Read did not set "Done" in the "unread" case
This commit is contained in:
parent
02044d1d3f
commit
9c01340900
1 changed files with 1 additions and 0 deletions
|
@ -26,6 +26,7 @@ IMPLEMENTATION MODULE InOut ;
|
||||||
IF unread THEN
|
IF unread THEN
|
||||||
unread := FALSE;
|
unread := FALSE;
|
||||||
c := unreadch;
|
c := unreadch;
|
||||||
|
Done := TRUE;
|
||||||
ELSE
|
ELSE
|
||||||
WITH ibuf DO
|
WITH ibuf DO
|
||||||
IF cnt <= maxcnt THEN
|
IF cnt <= maxcnt THEN
|
||||||
|
|
Loading…
Add table
Reference in a new issue