root/opal/mca/btl/uct/btl_uct_frag.c

DEFINITIONS

1. mca_btl_uct_frag_completion
2. mca_btl_uct_base_frag_constructor
3. mca_btl_uct_base_frag_destructor

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
   2 /*
   3  * Copyright (c) 2018      Los Alamos National Security, LLC. All rights
   4  *                         reserved.
   5  * $COPYRIGHT$
   6  *
   7  * Additional copyrights may follow
   8  *
   9  * $HEADER$
  10  */
  11 
  12 #include "btl_uct_frag.h"
  13 
  14 static void mca_btl_uct_frag_completion (uct_completion_t *uct_comp, ucs_status_t status)
  15 {
  16     mca_btl_uct_uct_completion_t *comp = (mca_btl_uct_uct_completion_t *) ((uintptr_t) uct_comp - offsetof (mca_btl_uct_uct_completion_t, uct_comp));
  17 
  18     BTL_VERBOSE(("frag operation complete. frag = %p. status = %d", (void *) comp->frag, status));
  19 
  20     comp->status = status;
  21     opal_fifo_push (&comp->dev_context->completion_fifo, &comp->super.super);
  22 }
  23 
  24 static void mca_btl_uct_base_frag_constructor (mca_btl_uct_base_frag_t *frag)
  25 {
  26     mca_btl_uct_reg_t *reg = (mca_btl_uct_reg_t *) frag->base.super.registration;
  27 
  28     /* zero everything out */
  29     memset ((char *) frag + sizeof (frag->base), 0, sizeof (*frag) - sizeof (frag->base));
  30 
  31     OBJ_CONSTRUCT(&frag->comp, mca_btl_uct_uct_completion_t);
  32 
  33     frag->base.des_segments = frag->segments;
  34     frag->base.des_segment_count = 1;
  35 
  36     frag->comp.uct_comp.func = mca_btl_uct_frag_completion;
  37     frag->comp.uct_comp.count = 1;
  38     frag->comp.frag = frag;
  39 
  40     frag->segments[0].seg_addr.pval = frag->base.super.ptr;
  41     frag->uct_iov.buffer = frag->base.super.ptr;
  42     frag->uct_iov.stride = 0;
  43     frag->uct_iov.count = 1;
  44     if (reg) {
  45         frag->uct_iov.memh = reg->uct_memh;
  46     }
  47 }
  48 
  49 static void mca_btl_uct_base_frag_destructor (mca_btl_uct_base_frag_t *frag)
  50 {
  51     OBJ_DESTRUCT(&frag->comp);
  52 }
  53 
  54 OBJ_CLASS_INSTANCE(mca_btl_uct_base_frag_t, mca_btl_base_descriptor_t,
  55                    mca_btl_uct_base_frag_constructor, mca_btl_uct_base_frag_destructor);