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

libelf:read_sint36/1: simplify

Browse Source
This commit is contained in:
Mikael Pettersson
2025-08-11 16:51:21 +02:00
parent fc3bd12e7c
commit 5ac34d7cea
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -705,12 +705,6 @@ read_Sword(FP) -> read_sint36(FP).
read_Uchar(FP) -> read_uint9(FP).
read_Word(FP) -> read_uint36(FP).
read_sint36(FP) ->
case read_uint36(FP) of
{ok, UInt36} -> {ok, sext:sext(UInt36, 36)};
{error, _Reason} = Error -> Error
end.
read_uint9(FP) ->
case pdp10_stdio:fgetc(FP) of
eof -> {error, {?MODULE, eof}};
@@ -721,6 +715,11 @@ read_uint18(FP) -> read(FP, 2, fun extint:uint18_from_ext/1).
read_uint36(FP) -> read(FP, 4, fun extint:uint36_from_ext/1).
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))};