|
|
@@ -166,9 +166,9 @@ struct
|
|
|
{ e with eexpr = TField(run ef, "ToUpper") }
|
|
|
|
|
|
| TCall( ( { eexpr = TField({ eexpr = TTypeExpr (TClassDecl cl) }, "fromCharCode") } ), [cc] ) ->
|
|
|
- { e with eexpr = TNew(get_cl_from_t basic.tstring, [], [mk_cast tchar cc; mk_int gen 1 cc.epos]) }
|
|
|
+ { e with eexpr = TNew(get_cl_from_t basic.tstring, [], [mk_cast tchar (run cc); mk_int gen 1 cc.epos]) }
|
|
|
| TCall( ( { eexpr = TField({ eexpr = TTypeExpr (TTypeDecl t) }, "fromCharCode") } ), [cc] ) when is_string (follow (TType(t,List.map snd t.t_types))) ->
|
|
|
- { e with eexpr = TNew(get_cl_from_t basic.tstring, [], [mk_cast tchar cc; mk_int gen 1 cc.epos]) }
|
|
|
+ { e with eexpr = TNew(get_cl_from_t basic.tstring, [], [mk_cast tchar (run cc); mk_int gen 1 cc.epos]) }
|
|
|
| TCall( ( { eexpr = TField(ef, ("charAt" as field)) } ), args )
|
|
|
| TCall( ( { eexpr = TField(ef, ("charCodeAt" as field)) } ), args )
|
|
|
| TCall( ( { eexpr = TField(ef, ("indexOf" as field)) } ), args )
|
Caue Waneck