private Expression Expand(Expression expr)
{
if (expr == null)
{
return(null);
}
else if (expr is Addr)
{
var addr = (Addr)expr;
var target = Expand(addr.Target);
return(new Addr(target));
}
else if (expr is Assign)
{
var ass = (Assign)expr;
var prop = ass.InvokedProp();
if (prop != null)
{
return(Expand(prop));
}
else
{
var rhs = Expand(ass.Rhs);
var lhs = Expand(ass.Lhs);
return(new Assign(lhs, rhs));
}
}
else if (expr is Operator)
{
var op = (Operator)expr;
if (op.OperatorType.IsAssign())
{
var prop = op.Children.AssertFirst().InvokedProp();
if (prop != null)
{
return(Expand(prop));
}
else
{
// todo. implement this with the use of SafeExpandOpAssign
var args = op.Args.Select(arg => Expand(arg));
return(Operator.Create(op.OperatorType, args));
}
}
else
{
var args = op.Args.Select(arg => Expand(arg));
return(Operator.Create(op.OperatorType, args));
}
}
else if (expr is Conditional)
{
var cond = (Conditional)expr;
var test = Expand(cond.Test);
var iftrue = Expand(cond.IfTrue);
var iffalse = Expand(cond.IfFalse);
return(new Conditional(test, iftrue, iffalse));
}
else if (expr is Const)
{
// do nothing - nowhere to drill into
return(expr);
}
else if (expr is Convert)
{
var cvt = (Convert)expr;
var source = Expand(cvt.Source);
return(new Convert(cvt.Type, source));
}
else if (expr is Deref)
{
var deref = (Deref)expr;
var target = Expand(deref.Target);
return(new Deref(target));
}
else if (expr is Fld)
{
var fld = (Fld)expr;
var @this = Expand(fld.This);
return(new Fld(fld.Field, @this));
}
else if (expr is Prop)
{
// basic investigations
var prop = (Prop)expr;
var is_instance = prop.Property.IsInstance();
var parent = prop.Parent;
var app = parent as Apply;
var is_indexer = app != null && app.Callee == prop;
if (is_indexer)
{
parent = parent.Parent;
}
// we have 5 different cases:
// 1) foo.P;
// 2) foo.P = bar;
// 3) qux = (foo.P = bar);
// 4) foo.P += bar;
// 4') foo.P++;
// 5) qux = (foo.P += bar);
// 5') qux = (foo.P++);
var ass = parent as Assign;
var is_assigned = ass != null && (ass.Lhs == prop || ass.Lhs == app);
var op = parent as Operator;
var is_opassigned = op != null && op.OperatorType.IsAssign();
is_assigned |= is_opassigned;
var is_rhs_reused = is_assigned && parent.Parent is Expression;
if (!is_assigned)
{
var impl = prop.Property.GetGetMethod(true);
var this_args = is_instance ? prop.This.MkArray() : Seq.Empty <Expression>();
var indexer_args = is_indexer ? app.Args : Seq.Empty <Expression>();
var args = Seq.Concat(this_args, indexer_args).ToReadOnly();
var style = prop.InvokedAsVirtual ? InvocationStyle.Virtual : InvocationStyle.NonVirtual;
return(Expand(new Eval(new Apply(new Lambda(impl, style), args))));
}
else
{
// abstract away the root
// todo. implement this with the use of SafeExpandOpAssign
var root = prop.This;
if (is_opassigned && !root.IsLvalue())
{
var opassroot = DeclareLocal("$opassroot", prop.This.Type());
Emit(new Assign(opassroot, prop.This));
root = opassroot;
}
// abstract away the RHS
var rhs = null as Expression;
if (ass != null)
{
rhs = ass.Rhs;
}
if (is_opassigned)
{
if (op.IsUnary())
{
rhs = new Const(1);
}
else if (op.IsBinary())
{
rhs = op.Children.AssertSecond().AssertCast <Expression>();
}
else
{
throw AssertionHelper.Fail();
}
}
// abstract away the equivalence transform
Func <Expression> equiv = () =>
{
Func <Expression> equivGetter = () =>
{
var impl = prop.Property.GetGetMethod(true);
var this_args = is_instance ? root.MkArray() : Seq.Empty <Expression>();
var indexer_args = is_indexer ? app.Args : Seq.Empty <Expression>();
var args = Seq.Concat(this_args, indexer_args).ToReadOnly();
var style = prop.InvokedAsVirtual ? InvocationStyle.Virtual : InvocationStyle.NonVirtual;
return(new Eval(new Apply(new Lambda(impl, style), args)));
};
Func <Expression, Expression> equivSetter = assigned_value =>
{
var impl = prop.Property.GetSetMethod(true);
var this_args = is_instance ? root.MkArray() : Seq.Empty <Expression>();
var indexer_args = is_indexer ? app.Args : Seq.Empty <Expression>();
var args = Seq.Concat(this_args, indexer_args, assigned_value.MkArray()).ToReadOnly();
var style = prop.InvokedAsVirtual ? InvocationStyle.Virtual : InvocationStyle.NonVirtual;
return(new Eval(new Apply(new Lambda(impl, style), args)));
};
if (is_opassigned)
{
return(equivSetter(Operator.Create(op.OperatorType, equivGetter(), rhs)));
}
else
{
return(equivSetter(rhs));
}
};
// final transform
if (is_rhs_reused)
{
var cached_rhs = DeclareLocal("$opassrhs", rhs.Type());
Emit(new Assign(cached_rhs, rhs));
rhs = cached_rhs;
Emit(equiv());
return(cached_rhs);
}
else
{
return(Expand(equiv()));
}
}
}
else if (expr is Ref)
{
var @ref = (Ref)expr;
var env = Env.GetOrDefault(@ref.Sym);
return(Expand(env) ?? @ref);
}
else if (expr is SizeOf)
{
// do nothing - nowhere to drill into
return(expr);
}
else if (expr is TypeAs)
{
var typeAs = (TypeAs)expr;
var target = Expand(typeAs.Target);
return(new TypeAs(typeAs.Type, target));
}
else if (expr is TypeIs)
{
var typeIs = (TypeIs)expr;
var target = Expand(typeIs.Target);
return(new TypeAs(typeIs.Type, target));
}
else if (expr is Default)
{
// do nothing - nowhere to drill into
return(expr);
}
else if (expr is CollectionInit)
{
var ci = (CollectionInit)expr;
if (ci.Elements.IsEmpty())
{
return(Expand(ci.Ctor));
}
else
{
var ctor_coll = ci.InvokedMethod().AssertThat(mb => mb.IsConstructor());
var t_coll = ctor_coll.DeclaringType;
var l_coll = DeclareLocal("$", t_coll);
Emit(new Assign(l_coll, ci.Ctor));
ci.Elements.ForEach((el, i) =>
{
if (t_coll.IsArray)
{
(t_coll.GetArrayRank() == 1).AssertTrue();
var m_set = t_coll.ArraySetter().AssertNotNull();
Emit(new Eval(new Apply(new Lambda(m_set), l_coll, new Const(i), el)));
}
else
{
var m_add = t_coll.GetMethods(BF.All).AssertSingle(m => m.Name == "Add");
Emit(new Eval(new Apply(new Lambda(m_add), l_coll, el)));
}
});
return(l_coll);
}
}
else if (expr is ObjectInit)
{
var oi = (ObjectInit)expr;
if (oi.Members.IsEmpty())
{
return(Expand(oi.Ctor));
}
else
{
var ctor_obj = oi.InvokedMethod().AssertThat(mb => mb.IsConstructor());
var t_obj = ctor_obj.DeclaringType;
var l_obj = DeclareLocal("$", t_obj);
Emit(new Assign(l_obj, oi.Ctor));
foreach (var mi in oi.Members)
{
if (mi is FieldInfo)
{
var fi = mi as FieldInfo;
Emit(new Assign(new Fld(fi, l_obj), oi.MemberInits[mi]));
}
else if (mi is PropertyInfo)
{
var pi = mi as PropertyInfo;
// todo. what about virtuality?!
Emit(new Assign(new Prop(pi, l_obj), oi.MemberInits[mi]));
}
else
{
throw AssertionHelper.Fail();
}
}
return(l_obj);
}
}
else if (expr is Eval)
{
var eval = (Eval)expr;
var lam = eval.InvokedLambda();
var m = eval.InvokedMethod();
var child_ctx = Ctx.SpinOff(m);
var status = Codebase.Classify(m);
(status != MethodStatus.MustNotBeExecutedOnDevice).AssertTrue();
var is_redirected = status == MethodStatus.IsRedirected;
if (is_redirected)
{
var redir = Codebase.Redirect(eval);
if (redir == null)
{
return(null);
}
else
{
var m_redir = redir.InvokedMethod();
if (m_redir.HasBody())
{
var raw_body = m_redir.ParseBody().Where(op => !(op is CilNop)).ToReadOnly();
if (raw_body.Count() == 2)
{
var first = raw_body.First() as CilNew;
var second = raw_body.Second() as CilThrow;
var tni_ctor = typeof(NotImplementedException).GetConstructor(Type.EmptyTypes);
if (first != null && first.Ctor == tni_ctor && second != null)
{
throw AssertionHelper.Fail();
}
}
}
return(Expand(redir));
}
}
else
{
var needsExpansion = status == MethodStatus.CanBeExecutedOnDevice;
var doesntNeedExpansion = status == MethodStatus.HasSpecialSemantics;
(needsExpansion ^ doesntNeedExpansion).AssertTrue();
if (needsExpansion)
{
// todo. think about what we can do here
(lam.InvocationStyle == InvocationStyle.Virtual).AssertFalse();
m.DeclaringType.IsInterface.AssertFalse();
}
var md = m.Decompile();
needsExpansion.AssertImplies(m.HasBody());
var p_ret = Seq.Empty <ParameterInfo>();
var mi = m as MethodInfo;
if (mi != null)
{
p_ret = mi.ReturnParameter.MkArray();
}
m.GetParameters().Concat(p_ret).ForEach(pi => pi.IsOptional.AssertFalse());
var args = eval.InvocationArgs();
var args_include_this = !lam.InvokedAsCtor && m.IsInstance();
var @params = m.GetParameters().AsEnumerable();
var p_fakethis = null as ParameterInfo;
if (args_include_this)
{
@params = p_fakethis.Concat(@params).ToReadOnly();
}
var l_args = @params.Zip(args, (p, actual_arg) =>
{
var p_sig = p == null ? md.Sig.Params.First() : md.Sig.Params.AssertSingle(p1 => p1.Metadata == p);
var p_type = p_sig.Type;
Func <Expression, Expression> expand_arg = null;
expand_arg = arg =>
{
Func <Expression, String, Expression> default_expand1 = (e, postfix) =>
{
var prefix = (m.IsConstructor() ? m.DeclaringType.Name : m.Name).ToLower();
var name = p_sig.Name + (postfix == null ? null : ("_" + postfix.ToLower()));
var full_name = String.Format("${0}_{1}", prefix, name);
var l_stub = DeclareLocal(full_name, p_type);
Emit(new Assign(l_stub, Expand(arg)));
return(l_stub);
};
Func <Expression, Expression> default_expand = e => default_expand1(e, null);
if (doesntNeedExpansion)
{
if (p_type.IsArray && p.IsVarargs())
{
var ctor = arg.InvokedCtor();
if (ctor != null && ctor.DeclaringType.IsArray)
{
var arg_eval = arg as Eval;
if (arg_eval != null)
{
var rank = ctor.DeclaringType.GetArrayRank();
if (rank == 1)
{
var sole_arg = arg.InvocationArgs().AssertSingle() as Const;
if (sole_arg != null &&
sole_arg.Value is int && (int)sole_arg.Value == 0)
{
return(arg);
}
}
}
var arg_ci = arg as CollectionInit;
if (arg_ci != null)
{
p_type.IsArray().AssertTrue();
(p_type.GetArrayRank() == 1).AssertTrue();
try
{
p_type = p_type.GetElementType();
var els = arg_ci.Elements.Select(expand_arg).ToReadOnly();
return(new CollectionInit(arg_ci.Ctor, els));
}
finally
{
p_type = p_type.MakeArrayType();
}
}
}
}
var needs_expansion = arg.Family().Any(c =>
c is Eval || c is Apply || c is Lambda || c is Prop || c is CollectionInit || c is ObjectInit);
if (!needs_expansion)
{
return(arg);
}
else
{
// todo. the stuff below works incorrectly in general case
// since it might disrupt evaluation order of parameters
//
// however for now I trade off introducing a potential bug
// for the ease of debugging and looking at traces
var old_stmtc = Stmts.Count();
var expanded = default_expand(arg).AssertCast <Ref>();
var new_stmtc = Stmts.Count();
(new_stmtc > old_stmtc).AssertTrue();
// todo. fix possible semantic disruption at the next line
if (new_stmtc - old_stmtc > 1)
{
return(expanded);
}
else
{
var ass = Stmts.Last().AssertCast <Assign>();
ass.Lhs.Equiv(expanded).AssertTrue();
Stmts.RemoveLast();
RemoveLocal(expanded);
return(ass.Rhs);
}
}
}
else
{
var p_reads = md.Body.Family().OfType <Ref>().Where(r => r.Sym == p_sig.Sym).ToReadOnly();
var p_asses = md.Body.Family().OfType <Assign>().Select(ass =>
{
var r_lhs = ass.Lhs as Ref;
var is_write = r_lhs != null && r_lhs.Sym == p_sig.Sym;
return(is_write ? ass : null);
}).Where(ass => ass != null).ToReadOnly();
var p_byref = md.Body.Family().OfType <Apply>().Select(app =>
{
var passes_byref = app.ArgsInfo.Zip((e, pi) =>
{
var e_ref = e as Ref;
var is_read = e_ref != null && e_ref.Sym == p_sig.Sym;
var is_byref = pi.Type.IsByRef;
return(is_read && is_byref);
}).Any();
return(passes_byref ? app : null);
}).Where(app => app != null).ToReadOnly();
var p_writes = Seq.Concat(p_asses.Cast <Expression>(), p_byref.Cast <Expression>()).ToReadOnly();
var p_usages = Seq.Concat(p_reads.Cast <Expression>(), p_writes.Cast <Expression>()).ToReadOnly();
// todo. below we might disrupt evaluation order
// by totally inlining an arg expression if it has a single usage
// strictly speaking, before doing that
// we need perform additional checks that eval-order is preserved
//
// note. this semi-correct solution is introduced
// solely for the convenience of the back-end
// and for the convenience of reading the resulting traces
var passed_by_ref = p == null || p.PassedByRef();
if (passed_by_ref)
{
var @ref = arg as Ref;
if (@ref != null)
{
return(arg);
}
var fld = arg as Fld;
if (fld != null)
{
fld.Field.IsInstance().AssertTrue();
// todo. fix possible semantic disruption at the next line
if (p_usages.Count() <= 1)
{
return(arg);
}
else
{
var root = fld.This;
var is_atom = root is Ref || root is Const;
if (is_atom)
{
return(arg);
}
else
{
var root_expanded = default_expand1(root, "root");
return(new Fld(fld.Field, root_expanded));
}
}
}
var eval1 = arg as Eval;
if (eval1 != null)
{
var m1 = eval1.InvokedMethod();
m1.IsArrayGetter().AssertTrue();
var args1 = eval1.InvocationArgs();
var lam1 = eval1.InvokedLambda();
var r_ee = eval1.Expand(Ctx.SpinOff(m1));
r_ee.Stmts.ForEach(Stmts.Add);
var ee = r_ee.Result.AssertCast <Eval>().AssertNotNull();
// todo. fix possible semantic disruption at the next line
if (p_usages.Count() <= 1)
{
return(ee);
}
else
{
var root = ee.Callee.Callee;
Func <Expression, bool> is_atom = e => e is Ref || e is Const;
if (is_atom(root) && ee.Callee.Args.All(is_atom))
{
return(ee);
}
else
{
var root_expanded = default_expand1(root, "root");
return(new Eval(new Apply(new Lambda(m1, lam1.InvocationStyle), root_expanded.Concat(args1))));
}
}
}
// arg isn't an lvalue, so it can't be passed by reference
throw AssertionHelper.Fail();
}
else
{
if (p_writes.IsEmpty())
{
// todo. fix possible semantic disruption at the next line
if (p_usages.Count() <= 1)
{
return(arg);
}
else
{
var is_atom = arg is Ref || arg is Const;
if (is_atom)
{
var is_value_type = p_type.IsValueType;
var is_primitive = p_type.IsPrimitive;
var needs_copying = is_value_type && !is_primitive;
return(needs_copying ? default_expand(arg) : arg);
}
else
{
return(default_expand(arg));
}
}
}
else
{
return(default_expand(arg));
}
}
}
};
var preprocessed_arg = actual_arg.Transform((Ref @ref) =>
{
var env = Env.GetOrDefault(@ref.Sym);
return(env ?? @ref);
}).AssertCast <Expression>();
var expanded_arg = expand_arg(preprocessed_arg);
expanded_arg = expanded_arg.Transform((Ref @ref) =>
{
var env = Env.GetOrDefault(@ref.Sym);
return(env ?? @ref);
}).AssertCast <Expression>();
if (needsExpansion)
{
child_ctx.Env.Add(p_sig.Sym, expanded_arg);
}
return(expanded_arg);
}).ToReadOnly();
if (needsExpansion)
{
var env_locals = lam.Body.LocalsRecursive().ToDictionary(l => l as Sym, l =>
{
var frames = Stack.Reverse().Skip(1).Concat(m);
var qualifier = frames.Select(sf => sf.Name.ToLower()).StringJoin("_");
var full_name = String.Format("${0}_{1}", qualifier, l.Name);
return(DeclareLocal(full_name, l.Type) as Expression);
}).ToReadOnly();
child_ctx.Env.AddElements(env_locals);
Action <Block> import_locals = blk =>
{
foreach (var local in blk.Locals.ToArray())
{
var env_ref = env_locals.GetOrDefault(local) as Ref;
var env = env_ref == null ? null : (Local)env_ref.Sym;
if (env != null)
{
blk.Locals.Remove(local);
blk.Locals.Add(env);
}
else
{
Scope.Locals.Add(local);
}
}
// todo. also import locals from embedded blocks
// here we need to take inlined stuff into account
};
if (lam.InvokedAsCtor)
{
var l_this = DeclareLocal(String.Format("${0}_this", m.DeclaringType.Name.ToLower()), m.DeclaringType);
child_ctx.Env.Add(lam.Sig.Syms[0], l_this);
var malloc = typeof(Ctm).GetMethod("Malloc", new [] { typeof(Type) }).AssertNotNull();
var malloc_type = new Const(m.DeclaringType);
Emit(new Assign(l_this, new Eval(new Apply(new Lambda(malloc), malloc_type))));
var body = lam.Body.Expand(child_ctx);
import_locals(body);
if (body.IsEmpty())
{
var last_stmt = Stmts.Last() as Assign;
var last_invoked = last_stmt == null ? null : last_stmt.Rhs.InvokedMethod();
(last_invoked == malloc).AssertTrue();
RemoveLocal(l_this);
Stmts.RemoveLast();
return(last_stmt.Rhs);
}
else
{
body.ForEach(Stmts.Add);
return(l_this);
}
}
else if (m.Ret() == typeof(void))
{
var body = lam.Body.Expand(child_ctx).AssertNotEmpty();
import_locals(body);
if (body.IsNotEmpty())
{
body.ForEach(Stmts.Add);
}
return(null);
}
else
{
(m.Ret().IsByRef || m.Ret().IsPointer).AssertFalse();
var name = String.Format("${0}_ret", m.Name.ToLower());
var l_ret = DeclareLocal(name, m.Ret());
child_ctx.Ret = l_ret;
var body = lam.Body.Expand(child_ctx).AssertNotEmpty();
import_locals(body);
var body_last = body.LastOrDefault();
if (body_last is Label)
{
body.ForEach(Stmts.Add);
return(l_ret);
}
else
{
var ass = body.AssertLast().AssertCast <Assign>();
ass.Lhs.Equiv(l_ret).AssertTrue();
RemoveLocal(l_ret);
body.SkipLast(1).ForEach(Stmts.Add);
return(ass.Rhs);
}
}
}
else
{
return(new Eval(new Apply(lam, l_args.Cast <Expression>())));
}
}
}
else
{
var app = expr as Apply;
var app_prop = app == null ? null : app.Callee as Prop;
if (app_prop != null)
{
return(Expand(app_prop));
}
// todo. also support indirect calls and partial applications
// i.e. process cases when Apply/Lambda nodes ain't wrapped in an Eval
throw AssertionHelper.Fail();
}
}