Back out come fortran<->C table code. It's breaking
things, and not enough of it is written to do anything. This commit was SVN r1480.
Этот коммит содержится в:
родитель
a55f6a972d
Коммит
0c0dd534b7
@ -13,26 +13,12 @@ ompi_pointer_array_t ompi_req_table;
|
||||
|
||||
static void ompi_request_construct(ompi_request_t* req)
|
||||
{
|
||||
int ret_val;
|
||||
|
||||
/* assign entry in fortran <-> c translation array */
|
||||
ret_val = ompi_pointer_array_add(ompi_req_f_to_c_table, req);
|
||||
req->req_f_to_c_index = ret_val;
|
||||
|
||||
req->req_state = OMPI_REQUEST_INVALID;
|
||||
}
|
||||
|
||||
|
||||
static void ompi_request_destruct(ompi_request_t* req)
|
||||
{
|
||||
/* reset the ompi_req_f_to_c_table entry - make sure that the
|
||||
* entry is in the table */
|
||||
if (NULL != ompi_pointer_array_get_item(ompi_req_f_to_c_table,
|
||||
req->req_f_to_c_index)) {
|
||||
ompi_pointer_array_set_item(ompi_req_f_to_c_table,
|
||||
req->req_f_to_c_index, NULL);
|
||||
}
|
||||
|
||||
req->req_state = OMPI_REQUEST_INVALID;
|
||||
}
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user