From 17081335ce251ef9695bd2f66e4e826a74a15cea Mon Sep 17 00:00:00 2001 From: Xavier Delaruelle Date: Tue, 23 May 2023 06:50:56 +0200 Subject: [PATCH] Adapt getExportTagList proc for full path module Update getExportTagList to pass full path module designation to the underlying getTagList call. Full path module is not set and querying tag information of an already loaded module. --- tcl/modfind.tcl.in | 2 +- tcl/subcmd.tcl.in | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in index 19d03828..a1e14a5e 100644 --- a/tcl/modfind.tcl.in +++ b/tcl/modfind.tcl.in @@ -695,7 +695,7 @@ proc getTagList {mod {fpmod {}} {sort 1}} { } # return tags applying to mod that can be exported -proc getExportTagList {mod {serialized 0}} { +proc getExportTagList {mod {serialized 0} {fpmod {}}} { # remove loaded/hidden tags from the list to register lassign [getDiffBetweenList [getTagList $mod $fpmod 0] [list loaded\ hidden]] ret diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in index c2e2da9f..bc7b9f4d 100644 --- a/tcl/subcmd.tcl.in +++ b/tcl/subcmd.tcl.in @@ -1315,7 +1315,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} { } # declare the tags of this module - if {[set modtag [getExportTagList $modnamevr 1]] ne {}} { + if {[set modtag [getExportTagList $modnamevr 1 $modfile]] ne {}} { append-path __MODULES_LMTAG $modtag } if {[set modtag [getExtraTagList $modnamevr 1]] ne {}} { @@ -1339,7 +1339,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} { # record module title (name, variants and tags) registerModuleDesignation $msgrecid $modname [getVariantList\ - $modname 7] [getExportTagList $modname] + $modname 7] [getExportTagList $modname 0 $modfile] # consider evaluation hidden if hidden loaded module is auto loaded # and no specific messages are recorded for this evaluation