mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-11 12:05:55 +00:00
49 lines
2.1 KiB
Plaintext
49 lines
2.1 KiB
Plaintext
|
dnl Support macros for findloc.
|
||
|
|
dnl This file is part of the GNU Fortran Runtime Library (libgfortran)
|
||
|
|
dnl Distributed under the GNU GPL with exception. See COPYING for details.
|
||
|
|
include(iparm.m4)dnl
|
||
|
|
define(header1,`extern void findloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
|
||
|
|
|
||
|
|
export_proto(findloc0_'atype_code`);
|
||
|
|
|
||
|
|
void
|
||
|
|
findloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
|
||
|
|
dnl
|
||
|
|
define(header2,`extern void mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
gfc_array_l1 *const restrict, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
||
|
|
gfc_charlen_type len_value);
|
||
|
|
export_proto(mfindloc0_'atype_code`);
|
||
|
|
|
||
|
|
void
|
||
|
|
mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
gfc_array_l1 *const restrict mask, GFC_LOGICAL_4 back,
|
||
|
|
gfc_charlen_type len_array, gfc_charlen_type len_value)')
|
||
|
|
dnl
|
||
|
|
define(header3,`extern void sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
||
|
|
gfc_charlen_type len_value);
|
||
|
|
export_proto(sfindloc0_'atype_code`);
|
||
|
|
|
||
|
|
void
|
||
|
|
sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
|
||
|
|
'atype` * const restrict array, 'atype_name` *value,
|
||
|
|
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
||
|
|
gfc_charlen_type len_value)')dnl
|
||
|
|
dnl
|
||
|
|
define(comparison,ifelse(atype_kind,4,dnl
|
||
|
|
`compare_string_char4 (len_array, base, len_value, value) == 0',dnl
|
||
|
|
`compare_string (len_array, (char *) base, len_value, (char *) value) == 0'))dnl
|
||
|
|
define(len_arg,`, len_array, len_value')dnl
|
||
|
|
define(base_mult,`len_array')dnl
|
||
|
|
include(ifindloc0.m4)dnl
|
||
|
|
|
||
|
|
|
||
|
|
|