github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-03-04 10:44:44 +00:00
Code Issues Projects Releases Wiki Activity

pdp10_stdio:prepare_to_write/1: fix failure to reload shiftreg after seek

Browse Source
This commit is contained in:
Mikael Pettersson
2023-09-06 17:53:23 +02:00
parent 0d64455d0d
commit 61dcfccd0d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
erlang/apps/lib/src/pdp10_stdio.erl
View File

@@ -498,7 +498,7 @@ fputs_loop([Nonet | Nonets], State0) ->
prepare_to_write(State0) ->
case State0 of
#state{iodir = write} -> {ok, State0};
#state{iodir = seek, write = true} -> {ok, State0#state{iodir = write}};
#state{iodir = seek, write = true} -> reload_shiftreg(State0);
#state{iodir = read, write = true} ->
case do_fseek(State0, 0, cur) of
{ok, State} -> reload_shiftreg(State);
@@ -528,7 +528,7 @@ reload_shiftreg(State = #state{shiftreg_nr_bits = ShiftregNrBits0}) ->
true -> {ok, State#state{iodir = write}}
end.
peek_next_octet(#state{read = false}) -> {error, read_only};
peek_next_octet(#state{iodev = IoDev}) ->
%% read the next octet which we will partially overwrite
case file_read1(IoDev) of