fbc: __FB_QUERY_SYMBOL__ extended to return mangled names

__FB_QUERY_SYMBOL__( fbc.FB_QUERY_SYMBOL.mangletype, symbol ) returns the mangled type name of symbol
__FB_QUERY_SYMBOL__( fbc.FB_QUERY_SYMBOL.mangleid, symbol ) returns the mangled name of symbol

Author: jayrm

changelog.txt

@@ -28,6 +28,7 @@ Version 1.20.0
 - fbdoc: change CRegex.bas to use pcre2 since the libpcre (a.k.a pcre3) is obsolete in favour of pcre2 by upstream (Ahmad Khalifa)
 - PEEK, POKE, and SWAP are now quirk words instead of keywords allowing these names to be used as member procedure names
 - "\Unnnnnnnn" escape sequence is mapped as follows: when within unicode BMP, "\unnnn", otherwise on linux "\Unnnnnnnn", or on windows "\uD8XX\uDCXX" surrogate pair.  
+- __FB_QUERY_SYMBOL__( fbc.FB_QUERY_SYMBOL.mangletype, symbol ) returns the mangled type name of symbol
 
 [added]
 - x86_64: optimize SHL MOD INTDIV to use 32-bit operation when result will be converted to long/ulong
@@ -69,6 +70,7 @@ Version 1.20.0
 - github #426: add __FB_ARG_LISTEXPAND__( macroname, macroargcount, args... ): expands to one or more 'macroname( .... )' depending on the value of macroargcount and number of arguments in the args... list (skyfish)
 - fbc: command line option '-z optabstract' to support optimizing purely abstract types, and only preserve used pure abstract types (skyfish)
 - fbc: warning when "\u" or "\U" escape sequences are invalid or truncated
+- fbc: __FB_QUERY_SYMBOL__( fbc.FB_QUERY_SYMBOL.mangleid, symbol ) returns the mangled name of symbol
 
 [fixed]
 - github #410: give consistent floating point comparisons results involving NaNs.

inc/fbc-int/symbol.bi

@@ -112,8 +112,9 @@ enum FB_QUERY_SYMBOL explicit
 	dataclass  = &h0002     '' return the symbol's data class as FB_DATACLASS
 	typename   = &h0003     '' return the typename as text
 	typenameid = &h0004     '' return the typename as text with specical characters replaced with '_'
-	mangleid   = &h0005     '' return the decorated (mangled) type name (WIP)
-	exists     = &h0006     '' return if the symbol name / identifier is exists
+	mangletype = &h0005     '' return the decorated (mangled) type name (WIP)
+	mangleid   = &h0006     '' return the decorated (mangled) name (WIP)
+	exists     = &h0007     '' return if the symbol name / identifier is exists
 
 	querymask  = &h00ff     '' mask for query values
 

src/compiler/symb-define.bas

@@ -1200,8 +1200,9 @@ enum FB_QUERY_SYMBOL explicit
 	dataclass  = &h0002     '' return the symbol's data class as FB_DATACLASS
 	typename   = &h0003     '' return the typename as text
 	typenameid = &h0004     '' return the typename as text with specical characters replaced with '_'
-	mangleid   = &h0005     '' return the decorated (mangled) type name (WIP)
-	exists     = &h0006     '' return if the symbol name / identifier is exists
+	mangletype = &h0005     '' return the decorated (mangled) type name (WIP)
+	mangleid   = &h0006     '' return the decorated (mangled) type name (WIP)
+	exists     = &h0007     '' return if the symbol name / identifier is exists
 	querymask  = &h00ff     '' mask for query values
 
 	'' filters
@@ -1261,6 +1262,7 @@ private function hDefQuerySymZ_cb( byval argtb as LEXPP_ARGTB ptr, byval errnum
 				select case queryvalue
 				case FB_QUERY_SYMBOL.typename, _
 				     FB_QUERY_SYMBOL.typenameid, _
+				     FB_QUERY_SYMBOL.mangletype, _
 				     FB_QUERY_SYMBOL.mangleid, _
 				     FB_QUERY_SYMBOL.exists
 
@@ -1385,7 +1387,7 @@ private function hDefQuerySymZ_cb( byval argtb as LEXPP_ARGTB ptr, byval errnum
 					hReplaceChar( res, asc(")"), asc("_") )
 					hReplaceChar( res, asc("*"), asc("_") )
 				end if
-			case FB_QUERY_SYMBOL.mangleid
+			case FB_QUERY_SYMBOL.mangletype
 				if( sym ) then
 					symbMangleType( res, dtype, sym )
 					symbMangleResetAbbrev( )
@@ -1395,6 +1397,14 @@ private function hDefQuerySymZ_cb( byval argtb as LEXPP_ARGTB ptr, byval errnum
 				else
 					res = str(0)
 				end if
+			case FB_QUERY_SYMBOL.mangleid
+				if( sym ) then
+					res = *symbGetMangledName( sym )
+				elseif( subtype ) then
+					res = *symbGetMangledName( subtype )
+				else
+					res = str(0)
+				end if
 			case FB_QUERY_SYMBOL.exists
 				res = str( sym <> NULL )
 			case else