STABS emitter: Emit correct type for array descriptors

changelog.txt

@@ -179,6 +179,7 @@ Version 0.91.0:
 - C backend: A gcc warning was triggered when initializing a global variable with an @addressof expression, taking the address of another global.
 - #614: When copying (copy-constructing or assigning) objects of classes extending OBJECT, the lhs' vptr could be overwritten incorrectly, causing the object to have a wrong run-time type.
 - 0.90 regression: -g could produce bad stabs info when #includes were used (after closing an #include block, the wrong directive was used to return to the main file), preventing gdb from determining variable types sometimes
+- -g will now produce correct stabs info for dynamic array descriptors
 
 
 Version 0.90.1:

src/compiler/edbg_stab.bas

@@ -842,13 +842,11 @@ private function hGetDataType _
     select case as const dtype
     '' UDT?
     case FB_DATATYPE_STRUCT
-    	if( symbIsDescriptor( sym ) = FALSE ) then
-    		if( subtype->udt.dbg.typenum = INVALID ) then
-    			hDeclUDT( subtype )
-    		end if
+		if( subtype->udt.dbg.typenum = INVALID ) then
+			hDeclUDT( subtype )
+		end if
 
-    		desc += str( subtype->udt.dbg.typenum )
-    	end if
+		desc += str( subtype->udt.dbg.typenum )
 
     '' ENUM?
     case FB_DATATYPE_ENUM
@@ -992,15 +990,6 @@ sub edbgEmitGlobalVar _
     '' data type
     desc += hGetDataType( sym )
 
-	'' hack to fix the stabs data for global redim-arrays
-	'' see: http://www.freebasic.net/forum/viewtopic.php?p=117584#117584
-	#if 1 ''SARG BEGIN
-	'' workaround in case redim shared : use of back link !!!
-	if( right(desc, 2) = ":S" ) then
-		desc = *symbGetDBGName( sym->var_.desc.array ) + ":S" + hGetDataType( sym->var_.desc.array )
-	end if
-	#endif ''SARG END
-
 	hEmitSTABS( t, desc, 0, 0, *symbGetMangledName( sym ) )
 
 end sub