-static void
-make_method_nongnu_aliases(Class *c)
-{
- GList *li;
-
- gboolean local_made_aliases = FALSE;
-
- for(li=c->nodes; li; li=g_list_next(li)) {
- Node *node = li->data;
- if(node->type == METHOD_NODE) {
- Method *m = (Method *)node;
-
- if(m->method == INIT_METHOD ||
- m->method == CLASS_INIT_METHOD ||
- m->method == OVERRIDE_METHOD)
- continue;
-
- if( ! local_made_aliases)
- out_printf(out, "\n/* Short form pointers */\n");
-
- print_method(out, "static ", "(* const self_", "", ") ",
- "", "",
- m, FALSE, TRUE, FALSE);
- out_printf(out, " = %s_%s;\n", funcbase,
- m->id);
-
- local_made_aliases = TRUE;
- }
- }
- if(local_made_aliases) {
- out_printf(out, "\n");
- made_aliases = TRUE;
- }
-}
-