let
write_super_block
() =
let
buffer
=
Array
.
create
D
.
block_size
0
in
buffer
.(0) <-
super_block
.
inode_number
;
buffer
.(1) <-
super_block
.
free_blocks
.
head
;
buffer
.(2) <-
super_block
.
free_blocks
.
nb_free
;
D
.
write
0
buffer
0;;