浏览代码

Fixed passing address of array field as var argument.

woollybah 8 年之前
父节点
当前提交
16e312fde0
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      ctranslator.bmx

+ 1 - 1
ctranslator.bmx

@@ -454,7 +454,7 @@ Type TCTranslator Extends TTranslator
 						t:+ "&"
 					End If
 				Else If TArrayType(ty) And (ty._flags & TType.T_VAR) Then
-					If TVarExpr(arg) And TArrayType(TVarExpr(arg).exprType) And Not (arg.exprType._flags & TType.T_VAR) Then
+					If (TVarExpr(arg) And TArrayType(TVarExpr(arg).exprType) Or (TMemberVarExpr(arg) And TArrayType(TMemberVarExpr(arg).exprType))) And Not (arg.exprType._flags & TType.T_VAR) Then
 						t:+ "&"
 					End If
 				Else If TObjectType(ty) And (ty._flags & TType.T_VAR) Then