fix: Read did not set "Done" in the "unread" case

This commit is contained in:
ceriel 1987-06-16 09:04:27 +00:00
parent 02044d1d3f
commit 9c01340900

View file

@ -26,6 +26,7 @@ IMPLEMENTATION MODULE InOut ;
IF unread THEN
unread := FALSE;
c := unreadch;
Done := TRUE;
ELSE
WITH ibuf DO
IF cnt <= maxcnt THEN