X-Git-Url: http://git.draconx.ca/gitweb/upkg.git/blobdiff_plain/e6d2653b6a2612ea2cee768d4dadcc3fb9315d00..95f7a657a099c844a644b8736bd18e08afd50661:/src/upkg.c diff --git a/src/upkg.c b/src/upkg.c index 8fe9a2a..e174c21 100644 --- a/src/upkg.c +++ b/src/upkg.c @@ -21,6 +21,7 @@ #include #include #include +#include #include #include @@ -228,7 +229,7 @@ int package_info(struct upkg *pkg) static void export_print_name(struct upkg *upkg, const struct upkg_export *e) { if (e) { - export_print_name(upkg, upkg_get_export(upkg, e->package-1)); + export_print_name(upkg, e->parent); printf(".%s", e->name); } } @@ -240,15 +241,20 @@ export_print_fullname(GTypeModule *pkg, const struct upkg_export *export) export_print_name(U_PKG(pkg)->pkg, export); } -static int package_list(GTypeModule *pkg, long parent) +static int package_list(GTypeModule *pkg, long current) { struct upkg *upkg = U_PKG(pkg)->pkg; - const struct upkg_export *export; + const struct upkg_export *parent = NULL; + + if (current >= 0) { + parent = upkg_get_export(upkg, current); + assert(parent != NULL); + } for (unsigned i = 0; i < upkg->export_count; i++) { - export = upkg_get_export(upkg, i); + const struct upkg_export *export = upkg_get_export(upkg, i); - if (export->package != parent) + if (export->parent != parent) continue; export_print_fullname(pkg, export); @@ -496,7 +502,7 @@ static int process_object(int mode, const char *objname) ret = object_info(pkg, current); break; case MODE_LIST: - ret = package_list(pkg, current+1); + ret = package_list(pkg, current); break; case MODE_EXPORT: if (current < 0)