lustre/llite/vvp_io.c

   1 /*
   2  * GPL HEADER START
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 2 only,
   8  * as published by the Free Software Foundation.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License version 2 for more details (a copy is included
  14  * in the LICENSE file that accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * version 2 along with this program; If not, see
  18  * http://www.sun.com/software/products/lustre/docs/GPLv2.pdf
  19  *
  20  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
  21  * CA 95054 USA or visit www.sun.com if you need additional information or
  22  * have any questions.
  23  *
  24  * GPL HEADER END
  25  */
  26 /*
  27  * Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
  28  * Use is subject to license terms.
  29  *
  30  * Copyright (c) 2011, 2013, Intel Corporation.
  31  */
  32 /*
  33  * This file is part of Lustre, http://www.lustre.org/
  34  * Lustre is a trademark of Sun Microsystems, Inc.
  35  *
  36  * Implementation of cl_io for VVP layer.
  37  *
  38  *   Author: Nikita Danilov <nikita.danilov@sun.com>
  39  *   Author: Jinshan Xiong <jinshan.xiong@whamcloud.com>
  40  */
  41
  42 #define DEBUG_SUBSYSTEM S_LLITE
  43
  44 #ifndef __KERNEL__
  45 # error This file is kernel only.
  46 #endif
  47
  48 #include <obd.h>
  49 #include <lustre_lite.h>
  50
  51 #include "vvp_internal.h"
  52
  53 static struct vvp_io *cl2vvp_io(const struct lu_env *env,
  54                                 const struct cl_io_slice *slice);
  55
  56 /**
  57  * True, if \a io is a normal io, False for sendfile() / splice_{read|write}
  58  */
  59 int cl_is_normalio(const struct lu_env *env, const struct cl_io *io)
  60 {
  61         struct vvp_io *vio = vvp_env_io(env);
  62
  63         LASSERT(io->ci_type == CIT_READ || io->ci_type == CIT_WRITE);
  64
  65         return vio->cui_io_subtype == IO_NORMAL;
  66 }
  67
  68 /**
  69  * For swapping layout. The file's layout may have changed.
  70  * To avoid populating pages to a wrong stripe, we have to verify the
  71  * correctness of layout. It works because swapping layout processes
  72  * have to acquire group lock.
  73  */
  74 static bool can_populate_pages(const struct lu_env *env, struct cl_io *io,
  75                                 struct inode *inode)
  76 {
  77         struct ll_inode_info    *lli = ll_i2info(inode);
  78         struct ccc_io           *cio = ccc_env_io(env);
  79         bool rc = true;
  80
  81         switch (io->ci_type) {
  82         case CIT_READ:
  83         case CIT_WRITE:
  84                 /* don't need lock here to check lli_layout_gen as we have held
  85                  * extent lock and GROUP lock has to hold to swap layout */
  86                 if (lli->lli_layout_gen != cio->cui_layout_gen) {
  87                         io->ci_need_restart = 1;
  88                         /* this will return application a short read/write */
  89                         io->ci_continue = 0;
  90                         rc = false;
  91                 }
  92         case CIT_FAULT:
  93                 /* fault is okay because we've already had a page. */
  94         default:
  95                 break;
  96         }
  97
  98         return rc;
  99 }
 100
 101 /*****************************************************************************
 102  *
 103  * io operations.
 104  *
 105  */
 106
 107 static int vvp_io_fault_iter_init(const struct lu_env *env,
 108                                   const struct cl_io_slice *ios)
 109 {
 110         struct vvp_io *vio   = cl2vvp_io(env, ios);
 111         struct inode  *inode = ccc_object_inode(ios->cis_obj);
 112
 113         LASSERT(inode ==
 114                 cl2ccc_io(env, ios)->cui_fd->fd_file->f_dentry->d_inode);
 115         vio->u.fault.ft_mtime = LTIME_S(inode->i_mtime);
 116         return 0;
 117 }
 118
 119 static void vvp_io_fini(const struct lu_env *env, const struct cl_io_slice *ios)
 120 {
 121         struct cl_io     *io  = ios->cis_io;
 122         struct cl_object *obj = io->ci_obj;
 123         struct ccc_io    *cio = cl2ccc_io(env, ios);
 124
 125         CLOBINVRNT(env, obj, ccc_object_invariant(obj));
 126
 127         CDEBUG(D_VFSTRACE, "ignore/verify layout %d/%d, layout version %d.\n",
 128                 io->ci_ignore_layout, io->ci_verify_layout, cio->cui_layout_gen);
 129
 130         if (!io->ci_ignore_layout && io->ci_verify_layout) {
 131                 __u32 gen = 0;
 132
 133                 /* check layout version */
 134                 ll_layout_refresh(ccc_object_inode(obj), &gen);
 135                 io->ci_need_restart = cio->cui_layout_gen != gen;
 136                 if (io->ci_need_restart)
 137                         CDEBUG(D_VFSTRACE, "layout changed from %d to %d.\n",
 138                                 cio->cui_layout_gen, gen);
 139         }
 140 }
 141
 142 static void vvp_io_fault_fini(const struct lu_env *env,
 143                               const struct cl_io_slice *ios)
 144 {
 145         struct cl_io   *io   = ios->cis_io;
 146         struct cl_page *page = io->u.ci_fault.ft_page;
 147
 148         CLOBINVRNT(env, io->ci_obj, ccc_object_invariant(io->ci_obj));
 149
 150         if (page != NULL) {
 151                 lu_ref_del(&page->cp_reference, "fault", io);
 152                 cl_page_put(env, page);
 153                 io->u.ci_fault.ft_page = NULL;
 154         }
 155         vvp_io_fini(env, ios);
 156 }
 157
 158 enum cl_lock_mode vvp_mode_from_vma(struct vm_area_struct *vma)
 159 {
 160         /*
 161          * we only want to hold PW locks if the mmap() can generate
 162          * writes back to the file and that only happens in shared
 163          * writable vmas
 164          */
 165         if ((vma->vm_flags & VM_SHARED) && (vma->vm_flags & VM_WRITE))
 166                 return CLM_WRITE;
 167         return CLM_READ;
 168 }
 169
 170 static int vvp_mmap_locks(const struct lu_env *env,
 171                           struct ccc_io *vio, struct cl_io *io)
 172 {
 173         struct ccc_thread_info *cti = ccc_env_info(env);
 174         struct mm_struct       *mm = current->mm;
 175         struct vm_area_struct  *vma;
 176         struct cl_lock_descr   *descr = &cti->cti_descr;
 177         ldlm_policy_data_t      policy;
 178         unsigned long           addr;
 179         unsigned long           seg;
 180         ssize_t                 count;
 181         int                     result;
 182         ENTRY;
 183
 184         LASSERT(io->ci_type == CIT_READ || io->ci_type == CIT_WRITE);
 185
 186         if (!cl_is_normalio(env, io))
 187                 RETURN(0);
 188
 189         if (vio->cui_iov == NULL) /* nfs or loop back device write */
 190                 RETURN(0);
 191
 192         /* No MM (e.g. NFS)? No vmas too. */
 193         if (mm == NULL)
 194                 RETURN(0);
 195
 196         for (seg = 0; seg < vio->cui_nrsegs; seg++) {
 197                 const struct iovec *iv = &vio->cui_iov[seg];
 198
 199                 addr = (unsigned long)iv->iov_base;
 200                 count = iv->iov_len;
 201                 if (count == 0)
 202                         continue;
 203
 204                 count += addr & (~CFS_PAGE_MASK);
 205                 addr &= CFS_PAGE_MASK;
 206
 207                 down_read(&mm->mmap_sem);
 208                 while((vma = our_vma(mm, addr, count)) != NULL) {
 209                         struct inode *inode = vma->vm_file->f_dentry->d_inode;
 210                         int flags = CEF_MUST;
 211
 212                         if (ll_file_nolock(vma->vm_file)) {
 213                                 /*
 214                                  * For no lock case, a lockless lock will be
 215                                  * generated.
 216                                  */
 217                                 flags = CEF_NEVER;
 218                         }
 219
 220                         /*
 221                          * XXX: Required lock mode can be weakened: CIT_WRITE
 222                          * io only ever reads user level buffer, and CIT_READ
 223                          * only writes on it.
 224                          */
 225                         policy_from_vma(&policy, vma, addr, count);
 226                         descr->cld_mode = vvp_mode_from_vma(vma);
 227                         descr->cld_obj = ll_i2info(inode)->lli_clob;
 228                         descr->cld_start = cl_index(descr->cld_obj,
 229                                                     policy.l_extent.start);
 230                         descr->cld_end = cl_index(descr->cld_obj,
 231                                                   policy.l_extent.end);
 232                         descr->cld_enq_flags = flags;
 233                         result = cl_io_lock_alloc_add(env, io, descr);
 234
 235                         CDEBUG(D_VFSTRACE, "lock: %d: [%lu, %lu]\n",
 236                                descr->cld_mode, descr->cld_start,
 237                                descr->cld_end);
 238
 239                         if (result < 0)
 240                                 RETURN(result);
 241
 242                         if (vma->vm_end - addr >= count)
 243                                 break;
 244
 245                         count -= vma->vm_end - addr;
 246                         addr = vma->vm_end;
 247                 }
 248                 up_read(&mm->mmap_sem);
 249         }
 250         RETURN(0);
 251 }
 252
 253 static int vvp_io_rw_lock(const struct lu_env *env, struct cl_io *io,
 254                           enum cl_lock_mode mode, loff_t start, loff_t end)
 255 {
 256         struct ccc_io *cio = ccc_env_io(env);
 257         int result;
 258         int ast_flags = 0;
 259
 260         LASSERT(io->ci_type == CIT_READ || io->ci_type == CIT_WRITE);
 261         ENTRY;
 262
 263         ccc_io_update_iov(env, cio, io);
 264
 265         if (io->u.ci_rw.crw_nonblock)
 266                 ast_flags |= CEF_NONBLOCK;
 267         result = vvp_mmap_locks(env, cio, io);
 268         if (result == 0)
 269                 result = ccc_io_one_lock(env, io, ast_flags, mode, start, end);
 270         RETURN(result);
 271 }
 272
 273 static int vvp_io_read_lock(const struct lu_env *env,
 274                             const struct cl_io_slice *ios)
 275 {
 276         struct cl_io         *io  = ios->cis_io;
 277         struct ll_inode_info *lli = ll_i2info(ccc_object_inode(io->ci_obj));
 278         int result;
 279
 280         ENTRY;
 281         /* XXX: Layer violation, we shouldn't see lsm at llite level. */
 282         if (lli->lli_has_smd) /* lsm-less file doesn't need to lock */
 283                 result = vvp_io_rw_lock(env, io, CLM_READ,
 284                                         io->u.ci_rd.rd.crw_pos,
 285                                         io->u.ci_rd.rd.crw_pos +
 286                                         io->u.ci_rd.rd.crw_count - 1);
 287         else
 288                 result = 0;
 289         RETURN(result);
 290 }
 291
 292 static int vvp_io_fault_lock(const struct lu_env *env,
 293                              const struct cl_io_slice *ios)
 294 {
 295         struct cl_io *io   = ios->cis_io;
 296         struct vvp_io *vio = cl2vvp_io(env, ios);
 297         /*
 298          * XXX LDLM_FL_CBPENDING
 299          */
 300         return ccc_io_one_lock_index
 301                 (env, io, 0, vvp_mode_from_vma(vio->u.fault.ft_vma),
 302                  io->u.ci_fault.ft_index, io->u.ci_fault.ft_index);
 303 }
 304
 305 static int vvp_io_write_lock(const struct lu_env *env,
 306                              const struct cl_io_slice *ios)
 307 {
 308         struct cl_io *io = ios->cis_io;
 309         loff_t start;
 310         loff_t end;
 311
 312         if (io->u.ci_wr.wr_append) {
 313                 start = 0;
 314                 end   = OBD_OBJECT_EOF;
 315         } else {
 316                 start = io->u.ci_wr.wr.crw_pos;
 317                 end   = start + io->u.ci_wr.wr.crw_count - 1;
 318         }
 319         return vvp_io_rw_lock(env, io, CLM_WRITE, start, end);
 320 }
 321
 322 static int vvp_io_setattr_iter_init(const struct lu_env *env,
 323                                     const struct cl_io_slice *ios)
 324 {
 325         return 0;
 326 }
 327
 328 /**
 329  * Implementation of cl_io_operations::cio_lock() method for CIT_SETATTR io.
 330  *
 331  * Handles "lockless io" mode when extent locking is done by server.
 332  */
 333 static int vvp_io_setattr_lock(const struct lu_env *env,
 334                                const struct cl_io_slice *ios)
 335 {
 336         struct ccc_io *cio = ccc_env_io(env);
 337         struct cl_io  *io  = ios->cis_io;
 338         __u64 new_size;
 339         __u32 enqflags = 0;
 340
 341         if (cl_io_is_trunc(io)) {
 342                 new_size = io->u.ci_setattr.sa_attr.lvb_size;
 343                 if (new_size == 0)
 344                         enqflags = CEF_DISCARD_DATA;
 345         } else {
 346                 if ((io->u.ci_setattr.sa_attr.lvb_mtime >=
 347                      io->u.ci_setattr.sa_attr.lvb_ctime) ||
 348                     (io->u.ci_setattr.sa_attr.lvb_atime >=
 349                      io->u.ci_setattr.sa_attr.lvb_ctime))
 350                         return 0;
 351                 new_size = 0;
 352         }
 353         cio->u.setattr.cui_local_lock = SETATTR_EXTENT_LOCK;
 354         return ccc_io_one_lock(env, io, enqflags, CLM_WRITE,
 355                                new_size, OBD_OBJECT_EOF);
 356 }
 357
 358 static int vvp_do_vmtruncate(struct inode *inode, size_t size)
 359 {
 360         int     result;
 361         loff_t oldsize;
 362
 363         /*
 364          * Only ll_inode_size_lock is taken at this level.
 365          */
 366         ll_inode_size_lock(inode);
 367         result = inode_newsize_ok(inode, size);
 368         if (result < 0) {
 369                 ll_inode_size_unlock(inode);
 370                 return result;
 371         }
 372         oldsize = inode->i_size;
 373         i_size_write(inode, size);
 374
 375         truncate_pagecache(inode, oldsize, size);
 376         ll_inode_size_unlock(inode);
 377         return result;
 378 }
 379
 380 static int vvp_io_setattr_trunc(const struct lu_env *env,
 381                                 const struct cl_io_slice *ios,
 382                                 struct inode *inode, loff_t size)
 383 {
 384         inode_dio_wait(inode);
 385         return 0;
 386 }
 387
 388 static int vvp_io_setattr_time(const struct lu_env *env,
 389                                const struct cl_io_slice *ios)
 390 {
 391         struct cl_io       *io    = ios->cis_io;
 392         struct cl_object   *obj   = io->ci_obj;
 393         struct cl_attr     *attr  = ccc_env_thread_attr(env);
 394         int result;
 395         unsigned valid = CAT_CTIME;
 396
 397         cl_object_attr_lock(obj);
 398         attr->cat_ctime = io->u.ci_setattr.sa_attr.lvb_ctime;
 399         if (io->u.ci_setattr.sa_valid & ATTR_ATIME_SET) {
 400                 attr->cat_atime = io->u.ci_setattr.sa_attr.lvb_atime;
 401                 valid |= CAT_ATIME;
 402         }
 403         if (io->u.ci_setattr.sa_valid & ATTR_MTIME_SET) {
 404                 attr->cat_mtime = io->u.ci_setattr.sa_attr.lvb_mtime;
 405                 valid |= CAT_MTIME;
 406         }
 407         result = cl_object_attr_set(env, obj, attr, valid);
 408         cl_object_attr_unlock(obj);
 409
 410         return result;
 411 }
 412
 413 static int vvp_io_setattr_start(const struct lu_env *env,
 414                                 const struct cl_io_slice *ios)
 415 {
 416         struct cl_io    *io    = ios->cis_io;
 417         struct inode    *inode = ccc_object_inode(io->ci_obj);
 418         int result = 0;
 419
 420         mutex_lock(&inode->i_mutex);
 421         if (cl_io_is_trunc(io))
 422                 result = vvp_io_setattr_trunc(env, ios, inode,
 423                                         io->u.ci_setattr.sa_attr.lvb_size);
 424         if (result == 0)
 425                 result = vvp_io_setattr_time(env, ios);
 426         return result;
 427 }
 428
 429 static void vvp_io_setattr_end(const struct lu_env *env,
 430                                const struct cl_io_slice *ios)
 431 {
 432         struct cl_io *io    = ios->cis_io;
 433         struct inode *inode = ccc_object_inode(io->ci_obj);
 434
 435         if (cl_io_is_trunc(io)) {
 436                 /* Truncate in memory pages - they must be clean pages
 437                  * because osc has already notified to destroy osc_extents. */
 438                 vvp_do_vmtruncate(inode, io->u.ci_setattr.sa_attr.lvb_size);
 439                 inode_dio_write_done(inode);
 440         }
 441         mutex_unlock(&inode->i_mutex);
 442 }
 443
 444 static void vvp_io_setattr_fini(const struct lu_env *env,
 445                                 const struct cl_io_slice *ios)
 446 {
 447         vvp_io_fini(env, ios);
 448 }
 449
 450 #ifdef HAVE_FILE_READV
 451 static ssize_t lustre_generic_file_read(struct file *file,
 452                                         struct ccc_io *vio, loff_t *ppos)
 453 {
 454         return generic_file_readv(file, vio->cui_iov, vio->cui_nrsegs, ppos);
 455 }
 456
 457 static ssize_t lustre_generic_file_write(struct file *file,
 458                                          struct ccc_io *vio, loff_t *ppos)
 459 {
 460         return generic_file_writev(file, vio->cui_iov, vio->cui_nrsegs, ppos);
 461 }
 462 #else
 463 static ssize_t lustre_generic_file_read(struct file *file,
 464                                         struct ccc_io *vio, loff_t *ppos)
 465 {
 466         return generic_file_aio_read(vio->cui_iocb, vio->cui_iov,
 467                                      vio->cui_nrsegs, *ppos);
 468 }
 469
 470 static ssize_t lustre_generic_file_write(struct file *file,
 471                                         struct ccc_io *vio, loff_t *ppos)
 472 {
 473         return generic_file_aio_write(vio->cui_iocb, vio->cui_iov,
 474                                       vio->cui_nrsegs, *ppos);
 475 }
 476 #endif
 477
 478 static int vvp_io_read_start(const struct lu_env *env,
 479                              const struct cl_io_slice *ios)
 480 {
 481         struct vvp_io     *vio   = cl2vvp_io(env, ios);
 482         struct ccc_io     *cio   = cl2ccc_io(env, ios);
 483         struct cl_io      *io    = ios->cis_io;
 484         struct cl_object  *obj   = io->ci_obj;
 485         struct inode      *inode = ccc_object_inode(obj);
 486         struct ll_ra_read *bead  = &vio->cui_bead;
 487         struct file       *file  = cio->cui_fd->fd_file;
 488
 489         int     result;
 490         loff_t  pos = io->u.ci_rd.rd.crw_pos;
 491         long    cnt = io->u.ci_rd.rd.crw_count;
 492         long    tot = cio->cui_tot_count;
 493         int     exceed = 0;
 494
 495         CLOBINVRNT(env, obj, ccc_object_invariant(obj));
 496
 497         CDEBUG(D_VFSTRACE, "read: -> [%lli, %lli)\n", pos, pos + cnt);
 498
 499         if (!can_populate_pages(env, io, inode))
 500                 return 0;
 501
 502         result = ccc_prep_size(env, obj, io, pos, tot, &exceed);
 503         if (result != 0)
 504                 return result;
 505         else if (exceed != 0)
 506                 goto out;
 507
 508         LU_OBJECT_HEADER(D_INODE, env, &obj->co_lu,
 509                         "Read ino %lu, %lu bytes, offset %lld, size %llu\n",
 510                         inode->i_ino, cnt, pos, i_size_read(inode));
 511
 512         /* turn off the kernel's read-ahead */
 513         cio->cui_fd->fd_file->f_ra.ra_pages = 0;
 514
 515         /* initialize read-ahead window once per syscall */
 516         if (!vio->cui_ra_window_set) {
 517                 vio->cui_ra_window_set = 1;
 518                 bead->lrr_start = cl_index(obj, pos);
 519                 bead->lrr_count = cl_index(obj, tot + PAGE_CACHE_SIZE - 1);
 520                 ll_ra_read_in(file, bead);
 521         }
 522
 523         /* BUG: 5972 */
 524         file_accessed(file);
 525         switch (vio->cui_io_subtype) {
 526         case IO_NORMAL:
 527                  result = lustre_generic_file_read(file, cio, &pos);
 528                  break;
 529         case IO_SPLICE:
 530                 result = generic_file_splice_read(file, &pos,
 531                                 vio->u.splice.cui_pipe, cnt,
 532                                 vio->u.splice.cui_flags);
 533                 /* LU-1109: do splice read stripe by stripe otherwise if it
 534                  * may make nfsd stuck if this read occupied all internal pipe
 535                  * buffers. */
 536                 io->ci_continue = 0;
 537                 break;
 538         default:
 539                 CERROR("Wrong IO type %u\n", vio->cui_io_subtype);
 540                 LBUG();
 541         }
 542
 543 out:
 544         if (result >= 0) {
 545                 if (result < cnt)
 546                         io->ci_continue = 0;
 547                 io->ci_nob += result;
 548                 ll_rw_stats_tally(ll_i2sbi(inode), current->pid, cio->cui_fd,
 549                                   pos, result, READ);
 550                 result = 0;
 551         }
 552
 553         return result;
 554 }
 555
 556 static void vvp_io_read_fini(const struct lu_env *env, const struct cl_io_slice *ios)
 557 {
 558         struct vvp_io *vio = cl2vvp_io(env, ios);
 559         struct ccc_io *cio = cl2ccc_io(env, ios);
 560
 561         if (vio->cui_ra_window_set)
 562                 ll_ra_read_ex(cio->cui_fd->fd_file, &vio->cui_bead);
 563
 564         vvp_io_fini(env, ios);
 565 }
 566
 567 static int vvp_io_write_start(const struct lu_env *env,
 568                               const struct cl_io_slice *ios)
 569 {
 570         struct ccc_io      *cio   = cl2ccc_io(env, ios);
 571         struct cl_io       *io    = ios->cis_io;
 572         struct cl_object   *obj   = io->ci_obj;
 573         struct inode       *inode = ccc_object_inode(obj);
 574         struct file        *file  = cio->cui_fd->fd_file;
 575         ssize_t result = 0;
 576         loff_t pos = io->u.ci_wr.wr.crw_pos;
 577         size_t cnt = io->u.ci_wr.wr.crw_count;
 578
 579         ENTRY;
 580
 581         if (!can_populate_pages(env, io, inode))
 582                 return 0;
 583
 584         if (cl_io_is_append(io)) {
 585                 /*
 586                  * PARALLEL IO This has to be changed for parallel IO doing
 587                  * out-of-order writes.
 588                  */
 589                 pos = io->u.ci_wr.wr.crw_pos = i_size_read(inode);
 590 #ifndef HAVE_FILE_WRITEV
 591                 cio->cui_iocb->ki_pos = pos;
 592 #endif
 593         }
 594
 595         CDEBUG(D_VFSTRACE, "write: [%lli, %lli)\n", pos, pos + (long long)cnt);
 596
 597         if (cio->cui_iov == NULL) /* from a temp io in ll_cl_init(). */
 598                 result = 0;
 599         else
 600                 result = lustre_generic_file_write(file, cio, &pos);
 601
 602         if (result > 0) {
 603                 if (result < cnt)
 604                         io->ci_continue = 0;
 605                 io->ci_nob += result;
 606                 ll_rw_stats_tally(ll_i2sbi(inode), current->pid,
 607                                   cio->cui_fd, pos, result, WRITE);
 608                 result = 0;
 609         }
 610
 611         RETURN(result);
 612 }
 613
 614 static int vvp_io_kernel_fault(struct vvp_fault_io *cfio)
 615 {
 616         struct vm_fault *vmf = cfio->fault.ft_vmf;
 617
 618         cfio->fault.ft_flags = filemap_fault(cfio->ft_vma, vmf);
 619
 620         if (vmf->page) {
 621                 LL_CDEBUG_PAGE(D_PAGE, vmf->page, "got addr %p type NOPAGE\n",
 622                                vmf->virtual_address);
 623                 if (unlikely(!(cfio->fault.ft_flags & VM_FAULT_LOCKED))) {
 624                         lock_page(vmf->page);
 625                         cfio->fault.ft_flags &= VM_FAULT_LOCKED;
 626                 }
 627
 628                 cfio->ft_vmpage = vmf->page;
 629                 return 0;
 630         }
 631
 632         if (cfio->fault.ft_flags & VM_FAULT_SIGBUS) {
 633                 CDEBUG(D_PAGE, "got addr %p - SIGBUS\n", vmf->virtual_address);
 634                 return -EFAULT;
 635         }
 636
 637         if (cfio->fault.ft_flags & VM_FAULT_OOM) {
 638                 CDEBUG(D_PAGE, "got addr %p - OOM\n", vmf->virtual_address);
 639                 return -ENOMEM;
 640         }
 641
 642         if (cfio->fault.ft_flags & VM_FAULT_RETRY)
 643                 return -EAGAIN;
 644
 645         CERROR("unknow error in page fault %d!\n", cfio->fault.ft_flags);
 646         return -EINVAL;
 647 }
 648
 649 static int vvp_io_fault_start(const struct lu_env *env,
 650                               const struct cl_io_slice *ios)
 651 {
 652         struct vvp_io       *vio     = cl2vvp_io(env, ios);
 653         struct cl_io        *io      = ios->cis_io;
 654         struct cl_object    *obj     = io->ci_obj;
 655         struct inode        *inode   = ccc_object_inode(obj);
 656         struct cl_fault_io  *fio     = &io->u.ci_fault;
 657         struct vvp_fault_io *cfio    = &vio->u.fault;
 658         loff_t               offset;
 659         int                  result  = 0;
 660         struct page          *vmpage  = NULL;
 661         struct cl_page      *page;
 662         loff_t               size;
 663         pgoff_t              last; /* last page in a file data region */
 664
 665         if (fio->ft_executable &&
 666             LTIME_S(inode->i_mtime) != vio->u.fault.ft_mtime)
 667                 CWARN("binary "DFID
 668                       " changed while waiting for the page fault lock\n",
 669                       PFID(lu_object_fid(&obj->co_lu)));
 670
 671         /* offset of the last byte on the page */
 672         offset = cl_offset(obj, fio->ft_index + 1) - 1;
 673         LASSERT(cl_index(obj, offset) == fio->ft_index);
 674         result = ccc_prep_size(env, obj, io, 0, offset + 1, NULL);
 675         if (result != 0)
 676                 return result;
 677
 678         /* must return locked page */
 679         if (fio->ft_mkwrite) {
 680                 LASSERT(cfio->ft_vmpage != NULL);
 681                 lock_page(cfio->ft_vmpage);
 682         } else {
 683                 result = vvp_io_kernel_fault(cfio);
 684                 if (result != 0)
 685                         return result;
 686         }
 687
 688         vmpage = cfio->ft_vmpage;
 689         LASSERT(PageLocked(vmpage));
 690
 691         if (OBD_FAIL_CHECK(OBD_FAIL_LLITE_FAULT_TRUNC_RACE))
 692                 ll_invalidate_page(vmpage);
 693
 694         size = i_size_read(inode);
 695         /* Though we have already held a cl_lock upon this page, but
 696          * it still can be truncated locally. */
 697         if (unlikely((vmpage->mapping != inode->i_mapping) ||
 698                      (page_offset(vmpage) > size))) {
 699                 CDEBUG(D_PAGE, "llite: fault and truncate race happened!\n");
 700
 701                 /* return +1 to stop cl_io_loop() and ll_fault() will catch
 702                  * and retry. */
 703                 GOTO(out, result = +1);
 704         }
 705
 706
 707         if (fio->ft_mkwrite ) {
 708                 pgoff_t last_index;
 709                 /*
 710                  * Capture the size while holding the lli_trunc_sem from above
 711                  * we want to make sure that we complete the mkwrite action
 712                  * while holding this lock. We need to make sure that we are
 713                  * not past the end of the file.
 714                  */
 715                 last_index = cl_index(obj, size - 1);
 716                 if (last_index < fio->ft_index) {
 717                         CDEBUG(D_PAGE,
 718                                 "llite: mkwrite and truncate race happened: "
 719                                 "%p: 0x%lx 0x%lx\n",
 720                                 vmpage->mapping,fio->ft_index,last_index);
 721                         /*
 722                          * We need to return if we are
 723                          * passed the end of the file. This will propagate
 724                          * up the call stack to ll_page_mkwrite where
 725                          * we will return VM_FAULT_NOPAGE. Any non-negative
 726                          * value returned here will be silently
 727                          * converted to 0. If the vmpage->mapping is null
 728                          * the error code would be converted back to ENODATA
 729                          * in ll_page_mkwrite0. Thus we return -ENODATA
 730                          * to handle both cases
 731                          */
 732                         GOTO(out, result = -ENODATA);
 733                 }
 734         }
 735
 736         page = cl_page_find(env, obj, fio->ft_index, vmpage, CPT_CACHEABLE);
 737         if (IS_ERR(page))
 738                 GOTO(out, result = PTR_ERR(page));
 739
 740         /* if page is going to be written, we should add this page into cache
 741          * earlier. */
 742         if (fio->ft_mkwrite) {
 743                 wait_on_page_writeback(vmpage);
 744                 if (set_page_dirty(vmpage)) {
 745                         struct ccc_page *cp;
 746
 747                         /* vvp_page_assume() calls wait_on_page_writeback(). */
 748                         cl_page_assume(env, io, page);
 749
 750                         cp = cl2ccc_page(cl_page_at(page, &vvp_device_type));
 751                         vvp_write_pending(cl2ccc(obj), cp);
 752
 753                         /* Do not set Dirty bit here so that in case IO is
 754                          * started before the page is really made dirty, we
 755                          * still have chance to detect it. */
 756                         result = cl_page_cache_add(env, io, page, CRT_WRITE);
 757                         LASSERT(cl_page_is_owned(page, io));
 758
 759                         vmpage = NULL;
 760                         if (result < 0) {
 761                                 cl_page_unmap(env, io, page);
 762                                 cl_page_discard(env, io, page);
 763                                 cl_page_disown(env, io, page);
 764
 765                                 cl_page_put(env, page);
 766
 767                                 /* we're in big trouble, what can we do now? */
 768                                 if (result == -EDQUOT)
 769                                         result = -ENOSPC;
 770                                 GOTO(out, result);
 771                         } else
 772                                 cl_page_disown(env, io, page);
 773                 }
 774         }
 775
 776         last = cl_index(obj, size - 1);
 777         /*
 778          * The ft_index is only used in the case of
 779          * a mkwrite action. We need to check
 780          * our assertions are correct, since
 781          * we should have caught this above
 782          */
 783         LASSERT(!fio->ft_mkwrite || fio->ft_index <= last);
 784         if (fio->ft_index == last)
 785                 /*
 786                  * Last page is mapped partially.
 787                  */
 788                 fio->ft_nob = size - cl_offset(obj, fio->ft_index);
 789         else
 790                 fio->ft_nob = cl_page_size(obj);
 791
 792         lu_ref_add(&page->cp_reference, "fault", io);
 793         fio->ft_page = page;
 794         EXIT;
 795
 796 out:
 797         /* return unlocked vmpage to avoid deadlocking */
 798         if (vmpage != NULL)
 799                 unlock_page(vmpage);
 800         cfio->fault.ft_flags &= ~VM_FAULT_LOCKED;
 801         return result;
 802 }
 803
 804 static int vvp_io_fsync_start(const struct lu_env *env,
 805                               const struct cl_io_slice *ios)
 806 {
 807         /* we should mark TOWRITE bit to each dirty page in radix tree to
 808          * verify pages have been written, but this is difficult because of
 809          * race. */
 810         return 0;
 811 }
 812
 813 static int vvp_io_read_page(const struct lu_env *env,
 814                             const struct cl_io_slice *ios,
 815                             const struct cl_page_slice *slice)
 816 {
 817         struct cl_io              *io     = ios->cis_io;
 818         struct cl_object          *obj    = slice->cpl_obj;
 819         struct ccc_page           *cp     = cl2ccc_page(slice);
 820         struct cl_page            *page   = slice->cpl_page;
 821         struct inode              *inode  = ccc_object_inode(obj);
 822         struct ll_sb_info         *sbi    = ll_i2sbi(inode);
 823         struct ll_file_data       *fd     = cl2ccc_io(env, ios)->cui_fd;
 824         struct ll_readahead_state *ras    = &fd->fd_ras;
 825         struct page                *vmpage = cp->cpg_page;
 826         struct cl_2queue          *queue  = &io->ci_queue;
 827         int rc;
 828
 829         CLOBINVRNT(env, obj, ccc_object_invariant(obj));
 830         LASSERT(slice->cpl_obj == obj);
 831
 832         ENTRY;
 833
 834         if (sbi->ll_ra_info.ra_max_pages_per_file &&
 835             sbi->ll_ra_info.ra_max_pages)
 836                 ras_update(sbi, inode, ras, page->cp_index,
 837                            cp->cpg_defer_uptodate);
 838
 839         /* Sanity check whether the page is protected by a lock. */
 840         rc = cl_page_is_under_lock(env, io, page);
 841         if (rc != -EBUSY) {
 842                 CL_PAGE_HEADER(D_WARNING, env, page, "%s: %d\n",
 843                                rc == -ENODATA ? "without a lock" :
 844                                "match failed", rc);
 845                 if (rc != -ENODATA)
 846                         RETURN(rc);
 847         }
 848
 849         if (cp->cpg_defer_uptodate) {
 850                 cp->cpg_ra_used = 1;
 851                 cl_page_export(env, page, 1);
 852         }
 853         /*
 854          * Add page into the queue even when it is marked uptodate above.
 855          * this will unlock it automatically as part of cl_page_list_disown().
 856          */
 857         cl_2queue_add(queue, page);
 858         if (sbi->ll_ra_info.ra_max_pages_per_file &&
 859             sbi->ll_ra_info.ra_max_pages)
 860                 ll_readahead(env, io, ras,
 861                              vmpage->mapping, &queue->c2_qin, fd->fd_flags);
 862
 863         RETURN(0);
 864 }
 865
 866 static int vvp_page_sync_io(const struct lu_env *env, struct cl_io *io,
 867                             struct cl_page *page, struct ccc_page *cp,
 868                             enum cl_req_type crt)
 869 {
 870         struct cl_2queue  *queue;
 871         int result;
 872
 873         LASSERT(io->ci_type == CIT_READ || io->ci_type == CIT_WRITE);
 874
 875         queue = &io->ci_queue;
 876         cl_2queue_init_page(queue, page);
 877
 878         result = cl_io_submit_sync(env, io, crt, queue, 0);
 879         LASSERT(cl_page_is_owned(page, io));
 880
 881         if (crt == CRT_READ)
 882                 /*
 883                  * in CRT_WRITE case page is left locked even in case of
 884                  * error.
 885                  */
 886                 cl_page_list_disown(env, io, &queue->c2_qin);
 887         cl_2queue_fini(env, queue);
 888
 889         return result;
 890 }
 891
 892 /**
 893  * Prepare partially written-to page for a write.
 894  */
 895 static int vvp_io_prepare_partial(const struct lu_env *env, struct cl_io *io,
 896                                   struct cl_object *obj, struct cl_page *pg,
 897                                   struct ccc_page *cp,
 898                                   unsigned from, unsigned to)
 899 {
 900         struct cl_attr *attr   = ccc_env_thread_attr(env);
 901         loff_t          offset = cl_offset(obj, pg->cp_index);
 902         int             result;
 903
 904         cl_object_attr_lock(obj);
 905         result = cl_object_attr_get(env, obj, attr);
 906         cl_object_attr_unlock(obj);
 907         if (result == 0) {
 908                 /*
 909                  * If are writing to a new page, no need to read old data.
 910                  * The extent locking will have updated the KMS, and for our
 911                  * purposes here we can treat it like i_size.
 912                  */
 913                 if (attr->cat_kms <= offset) {
 914                         char *kaddr = ll_kmap_atomic(cp->cpg_page, KM_USER0);
 915
 916                         memset(kaddr, 0, cl_page_size(obj));
 917                         ll_kunmap_atomic(kaddr, KM_USER0);
 918                 } else if (cp->cpg_defer_uptodate)
 919                         cp->cpg_ra_used = 1;
 920                 else
 921                         result = vvp_page_sync_io(env, io, pg, cp, CRT_READ);
 922                 /*
 923                  * In older implementations, obdo_refresh_inode is called here
 924                  * to update the inode because the write might modify the
 925                  * object info at OST. However, this has been proven useless,
 926                  * since LVB functions will be called when user space program
 927                  * tries to retrieve inode attribute.  Also, see bug 15909 for
 928                  * details. -jay
 929                  */
 930                 if (result == 0)
 931                         cl_page_export(env, pg, 1);
 932         }
 933         return result;
 934 }
 935
 936 static int vvp_io_prepare_write(const struct lu_env *env,
 937                                 const struct cl_io_slice *ios,
 938                                 const struct cl_page_slice *slice,
 939                                 unsigned from, unsigned to)
 940 {
 941         struct cl_object *obj    = slice->cpl_obj;
 942         struct ccc_page  *cp     = cl2ccc_page(slice);
 943         struct cl_page   *pg     = slice->cpl_page;
 944         struct page       *vmpage = cp->cpg_page;
 945
 946         int result;
 947
 948         ENTRY;
 949
 950         LINVRNT(cl_page_is_vmlocked(env, pg));
 951         LASSERT(vmpage->mapping->host == ccc_object_inode(obj));
 952
 953         result = 0;
 954
 955         CL_PAGE_HEADER(D_PAGE, env, pg, "preparing: [%d, %d]\n", from, to);
 956         if (!PageUptodate(vmpage)) {
 957                 /*
 958                  * We're completely overwriting an existing page, so _don't_
 959                  * set it up to date until commit_write
 960                  */
 961                 if (from == 0 && to == PAGE_CACHE_SIZE) {
 962                         CL_PAGE_HEADER(D_PAGE, env, pg, "full page write\n");
 963                         POISON_PAGE(page, 0x11);
 964                 } else
 965                         result = vvp_io_prepare_partial(env, ios->cis_io, obj,
 966                                                         pg, cp, from, to);
 967         } else
 968                 CL_PAGE_HEADER(D_PAGE, env, pg, "uptodate\n");
 969         RETURN(result);
 970 }
 971
 972 static int vvp_io_commit_write(const struct lu_env *env,
 973                                const struct cl_io_slice *ios,
 974                                const struct cl_page_slice *slice,
 975                                unsigned from, unsigned to)
 976 {
 977         struct cl_object  *obj    = slice->cpl_obj;
 978         struct cl_io      *io     = ios->cis_io;
 979         struct ccc_page   *cp     = cl2ccc_page(slice);
 980         struct cl_page    *pg     = slice->cpl_page;
 981         struct inode      *inode  = ccc_object_inode(obj);
 982         struct ll_sb_info *sbi    = ll_i2sbi(inode);
 983         struct ll_inode_info *lli = ll_i2info(inode);
 984         struct page        *vmpage = cp->cpg_page;
 985
 986         int    result;
 987         int    tallyop;
 988         loff_t size;
 989
 990         ENTRY;
 991
 992         LINVRNT(cl_page_is_vmlocked(env, pg));
 993         LASSERT(vmpage->mapping->host == inode);
 994
 995         LU_OBJECT_HEADER(D_INODE, env, &obj->co_lu, "commiting page write\n");
 996         CL_PAGE_HEADER(D_PAGE, env, pg, "committing: [%d, %d]\n", from, to);
 997
 998         /*
 999          * queue a write for some time in the future the first time we
1000          * dirty the page.
1001          *
1002          * This is different from what other file systems do: they usually
1003          * just mark page (and some of its buffers) dirty and rely on
1004          * balance_dirty_pages() to start a write-back. Lustre wants write-back
1005          * to be started earlier for the following reasons:
1006          *
1007          *     (1) with a large number of clients we need to limit the amount
1008          *     of cached data on the clients a lot;
1009          *
1010          *     (2) large compute jobs generally want compute-only then io-only
1011          *     and the IO should complete as quickly as possible;
1012          *
1013          *     (3) IO is batched up to the RPC size and is async until the
1014          *     client max cache is hit
1015          *     (/proc/fs/lustre/osc/OSC.../max_dirty_mb)
1016          *
1017          */
1018         if (!PageDirty(vmpage)) {
1019                 tallyop = LPROC_LL_DIRTY_MISSES;
1020                 result = cl_page_cache_add(env, io, pg, CRT_WRITE);
1021                 if (result == 0) {
1022                         /* page was added into cache successfully. */
1023                         set_page_dirty(vmpage);
1024                         vvp_write_pending(cl2ccc(obj), cp);
1025                 } else if (result == -EDQUOT) {
1026                         pgoff_t last_index = i_size_read(inode) >> PAGE_CACHE_SHIFT;
1027                         bool need_clip = true;
1028
1029                         /*
1030                          * Client ran out of disk space grant. Possible
1031                          * strategies are:
1032                          *
1033                          *     (a) do a sync write, renewing grant;
1034                          *
1035                          *     (b) stop writing on this stripe, switch to the
1036                          *     next one.
1037                          *
1038                          * (b) is a part of "parallel io" design that is the
1039                          * ultimate goal. (a) is what "old" client did, and
1040                          * what the new code continues to do for the time
1041                          * being.
1042                          */
1043                         if (last_index > pg->cp_index) {
1044                                 to = PAGE_CACHE_SIZE;
1045                                 need_clip = false;
1046                         } else if (last_index == pg->cp_index) {
1047                                 int size_to = i_size_read(inode) & ~CFS_PAGE_MASK;
1048                                 if (to < size_to)
1049                                         to = size_to;
1050                         }
1051                         if (need_clip)
1052                                 cl_page_clip(env, pg, 0, to);
1053                         result = vvp_page_sync_io(env, io, pg, cp, CRT_WRITE);
1054                         if (result)
1055                                 CERROR("Write page %lu of inode %p failed %d\n",
1056                                        pg->cp_index, inode, result);
1057                 }
1058         } else {
1059                 tallyop = LPROC_LL_DIRTY_HITS;
1060                 result = 0;
1061         }
1062         ll_stats_ops_tally(sbi, tallyop, 1);
1063
1064         /* Inode should be marked DIRTY even if no new page was marked DIRTY
1065          * because page could have been not flushed between 2 modifications.
1066          * It is important the file is marked DIRTY as soon as the I/O is done
1067          * Indeed, when cache is flushed, file could be already closed and it
1068          * is too late to warn the MDT.
1069          * It is acceptable that file is marked DIRTY even if I/O is dropped
1070          * for some reasons before being flushed to OST.
1071          */
1072         if (result == 0) {
1073                 spin_lock(&lli->lli_lock);
1074                 lli->lli_flags |= LLIF_DATA_MODIFIED;
1075                 spin_unlock(&lli->lli_lock);
1076         }
1077
1078         size = cl_offset(obj, pg->cp_index) + to;
1079
1080         ll_inode_size_lock(inode);
1081         if (result == 0) {
1082                 if (size > i_size_read(inode)) {
1083                         cl_isize_write_nolock(inode, size);
1084                         CDEBUG(D_VFSTRACE, DFID" updating i_size %lu\n",
1085                                PFID(lu_object_fid(&obj->co_lu)),
1086                                (unsigned long)size);
1087                 }
1088                 cl_page_export(env, pg, 1);
1089         } else {
1090                 if (size > i_size_read(inode))
1091                         cl_page_discard(env, io, pg);
1092         }
1093         ll_inode_size_unlock(inode);
1094         RETURN(result);
1095 }
1096
1097 static const struct cl_io_operations vvp_io_ops = {
1098         .op = {
1099                 [CIT_READ] = {
1100                         .cio_fini      = vvp_io_read_fini,
1101                         .cio_lock      = vvp_io_read_lock,
1102                         .cio_start     = vvp_io_read_start,
1103                         .cio_advance   = ccc_io_advance
1104                 },
1105                 [CIT_WRITE] = {
1106                         .cio_fini      = vvp_io_fini,
1107                         .cio_lock      = vvp_io_write_lock,
1108                         .cio_start     = vvp_io_write_start,
1109                         .cio_advance   = ccc_io_advance
1110                 },
1111                 [CIT_SETATTR] = {
1112                         .cio_fini       = vvp_io_setattr_fini,
1113                         .cio_iter_init  = vvp_io_setattr_iter_init,
1114                         .cio_lock       = vvp_io_setattr_lock,
1115                         .cio_start      = vvp_io_setattr_start,
1116                         .cio_end        = vvp_io_setattr_end
1117                 },
1118                 [CIT_FAULT] = {
1119                         .cio_fini      = vvp_io_fault_fini,
1120                         .cio_iter_init = vvp_io_fault_iter_init,
1121                         .cio_lock      = vvp_io_fault_lock,
1122                         .cio_start     = vvp_io_fault_start,
1123                         .cio_end       = ccc_io_end
1124                 },
1125                 [CIT_FSYNC] = {
1126                         .cio_start  = vvp_io_fsync_start,
1127                         .cio_fini   = vvp_io_fini
1128                 },
1129                 [CIT_MISC] = {
1130                         .cio_fini   = vvp_io_fini
1131                 }
1132         },
1133         .cio_read_page     = vvp_io_read_page,
1134         .cio_prepare_write = vvp_io_prepare_write,
1135         .cio_commit_write  = vvp_io_commit_write
1136 };
1137
1138 int vvp_io_init(const struct lu_env *env, struct cl_object *obj,
1139                 struct cl_io *io)
1140 {
1141         struct vvp_io      *vio   = vvp_env_io(env);
1142         struct ccc_io      *cio   = ccc_env_io(env);
1143         struct inode       *inode = ccc_object_inode(obj);
1144         int                 result;
1145
1146         CLOBINVRNT(env, obj, ccc_object_invariant(obj));
1147         ENTRY;
1148
1149         CL_IO_SLICE_CLEAN(cio, cui_cl);
1150         cl_io_slice_add(io, &cio->cui_cl, obj, &vvp_io_ops);
1151         vio->cui_ra_window_set = 0;
1152         result = 0;
1153         if (io->ci_type == CIT_READ || io->ci_type == CIT_WRITE) {
1154                 size_t count;
1155                 struct ll_inode_info *lli = ll_i2info(inode);
1156
1157                 count = io->u.ci_rw.crw_count;
1158                 /* "If nbyte is 0, read() will return 0 and have no other
1159                  *  results."  -- Single Unix Spec */
1160                 if (count == 0)
1161                         result = 1;
1162                 else {
1163                         cio->cui_tot_count = count;
1164                         cio->cui_tot_nrsegs = 0;
1165                 }
1166                 /* for read/write, we store the jobid in the inode, and
1167                  * it'll be fetched by osc when building RPC.
1168                  *
1169                  * it's not accurate if the file is shared by different
1170                  * jobs.
1171                  */
1172                 lustre_get_jobid(lli->lli_jobid);
1173         } else if (io->ci_type == CIT_SETATTR) {
1174                 if (!cl_io_is_trunc(io))
1175                         io->ci_lockreq = CILR_MANDATORY;
1176         }
1177
1178         /* ignore layout change for generic CIT_MISC but not for glimpse.
1179          * io context for glimpse must set ci_verify_layout to true,
1180          * see cl_glimpse_size0() for details. */
1181         if (io->ci_type == CIT_MISC && !io->ci_verify_layout)
1182                 io->ci_ignore_layout = 1;
1183
1184         /* Enqueue layout lock and get layout version. We need to do this
1185          * even for operations requiring to open file, such as read and write,
1186          * because it might not grant layout lock in IT_OPEN. */
1187         if (result == 0 && !io->ci_ignore_layout) {
1188                 result = ll_layout_refresh(inode, &cio->cui_layout_gen);
1189                 if (result == -ENOENT)
1190                         /* If the inode on MDS has been removed, but the objects
1191                          * on OSTs haven't been destroyed (async unlink), layout
1192                          * fetch will return -ENOENT, we'd ingore this error
1193                          * and continue with dirty flush. LU-3230. */
1194                         result = 0;
1195                 if (result < 0)
1196                         CERROR("%s: refresh file layout " DFID " error %d.\n",
1197                                 ll_get_fsname(inode->i_sb, NULL, 0),
1198                                 PFID(lu_object_fid(&obj->co_lu)), result);
1199         }
1200
1201         RETURN(result);
1202 }
1203
1204 static struct vvp_io *cl2vvp_io(const struct lu_env *env,
1205                                 const struct cl_io_slice *slice)
1206 {
1207         /* Caling just for assertion */
1208         cl2ccc_io(env, slice);
1209         return vvp_env_io(env);
1210 }
1211