-
Notifications
You must be signed in to change notification settings - Fork 280
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
api: add handle to/from int conversion apis
As proposed in the MPI 4.2 ABI proposal -- mpi-forum/mpi-standard#978.
- Loading branch information
Showing
3 changed files
with
250 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,201 @@ | ||
# vim: set ft=c: | ||
|
||
MPI_Comm_toint: | ||
.return: INTEGER | ||
comm: COMMUNICATOR | ||
.desc: converts MPI_Comm to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) comm; | ||
} | ||
|
||
MPI_Comm_fromint: | ||
.return: COMMUNICATOR | ||
comm: INTEGER | ||
.desc: converts an integer handle to MPI_Comm | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Comm) comm; | ||
} | ||
|
||
MPI_Errhandler_toint: | ||
.return: INTEGER | ||
errhandler: ERRHANDLER | ||
.desc: converts MPI_Errhandler to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) errhandler; | ||
} | ||
|
||
MPI_Errhandler_fromint: | ||
.return: ERRHANDLER | ||
errhandler: INTEGER | ||
.desc: converts an integer handle to MPI_Errhandler | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Errhandler) errhandler; | ||
} | ||
|
||
MPI_Group_toint: | ||
.return: INTEGER | ||
group: GROUP | ||
.desc: converts MPI_Group to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) group; | ||
} | ||
|
||
MPI_Group_fromint: | ||
.return: GROUP | ||
group: INTEGER | ||
.desc: converts an integer handle to MPI_Group | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Group) group; | ||
} | ||
|
||
MPI_Info_toint: | ||
.return: INTEGER | ||
info: INFO | ||
.desc: converts MPI_Info to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) info; | ||
} | ||
|
||
MPI_Info_fromint: | ||
.return: INFO | ||
info: INTEGER | ||
.desc: converts an integer handle to MPI_Info | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Info) info; | ||
} | ||
|
||
MPI_Message_toint: | ||
.return: INTEGER | ||
message: MESSAGE | ||
.desc: converts MPI_Message to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) message; | ||
} | ||
|
||
MPI_Message_fromint: | ||
.return: MESSAGE | ||
message: INTEGER | ||
.desc: converts an integer handle to MPI_Message | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Message) message; | ||
} | ||
|
||
MPI_Op_toint: | ||
.return: INTEGER | ||
op: OPERATION | ||
.desc: converts MPI_Op to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) op; | ||
} | ||
|
||
MPI_Op_fromint: | ||
.return: OPERATION | ||
op: INTEGER | ||
.desc: converts an integer handle to MPI_Op | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Op) op; | ||
} | ||
|
||
MPI_Request_toint: | ||
.return: INTEGER | ||
request: REQUEST | ||
.desc: converts MPI_Request to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) request; | ||
} | ||
|
||
MPI_Request_fromint: | ||
.return: REQUEST | ||
request: INTEGER | ||
.desc: converts an integer handle to MPI_Request | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Request) request; | ||
} | ||
|
||
MPI_Session_toint: | ||
.request: INTEGER | ||
session: SESSION | ||
.desc: converts MPI_Session to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) session; | ||
} | ||
|
||
MPI_Session_fromint: | ||
.return: SESSION | ||
session: INTEGER | ||
.desc: converts an integer handle to MPI_Session | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Session) session; | ||
} | ||
|
||
MPI_Type_toint: | ||
.return: INTEGER | ||
datatype: DATATYPE | ||
.desc: converts MPI_Type to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) datatype; | ||
} | ||
|
||
MPI_Type_fromint: | ||
.return: DATATYPE | ||
datatype: INTEGER | ||
.desc: converts an integer handle to MPI_Type | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Datatype) datatype; | ||
} | ||
|
||
MPI_Win_toint: | ||
.return: INTEGER | ||
win: WINDOW | ||
.desc: converts MPI_Win to an integer handle | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (int) win; | ||
} | ||
|
||
MPI_Win_fromint: | ||
.return: WINDOW | ||
win: INTEGER | ||
.desc: converts an integer handle to MPI_Win | ||
.impl: direct | ||
.skip: Fortran, Errors | ||
{ | ||
return (MPI_Win) win; | ||
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters