let
super_block
=
let
buffer
=
Array
.
create
D
.
block_size
0
in
D
.
read
0
buffer
0;
{
inode_number
=
buffer
.(0);
free_blocks
= {
head
=
buffer
.(1);
nb_free
=
buffer
.(2)}};;