|
@@ -1236,12 +1236,6 @@ let configure gen =
|
|
List.rev !ret
|
|
List.rev !ret
|
|
in
|
|
in
|
|
|
|
|
|
- let field_hxgen f = match f with
|
|
|
|
- | FInstance(c,_,_) | FStatic(c,_) ->
|
|
|
|
- is_hxgen (TClassDecl c)
|
|
|
|
- | _ -> true (* dynamic, etc will be considered hxgen *)
|
|
|
|
- in
|
|
|
|
-
|
|
|
|
let expr_s w e =
|
|
let expr_s w e =
|
|
last_line := -1;
|
|
last_line := -1;
|
|
in_value := false;
|
|
in_value := false;
|
|
@@ -1249,7 +1243,7 @@ let configure gen =
|
|
let was_in_value = !in_value in
|
|
let was_in_value = !in_value in
|
|
in_value := true;
|
|
in_value := true;
|
|
(match e.eexpr with
|
|
(match e.eexpr with
|
|
- | TCall({ eexpr = TField(ef,f) }, (_ :: _ as args) ) when field_hxgen f && (field_name f) = "get_Item" ->
|
|
|
|
|
|
+ | TCall({ eexpr = TField(ef,f) }, (_ :: _ as args) ) when (field_name f) = "get_Item" ->
|
|
expr_s w ef;
|
|
expr_s w ef;
|
|
write w "[";
|
|
write w "[";
|
|
let first = ref true in
|
|
let first = ref true in
|
|
@@ -1258,7 +1252,7 @@ let configure gen =
|
|
expr_s w f
|
|
expr_s w f
|
|
) args;
|
|
) args;
|
|
write w "]"
|
|
write w "]"
|
|
- | TCall({ eexpr = TField(ef,f) }, (_ :: _ :: _ as args) ) when field_hxgen f && (field_name f) = "set_Item" ->
|
|
|
|
|
|
+ | TCall({ eexpr = TField(ef,f) }, (_ :: _ :: _ as args) ) when (field_name f) = "set_Item" ->
|
|
expr_s w ef;
|
|
expr_s w ef;
|
|
write w "[";
|
|
write w "[";
|
|
let args, value = match List.rev args with
|
|
let args, value = match List.rev args with
|