Pārlūkot izejas kodu

Added initial support for array concatenation.

woollybah 11 gadi atpakaļ
vecāks
revīzija
683b069f54
1 mainītis faili ar 7 papildinājumiem un 1 dzēšanām
  1. 7 1
      ctranslator.bmx

+ 7 - 1
ctranslator.bmx

@@ -1077,7 +1077,7 @@ Type TCTranslator Extends TTranslator
 
 		Local rhs$=stmt.rhs.Trans()
 		Local lhs$=stmt.lhs.TransVar()
-		
+
 		Local s:String
 		
 '		If ObjectType( stmt.rhs.exprType )
@@ -1110,6 +1110,12 @@ Type TCTranslator Extends TTranslator
 			End If
 			
 			s :+ "*" + lhs+TransAssignOp( stmt.op )+rhs
+		Else If TArrayType(stmt.lhs.exprType) Then
+			If stmt.op = "+=" Then
+				s :+ lhs+"=bbArrayConcat("+ TransArrayType(TArrayType(stmt.lhs.exprType).elemType) + "," + lhs+","+rhs+")"
+			Else
+				s :+ lhs+TransAssignOp( stmt.op )+rhs
+			End If
 		Else
 			s :+ lhs+TransAssignOp( stmt.op )+rhs
 		End If