routine file_set_size (
trunc_file: file_t;
RPT
new_size: loff_t);
Change the size of the file. If the size increases, new blocks are
zero-filled. After successful return, it is safe to reference mapped areas of
the file up to new_size.