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

libelf: replace fgetc loop with fread

Browse Source
This commit is contained in:
Mikael Pettersson
2025-08-11 20:20:42 +02:00
parent 5ac34d7cea
commit c396f4f0cf
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
erlang/apps/lib/src/libelf.erl
View File

@@ -483,7 +483,7 @@ read_StrTab(FP, Base, Limit, ShTab, Index) ->
?SHT_STRTAB ->
case pdp10_stdio:fseek(FP, {bof, Base + Offset}) of
ok ->
case pdp10_stdio:fread(1, Size, FP) of
case fread(Size, FP) of
{ok, _StrTab} = Result ->
case (Limit =:= false) orelse (pdp10_stdio:ftell(FP) =< Limit) of
true -> Result;
@@ -720,15 +720,16 @@ read_sint36(FP) -> read(FP, 4, fun sint36_from_ext/1).
sint36_from_ext(Bytes) ->
sext:sext(extint:uint36_from_ext(Bytes), 36).
read(FP, N, ConvFun) when N >= 0 -> read(FP, N, ConvFun, []).
read(_FP, 0, ConvFun, Acc) -> {ok, ConvFun(lists:reverse(Acc))};
read(FP, N, ConvFun, Acc) ->
case read_uint9(FP) of
{ok, Nonet} -> read(FP, N - 1, ConvFun, [Nonet | Acc]);
read(FP, N, ConvFun) ->
case fread(N, FP) of
{ok, Bytes} -> {ok, ConvFun(Bytes)};
eof -> {error, {?MODULE, eof}};
{error, _Reason} = Error -> Error
end.
fread(N, FP) ->
pdp10_stdio:fread(1, N, FP).
write_Addr(FP, UInt36) -> write_uint36(FP, UInt36).
write_Half(FP, UInt18) -> write_uint18(FP, UInt18).
write_Off(FP, UInt36) -> write_uint36(FP, UInt36).