|
@@ -977,7 +977,7 @@ let generate_managed_class base_ctx tcpp_class =
|
|
|
if List.length tcpp_class.tcl_functions > 0 || List.length tcpp_class.tcl_static_functions > 0 then (
|
|
if List.length tcpp_class.tcl_functions > 0 || List.length tcpp_class.tcl_static_functions > 0 then (
|
|
|
|
|
|
|
|
let dump_script is_static f acc =
|
|
let dump_script is_static f acc =
|
|
|
- if f.tcf_name <> "toString" then (* toString implicitly overrides hx::Object::toString *)
|
|
|
|
|
|
|
+ if not f.tcf_is_overriding && f.tcf_name <> "toString" then (* toString implicitly overrides hx::Object::toString *)
|
|
|
let signature = generate_script_function is_static f.tcf_field ("__s_" ^ f.tcf_field.cf_name) f.tcf_name in
|
|
let signature = generate_script_function is_static f.tcf_field ("__s_" ^ f.tcf_field.cf_name) f.tcf_name in
|
|
|
let superCall = if is_static then "0" else "__s_" ^ f.tcf_field.cf_name ^ "<true>" in
|
|
let superCall = if is_static then "0" else "__s_" ^ f.tcf_field.cf_name ^ "<true>" in
|
|
|
let named =
|
|
let named =
|