1
1

use OMPI_ARRAY_LOGICAL_2_INT_CLEANUP instead of free

This commit was SVN r26494.
Этот коммит содержится в:
Terry Dontje 2012-05-24 21:06:03 +00:00
родитель 632bc02db2
Коммит 19992f80f0

Просмотреть файл

@ -10,6 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2011-2012 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2011-2012 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2012 Oracle and/or its affiliates. All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * Additional copyrights may follow
@ -190,7 +191,7 @@
while (--converted_n >= 0) { \ while (--converted_n >= 0) { \
in[converted_n]=OMPI_INT_2_LOGICAL(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)[converted_n]); \ in[converted_n]=OMPI_INT_2_LOGICAL(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)[converted_n]); \
} \ } \
free(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)); \ OMPI_ARRAY_LOGICAL_2_INT_CLEANUP(in); \
} while (0) } while (0)
# endif # endif
@ -230,7 +231,7 @@
while (--converted_n >= 0) { \ while (--converted_n >= 0) { \
in[converted_n]=OMPI_INT_2_LOGICAL(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)[converted_n]); \ in[converted_n]=OMPI_INT_2_LOGICAL(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)[converted_n]); \
} \ } \
free(OMPI_LOGICAL_ARRAY_NAME_CONVERT(in)); \ OMPI_ARRAY_LOGICAL_2_INT_CLEANUP(in); \
} while (0) } while (0)
#endif /* OMPI_SIZEOF_FORTRAN_LOGICAL */ #endif /* OMPI_SIZEOF_FORTRAN_LOGICAL */