internal RCMethod Compile(RNode main) { EmitScope es = CreateMethodScope("main"); PushScope(es); state = EmitState.RESOLVING; main.Walk(this); state = EmitState.EMITTING; EmitScopeInitializer(); main.Walk(this); Type main_type = CloseScope(es); if (save) { assembly_builder.Save(filename); } // Call constructor object method = main_type.InvokeMember(null, BindingFlags.Instance | BindingFlags.Public | BindingFlags.FlattenHierarchy | BindingFlags.CreateInstance, null, null, new object[] {} ); return((RCMethod)method); }
internal Type block; // Generated type of the block attached to the call // ( argsarr -- argsarr ) internal static void EmitStoreArg(EmitContext ec, int i, RNode val) { ec.EmitDup(); // arr ec.EmitInt(i); // idx val.Walk(ec); // val ec.EmitArrayStore(); }
internal override void Walk(EmitContext ec) { string name = ec.id2name(mid); if (ec.Resolving) { scope = ec.CreateMethodScope(name); } ec.PushScope(scope); if (ec.Emitting) { ec.EmitScopeInitializer(); } RNScope sc = (RNScope)defn; RNode n = sc.next; RNArgs args = (RNArgs)n.head; RNode body = n.next; int argc = args.cnt; for (int i = 0; i < argc; i++) { // First two locals in table are $~ and $_ uint vid = sc.tbl[i + 2]; WalkArg(ec, i, vid); } // Methods can have no body if (body != null) { body.Walk(ec); } if (ec.Emitting) { Type t = ec.CloseScope(scope); ec.EmitDefine(name, t); ec.EmitNil(); // Return value } else { ec.PopScope(scope); } }
internal override void Walk(EmitContext ec) { // Linear scan of linked list for O(1) stack space for (RNode n = this; n != null;) { if (n is RNBlock) { RNode current = n.head; current.Walk(ec); n = n.next; if (ec.Emitting && n != null) { // Discard previous result, block returns last value generated ec.EmitDiscard(); } } else { throw new NotSupportedException("bug: not supported block tail: " + n.GetType().Name); } } }
internal RCMethod Compile(RNode main) { EmitScope es = CreateMethodScope("main"); PushScope(es); state = EmitState.RESOLVING; main.Walk(this); state = EmitState.EMITTING; EmitScopeInitializer(); main.Walk(this); Type main_type = CloseScope(es); if(save) { assembly_builder.Save(filename); } // Call constructor object method = main_type.InvokeMember(null, BindingFlags.Instance | BindingFlags.Public | BindingFlags.FlattenHierarchy | BindingFlags.CreateInstance, null, null, new object[] {} ); return (RCMethod)method; }