1 | // -*- c++ -*- |
---|
2 | // |
---|
3 | // Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana |
---|
4 | // University Research and Technology |
---|
5 | // Corporation. All rights reserved. |
---|
6 | // Copyright (c) 2004-2005 The University of Tennessee and The University |
---|
7 | // of Tennessee Research Foundation. All rights |
---|
8 | // reserved. |
---|
9 | // Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, |
---|
10 | // University of Stuttgart. All rights reserved. |
---|
11 | // Copyright (c) 2004-2005 The Regents of the University of California. |
---|
12 | // All rights reserved. |
---|
13 | // Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. |
---|
14 | // $COPYRIGHT$ |
---|
15 | // |
---|
16 | // Additional copyrights may follow |
---|
17 | // |
---|
18 | // $HEADER$ |
---|
19 | // |
---|
20 | |
---|
21 | #if 0 /* OMPI_ENABLE_MPI_PROFILING */ |
---|
22 | |
---|
23 | inline |
---|
24 | MPI::Op::Op() { } |
---|
25 | |
---|
26 | inline |
---|
27 | MPI::Op::Op(const MPI::Op& o) : pmpi_op(o.pmpi_op) { } |
---|
28 | |
---|
29 | inline |
---|
30 | MPI::Op::Op(MPI_Op o) : pmpi_op(o) { } |
---|
31 | |
---|
32 | inline |
---|
33 | MPI::Op::~Op() { } |
---|
34 | |
---|
35 | inline |
---|
36 | MPI::Op& MPI::Op::operator=(const MPI::Op& op) { |
---|
37 | pmpi_op = op.pmpi_op; return *this; |
---|
38 | } |
---|
39 | |
---|
40 | // comparison |
---|
41 | inline bool |
---|
42 | MPI::Op::operator== (const MPI::Op &a) { |
---|
43 | return (bool)(pmpi_op == a.pmpi_op); |
---|
44 | } |
---|
45 | |
---|
46 | inline bool |
---|
47 | MPI::Op::operator!= (const MPI::Op &a) { |
---|
48 | return (bool)!(*this == a); |
---|
49 | } |
---|
50 | |
---|
51 | // inter-language operability |
---|
52 | inline MPI::Op& |
---|
53 | MPI::Op::operator= (const MPI_Op &i) { pmpi_op = i; return *this; } |
---|
54 | |
---|
55 | inline |
---|
56 | MPI::Op::operator MPI_Op () const { return pmpi_op; } |
---|
57 | |
---|
58 | //inline |
---|
59 | //MPI::Op::operator MPI_Op* () { return pmpi_op; } |
---|
60 | |
---|
61 | |
---|
62 | #else // ============= NO PROFILING =================================== |
---|
63 | |
---|
64 | // construction |
---|
65 | inline |
---|
66 | MPI::Op::Op() : mpi_op(MPI_OP_NULL) { } |
---|
67 | |
---|
68 | inline |
---|
69 | MPI::Op::Op(MPI_Op i) : mpi_op(i) { } |
---|
70 | |
---|
71 | inline |
---|
72 | MPI::Op::Op(const MPI::Op& op) |
---|
73 | : mpi_op(op.mpi_op) { } |
---|
74 | |
---|
75 | inline |
---|
76 | MPI::Op::~Op() |
---|
77 | { |
---|
78 | #if 0 |
---|
79 | mpi_op = MPI_OP_NULL; |
---|
80 | op_user_function = 0; |
---|
81 | #endif |
---|
82 | } |
---|
83 | |
---|
84 | inline MPI::Op& |
---|
85 | MPI::Op::operator=(const MPI::Op& op) { |
---|
86 | mpi_op = op.mpi_op; |
---|
87 | return *this; |
---|
88 | } |
---|
89 | |
---|
90 | // comparison |
---|
91 | inline bool |
---|
92 | MPI::Op::operator== (const MPI::Op &a) { return (bool)(mpi_op == a.mpi_op); } |
---|
93 | |
---|
94 | inline bool |
---|
95 | MPI::Op::operator!= (const MPI::Op &a) { return (bool)!(*this == a); } |
---|
96 | |
---|
97 | // inter-language operability |
---|
98 | inline MPI::Op& |
---|
99 | MPI::Op::operator= (const MPI_Op &i) { mpi_op = i; return *this; } |
---|
100 | |
---|
101 | inline |
---|
102 | MPI::Op::operator MPI_Op () const { return mpi_op; } |
---|
103 | |
---|
104 | //inline |
---|
105 | //MPI::Op::operator MPI_Op* () { return &mpi_op; } |
---|
106 | |
---|
107 | #endif |
---|
108 | |
---|
109 | // Extern this function here rather than include an internal Open MPI |
---|
110 | // header file (and therefore force installing the internal Open MPI |
---|
111 | // header file so that user apps can #include it) |
---|
112 | |
---|
113 | extern "C" void ompi_op_set_cxx_callback(MPI_Op op, MPI_User_function*); |
---|
114 | |
---|
115 | // There is a lengthy comment in ompi/mpi/cxx/intercepts.cc explaining |
---|
116 | // what this function is doing. Please read it before modifying this |
---|
117 | // function. |
---|
118 | inline void |
---|
119 | MPI::Op::Init(MPI::User_function *func, bool commute) |
---|
120 | { |
---|
121 | (void)MPI_Op_create((MPI_User_function*) ompi_mpi_cxx_op_intercept, |
---|
122 | (int) commute, &mpi_op); |
---|
123 | ompi_op_set_cxx_callback(mpi_op, (MPI_User_function*) func); |
---|
124 | } |
---|
125 | |
---|
126 | |
---|
127 | inline void |
---|
128 | MPI::Op::Free() |
---|
129 | { |
---|
130 | (void)MPI_Op_free(&mpi_op); |
---|
131 | } |
---|