|
@@ -210,6 +210,8 @@ and gen_expr ctx e =
|
|
|
field p (gen_type_path p e.e_path) f
|
|
field p (gen_type_path p e.e_path) f
|
|
|
| TArray (e1,e2) ->
|
|
| TArray (e1,e2) ->
|
|
|
(EArray (gen_expr ctx e1,gen_expr ctx e2),p)
|
|
(EArray (gen_expr ctx e1,gen_expr ctx e2),p)
|
|
|
|
|
+ | TBinop (OpAssign,{ eexpr = TField (e1,f) },e2) ->
|
|
|
|
|
+ (EBinop ("=",field p (gen_expr ctx e1) f,gen_expr ctx e2),p)
|
|
|
| TBinop (op,e1,e2) ->
|
|
| TBinop (op,e1,e2) ->
|
|
|
gen_binop ctx p op e1 e2
|
|
gen_binop ctx p op e1 e2
|
|
|
| TField (e2,f) ->
|
|
| TField (e2,f) ->
|
Nicolas Cannasse