Mercurial > repos > rhope
diff runtime/main_mid.c @ 186:ba35ab624ec2
Add support for raw C function output from C backend as well as an option to use Boehm-GC instead of reference counting
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Fri, 07 Oct 2011 00:10:02 -0700 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/runtime/main_mid.c Fri Oct 07 00:10:02 2011 -0700 @@ -0,0 +1,24 @@ +#ifdef RAW_FUNC + ret = f_List(0, inout); + inout[0] = ret.retvals[0]; + for (idx = 0; idx < argc; ++idx) + { + inout[1] = make_String(argv[idx]); + ret = f_Append(2, inout); + inout[0] = ret.retvals[0]; + } + ret = f_Main(1, inout); + numret = ret.num_ret; + if (numret) + inout[0] = ret.retvals[0]; +#else + + rhope(FUNC_List, inout, 0, 1); + for (idx = 0; idx < argc; ++idx) + { + inout[1] = make_String(argv[idx]); + rhope(FUNC_Append, inout, 2, 2); + } + numret = rhope(FUNC_Main, inout, 1, 1); +#endif +