let intr_pwrite fd off buf ofs len = if off < Int64.zero then invalid_arg "ExtUnix.LargeFile.intr_pwrite" else unsafe_intr_pwrite fd off buf ofs len