From 0625beaa1d3c98298453b6fff8f663085844ea39 Mon Sep 17 00:00:00 2001 From: Magnus Ahltorp Date: Fri, 13 May 2016 14:51:53 +0200 Subject: Change endian of permdb index file to big-endian --- test/listpermdb.erl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test') diff --git a/test/listpermdb.erl b/test/listpermdb.erl index b9b7c91..4000971 100755 --- a/test/listpermdb.erl +++ b/test/listpermdb.erl @@ -28,7 +28,7 @@ openfile(Filename) -> %% Node %% end. -printfile(<>) -> +printfile(<>) -> io:format("index file header~n", []), printcommit(Rest, index, 8); printfile(<>) -> @@ -40,7 +40,7 @@ printfile(<>) -> printnode(<<>>) -> ok; -printnode(<>) -> +printnode(<>) -> case <> of <<0:1, Offset:63>> -> io:format(" child ~p~n", [Offset]); @@ -84,7 +84,7 @@ printcommit(Data, FileType, FileOffset) -> printindex(<<>>, FileOffset) -> {ok, FileOffset}; -printindex(<>, FileOffset) -> +printindex(<>, FileOffset) -> FileOffset2 = FileOffset + 8, Q = 2, NChildren = 4, @@ -93,7 +93,7 @@ printindex(<>, FileOffset) -> io:format("node ~p~n", [FileOffset]), printnode(Children), printindex(Rest2, FileOffset2 + ChildrenLength); -printindex(<>, FileOffset) -> +printindex(<>, FileOffset) -> {{CommitLength, CommitChecksum, Rest}, FileOffset + 8, FileOffset + 8 + 32 + 8}; printindex(<>, FileOffset) -> io:format("unknown byte: ~p at ~p~n", [Unknown, FileOffset]), -- cgit v1.1