fixed assignament of field length in anonym objects (haXe/PHP)

doc/CHANGES.txt

@@ -13,6 +13,7 @@ TODO :
 	fixed bug in haxe.io.BytesInput.readBytes in Flash9 (was throwing Eof if full buffer can't be readed)
 	fixed implements/extends special classes when they are imported
 	StringBuf now uses an array for JS implementation (around same on FF, faster on IE)
+	fixed assignament of field length in anonym objects (haXe/PHP)
 
 2008-11-23: 2.02
 	Std.is(MyInterface, Class) now returns true (haXe/PHP)

genphp.ml

@@ -877,6 +877,24 @@ and gen_expr ctx e =
 				spr ctx "]";
 			| _ ->
 				gen_field_op ctx e1;) in
+		let leftsidec e =
+			(match e.eexpr with
+			| TArray(te1, te2) ->
+				gen_value ctx te1;
+				spr ctx "->__a[";
+				gen_value ctx te2;
+				spr ctx "]";
+			| TField (e1,s) ->
+				gen_field_access ctx true e1 s
+			| _ ->
+				gen_field_op ctx e1;) in
+		let leftsidef e =
+			(match e.eexpr with
+			| TField (e1,s) ->
+				gen_field_access ctx true e1 s;
+			| _ ->
+				gen_field_op ctx e1;
+				) in
 		(match op with
 		| Ast.OpAssign ->
 			(match e1.eexpr with
@@ -889,25 +907,22 @@ and gen_expr ctx e =
 				gen_value_op ctx e2;
 				spr ctx ")";
 			| _ ->
+(*
 				gen_field_op ctx e1;
+*)
+
+				leftsidef e1;
 				spr ctx " = ";
+				
 				gen_value_op ctx e2;)
 		| Ast.OpAssignOp(Ast.OpAdd) when (is_string_expr e1 || is_string_expr e2) ->
 			leftside e1;
 			spr ctx " .= ";
 			gen_value_op ctx e2;
-		| Ast.OpAdd when (is_string_expr e1 || is_string_expr e2) ->
-			gen_value_op ctx e1;
-			spr ctx " . ";
-			gen_value_op ctx e2;
 		| Ast.OpAssignOp(Ast.OpShl) ->
 			leftside e1;
 			spr ctx " <<= ";
 			gen_value_op ctx e2;
-		| Ast.OpShl ->
-			gen_value_op ctx e1;
-			spr ctx " << ";
-			gen_value_op ctx e2;
 		| Ast.OpAssignOp(Ast.OpUShr) ->
 			leftside e1;
 			spr ctx " = ";
@@ -916,6 +931,18 @@ and gen_expr ctx e =
 			spr ctx ", ";
 			gen_value_op ctx e2;
 			spr ctx ")";
+		| Ast.OpAssignOp(_) ->
+			leftsidec e1;
+			print ctx " %s " (Ast.s_binop op);
+			gen_value_op ctx e2;
+		| Ast.OpAdd when (is_string_expr e1 || is_string_expr e2) ->
+			gen_value_op ctx e1;
+			spr ctx " . ";
+			gen_value_op ctx e2;
+		| Ast.OpShl ->
+			gen_value_op ctx e1;
+			spr ctx " << ";
+			gen_value_op ctx e2;
 		| Ast.OpUShr ->
 			spr ctx "_hx_shift_right(";
 			gen_value_op ctx e1;
@@ -1202,6 +1229,8 @@ and gen_expr ctx e =
 			spr ctx "->__a[";
 			gen_value ctx te2;
 			spr ctx "]";
+		| TField (e1,s) ->
+			gen_field_access ctx true e1 s
 		| _ ->
 			gen_value ctx e)
 	| TUnop (op,Ast.Postfix,e) ->
@@ -1211,6 +1240,8 @@ and gen_expr ctx e =
 			spr ctx "->__a[";
 			gen_value ctx te2;
 			spr ctx "]";
+		| TField (e1,s) ->
+			gen_field_access ctx true e1 s
 		| _ ->
 			gen_value ctx e);
 		spr ctx (Ast.s_unop op)

std/php/Boot.hx

@@ -143,6 +143,24 @@ class _hx_array implements ArrayAccess {
 	}
 }
 
+class _hx_array_iterator {
+	private $a;
+	private $i;
+	public function __construct($a) {
+		$this->__a = $a;
+		$this->i = 0;
+	}
+
+	public function next() {
+		if(!$this->hasNext()) return null;
+		return $this->__a[$this->i++];
+	}
+
+	public function hasNext() {
+		return $this->i < count($this->__a);
+	}
+}
+
 function _hx_array_get($a, $pos) {
 	return $a[$pos];
 }
@@ -294,6 +312,21 @@ function _hx_null() {
 	return null;
 }
 
+class _hx_nullob {
+	function _throw()       { throw new HException('Null object'); }
+	function __call($f, $a) { $this->_throw(); }
+	function __get($f)      { $this->_throw(); }
+	function __set($f, $v)  { $this->_throw(); }
+	function __isset($f)    { $this->_throw(); }
+	function __unset($f)    { $this->_throw(); }
+	function __toString()   { return 'null'; }
+	static $inst;
+}
+
+_hx_nullob::$inst = new _hx_nullob();
+
+function _hx_nullob() { return _hx_nullob::$inst; }
+
 function _hx_qtype($n) {
 	return isset(php_Boot::$qtypes[$n]) ? php_Boot::$qtypes[$n] : null;
 }
@@ -528,25 +561,7 @@ class _hx_class extends _hx_type {}
 
 class _hx_enum extends _hx_type {}
 
-class _hx_interface extends _hx_type { }
-
-class _hx_array_iterator {
-	private $a;
-	private $i;
-	public function __construct($a) {
-		$this->__a = $a;
-		$this->i = 0;
-	}
-
-	public function next() {
-		if(!$this->hasNext()) return null;
-		return $this->__a[$this->i++];
-	}
-
-	public function hasNext() {
-		return $this->i < count($this->__a);
-	}
-}
+class _hx_interface extends _hx_type {}
 
 class HException extends Exception {
 	public function __construct($e, $message = null, $code = null, $p = null) {