75 строки
2.0 KiB
Perl
75 строки
2.0 KiB
Perl
|
#!/usr/bin/env perl
|
||
|
|
#
|
||
|
|
# Copyright (c) 2013-2018 Intel, Inc. All rights reserved
|
||
|
|
#
|
||
|
|
# $COPYRIGHT$
|
||
|
|
#
|
||
|
|
# Additional copyrights may follow
|
||
|
|
#
|
||
|
|
# $HEADER$
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use opt_common::mtl_ofi_opt_common;
|
||
|
|
package mtl_ofi_isend_opt;
|
||
|
|
|
||
|
|
my @true_false = ("false", "true");
|
||
|
|
|
||
|
|
sub gen_funcs {
|
||
|
|
my $gen_file = $_[0];
|
||
|
|
my $gen_type = $_[1];
|
||
|
|
my $OFI_CQ_DATA_EN = "false";
|
||
|
|
|
||
|
|
foreach $OFI_CQ_DATA_EN (@true_false) {
|
||
|
|
my @flags = ($OFI_CQ_DATA_EN);
|
||
|
|
if (($gen_type cmp "FUNC") == 0) {
|
||
|
|
my $FUNC = gen_isend_function(\@flags);
|
||
|
|
print $gen_file "$FUNC\n\n";
|
||
|
|
}
|
||
|
|
if (($gen_type cmp "SYM") == 0) {
|
||
|
|
my $SYM = gen_isend_sym_init(\@flags);
|
||
|
|
print $gen_file "$SYM\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub gen_isend_function {
|
||
|
|
my @op_flags = @{$_[0]};
|
||
|
|
my $MTL_OFI_NAME_EXT = opt_common::mtl_ofi_opt_common::gen_flags_ext(\@op_flags);
|
||
|
|
my $OFI_CQ_DATA_EN = $op_flags[0];
|
||
|
|
|
||
|
|
my $ISEND_FUNCTION =
|
||
|
|
"__opal_attribute_always_inline__ static inline int
|
||
|
|
ompi_mtl_ofi_isend_" . $MTL_OFI_NAME_EXT . "(struct mca_mtl_base_module_t *mtl,
|
||
|
|
struct ompi_communicator_t *comm,
|
||
|
|
int dest,
|
||
|
|
int tag,
|
||
|
|
struct opal_convertor_t *convertor,
|
||
|
|
mca_pml_base_send_mode_t mode,
|
||
|
|
bool blocking,
|
||
|
|
mca_mtl_request_t *mtl_request)
|
||
|
|
{
|
||
|
|
const bool OFI_CQ_DATA = " . $OFI_CQ_DATA_EN . ";
|
||
|
|
|
||
|
|
return ompi_mtl_ofi_isend_generic(mtl, comm, dest, tag,
|
||
|
|
convertor, mode, blocking,
|
||
|
|
mtl_request, OFI_CQ_DATA);
|
||
|
|
}";
|
||
|
|
return $ISEND_FUNCTION;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub gen_isend_sym_init {
|
||
|
|
my @op_flags = @{$_[0]};
|
||
|
|
my $MTL_OFI_FUNC_NAME = "ompi_mtl_ofi_isend_" . opt_common::mtl_ofi_opt_common::gen_flags_ext(\@op_flags) . "";
|
||
|
|
my $OFI_CQ_DATA_EN = $op_flags[0];
|
||
|
|
my $symbol_init =
|
||
|
|
"
|
||
|
|
sym_table->ompi_mtl_ofi_isend[".$OFI_CQ_DATA_EN."]
|
||
|
|
= ".$MTL_OFI_FUNC_NAME.";
|
||
|
|
";
|
||
|
|
return $symbol_init;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|