- int i;
- type *tp;
-
- ++type_visited;
- for (i = 0; i < get_irp_n_types(); i++) {
- tp = get_irp_type(i);
- if (is_class_type(tp) &&
- (get_class_n_supertypes(tp) == 0) &&
- (tp->visit < type_visited) &&
- (!is_frame_type(tp)) &&
- (tp != get_glob_type())) {
- class_walk_s2s_2(tp, pre, post, env);
- }
- }
-}
-#endif
-void class_walk_super2sub(
- void (*pre)(type*, void*),
- void (post)(type*, void*),
- void *env)
-{
- int i;