[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.1-277-g3d3a4b3

[Service Account]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".

The branch, master has been updated
       via  3d3a4b3a1038f7809ffdba5a7ebe1e02a7325daf (commit)
      from  71f5e5070c49f5507935016e03953d1eeee73aeb (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/3d3a4b3a1038f7809ffdba5a7ebe1e02a7325daf

commit 3d3a4b3a1038f7809ffdba5a7ebe1e02a7325daf
Author: Junchao Zhang <jczhang at mcs.anl.gov>
Date:   Mon May 26 18:19:52 2014 -0500

    Fix a perl script problem met with perl-5.8.8
    
    To print out something like "$vec[$i]->base_addr", where @vec is an integer array,
    the old perl is confused by "->" and thinks it is an operator. In fact, we just want
    to print out "->base_addr" literally. Newer perl (e.g., 5.16.2) is fine with this syntax.
    
    Change to "$vec[$i]"."->base_addr" to avoid this problem.
    
    No review since F08 binding is experimental now.

diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface b/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface
index 2f5620b..2031629 100755
--- a/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface
+++ b/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface
@@ -550,7 +550,7 @@ EOT
 
         # Temp variable declaration
         for (my $i = 0; $i < $#vec; $i += 3) {
-            print CFILE "    void *buf$vec[$i] = x$vec[$i]->base_addr;\n";
+            print CFILE "    void *buf$vec[$i] = x$vec[$i]"."->base_addr;\n";
             if ($vec[$i + 1] >= 0) {
                 print CFILE "    int count$vec[$i] = x$vec[$i+1];\n";
                 print CFILE "    MPI_Datatype dtype$vec[$i] = x$vec[$i+2];\n";
@@ -572,7 +572,7 @@ EOT
         # Test if a subarray arg is contiguous. If it is, generate a new datatype for it.
         for (my $i = 0; $i < $#vec; $i += 3) {
             if ($vec[$i + 1] >= 0) {
-                print CFILE "    if (x$vec[$i]->rank != 0 && !CFI_is_contiguous(x$vec[$i])) {\n";
+                print CFILE "    if (x$vec[$i]"."->rank != 0 && !CFI_is_contiguous(x$vec[$i])) {\n";
                 print CFILE "        err = cdesc_create_datatype(x$vec[$i], x$vec[$i+1], x$vec[$i+2], &dtype$vec[$i]);\n";
                 print CFILE "        count$vec[$i] = 1;\n";
                 print CFILE "    }\n\n";

-----------------------------------------------------------------------

Summary of changes:
 .../fortran/use_mpi_f08/wrappers_c/buildiface      |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
MPICH primary repository