- } else if(s->kind == INFOTYPE_VAR) {
- varinfo_t*v=(varinfo_t*)s;
- if(v->parent) {
- registry_use((slotinfo_t*)v->parent);
+ l = l->next;
+ }
+}
+void registry_use(slotinfo_t*s)
+{
+ if(!s) return;
+ if(!(s->flags&FLAG_USED)) {
+ s->flags |= FLAG_USED;
+ if(s->kind == INFOTYPE_CLASS) {
+ classinfo_t*c=(classinfo_t*)s;
+ if(c->assets) {
+ use_asset(c->assets);
+ }
+ int t=0;
+ while(c->interfaces[t]) {
+ registry_use((slotinfo_t*)c->interfaces[t]);
+ t++;
+ }
+ while(c->superclass) {
+ c = c->superclass;
+ registry_use((slotinfo_t*)c);
+ }
+ } else if(s->kind == INFOTYPE_METHOD) {
+ methodinfo_t*m=(methodinfo_t*)s;
+ if(m->parent) {
+ registry_use((slotinfo_t*)m->parent);
+ }
+ } else if(s->kind == INFOTYPE_VAR) {
+ varinfo_t*v=(varinfo_t*)s;
+ if(v->parent) {
+ registry_use((slotinfo_t*)v->parent);
+ }