0001-Drop-MPI-1-support.patch 2.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  1. From a3262243ca01f7cfe3ae86b168d5b3a7e5d1cbc0 Mon Sep 17 00:00:00 2001
  2. From: Balint Reczey <balint.reczey@canonical.com>
  3. Date: Thu, 28 Nov 2019 19:31:12 +0100
  4. Subject: [PATCH] Drop MPI 1 support
  5. Signed-off-by: Balint Reczey <balint.reczey@canonical.com>
  6. ---
  7. mpi/libmpiwrap.c | 16 ++--------------
  8. 1 file changed, 2 insertions(+), 14 deletions(-)
  9. diff --git a/mpi/libmpiwrap.c b/mpi/libmpiwrap.c
  10. index 488bb13fd..a740ea562 100644
  11. --- a/mpi/libmpiwrap.c
  12. +++ b/mpi/libmpiwrap.c
  13. @@ -278,8 +278,6 @@ static void showTy ( FILE* f, MPI_Datatype ty )
  14. else if (ty == MPI_LONG_INT) fprintf(f,"LONG_INT");
  15. else if (ty == MPI_SHORT_INT) fprintf(f,"SHORT_INT");
  16. else if (ty == MPI_2INT) fprintf(f,"2INT");
  17. - else if (ty == MPI_UB) fprintf(f,"UB");
  18. - else if (ty == MPI_LB) fprintf(f,"LB");
  19. # if defined(MPI_WCHAR)
  20. else if (ty == MPI_WCHAR) fprintf(f,"WCHAR");
  21. # endif
  22. @@ -350,20 +348,11 @@ static void showCombiner ( FILE* f, int combiner )
  23. # endif
  24. case MPI_COMBINER_CONTIGUOUS: fprintf(f, "CONTIGUOUS"); break;
  25. case MPI_COMBINER_VECTOR: fprintf(f, "VECTOR"); break;
  26. -#if defined(MPI_COMBINER_HVECTOR_INTEGER)
  27. - case MPI_COMBINER_HVECTOR_INTEGER: fprintf(f, "HVECTOR_INTEGER"); break;
  28. -# endif
  29. case MPI_COMBINER_HVECTOR: fprintf(f, "HVECTOR"); break;
  30. case MPI_COMBINER_INDEXED: fprintf(f, "INDEXED"); break;
  31. -#if defined(MPI_COMBINER_HINDEXED_INTEGER)
  32. - case MPI_COMBINER_HINDEXED_INTEGER: fprintf(f, "HINDEXED_INTEGER"); break;
  33. -# endif
  34. case MPI_COMBINER_HINDEXED: fprintf(f, "HINDEXED"); break;
  35. #if defined(MPI_COMBINER_INDEXED_BLOCK)
  36. case MPI_COMBINER_INDEXED_BLOCK: fprintf(f, "INDEXED_BLOCK"); break;
  37. -# endif
  38. -#if defined(MPI_COMBINER_STRUCT_INTEGER)
  39. - case MPI_COMBINER_STRUCT_INTEGER: fprintf(f, "STRUCT_INTEGER"); break;
  40. # endif
  41. case MPI_COMBINER_STRUCT: fprintf(f, "STRUCT"); break;
  42. #if defined(MPI_COMBINER_SUBARRAY)
  43. @@ -458,8 +447,9 @@ Bool isMSI ( MPI_Status* status )
  44. static long extentOfTy ( MPI_Datatype ty )
  45. {
  46. int r;
  47. + MPI_Aint lb;
  48. MPI_Aint n;
  49. - r = PMPI_Type_extent(ty, &n);
  50. + r = MPI_Type_get_extent(ty, &lb, &n);
  51. assert(r == MPI_SUCCESS);
  52. return (long)n;
  53. }
  54. @@ -733,8 +723,6 @@ void walk_type ( void(*f)(void*,long), char* base, MPI_Datatype ty )
  55. f(base + offsetof(Ty,loc), sizeof(int));
  56. return;
  57. }
  58. - if (ty == MPI_LB || ty == MPI_UB)
  59. - return; /* have zero size, so nothing needs to be done */
  60. goto unhandled;
  61. /*NOTREACHED*/
  62. }
  63. --
  64. 2.17.1