aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/runtime/select.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/runtime/select.c')
-rw-r--r--libgfortran/runtime/select.c11
1 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/runtime/select.c b/libgfortran/runtime/select.c
index 5ee873a..807845c 100644
--- a/libgfortran/runtime/select.c
+++ b/libgfortran/runtime/select.c
@@ -30,15 +30,18 @@ typedef struct
}
select_struct;
-
-#define select_string prefix(select_string)
+extern void * select_string (select_struct *table, int table_len,
+ void *default_jump, const char *selector,
+ int selector_len);
+export_proto(select_string);
/* select_string()-- Given a selector string and a table of
* select_struct structures, return the address to jump to. */
-void *select_string (select_struct *table, int table_len, void *default_jump,
- const char *selector, int selector_len)
+void *
+select_string (select_struct *table, int table_len, void *default_jump,
+ const char *selector, int selector_len)
{
select_struct *t;
int i, low, high, mid;