1
1

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.
Этот коммит содержится в:
Ginger Young 2004-06-25 15:22:36 +00:00
родитель 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;
}