C/LLVM backends: Don't emit fake dynamic array fields (only descriptors)

freebasic · Mar 19, 2014 · 88412ea · 88412ea
1 parent 86e2409
commit 88412ea
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/compiler/ir-hlc.bas b/src/compiler/ir-hlc.bas
@@ -981,7 +981,8 @@ private sub hEmitStruct _
 		if( symbFieldIsBitfield( fld ) ) then
 			skip = (fld->var_.bitpos <> 0)
 		else
-			skip = FALSE
+			'' Don't emit fake dynamic array fields either
+			skip = (symbGetArrayDimensions( fld ) = -1)
 		end if
 
 		if( skip = FALSE ) then

diff --git a/src/compiler/ir-llvm.bas b/src/compiler/ir-llvm.bas
@@ -787,9 +787,13 @@ private sub hEmitStruct( byval s as FBSYMBOL ptr )
 	'' Write out the elements
 	fld = symbUdtGetFirstField( s )
 	while( fld )
-		ln += hEmitSymType( fld )
-		ln += hEmitArrayDecl( fld )
-		ln += attrib
+
+		'' Don't emit fake dynamic array fields
+		if( symbGetArrayDimensions( fld ) <> -1 ) then
+			ln += hEmitSymType( fld )
+			ln += hEmitArrayDecl( fld )
+			ln += attrib
+		end if
 
 		fld = symbUdtGetNextField( fld )
 		if( fld ) then