Mercurial > repos > rhope
view test/test.c @ 7:d61550e2c001
Added current work on new runtime
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 13 May 2009 00:47:40 -0400 |
parents | |
children | 8d74ef7fa357 |
line wrap: on
line source
#include <stdio.h> #include "builtin.h" #include "object.h" #include "integer.h" int main(int argc, char ** argv) { returntype ret; calldata cdata; register_builtin_types(); cdata.params[0] = make_Int32(2); cdata.params[1] = make_Int32(3); cdata.num_params = 2; ret = call_method(METHOD_ADD, &cdata); while(ret == TAIL_RETURN) ret = cdata.tail_func(&cdata); if(ret == EXCEPTION_RETURN) { puts("Exception!"); exit(-1); } printf("After METHOD_ADD: %d\n", ((_t_Int32 *)cdata.params[0])->num); cdata.params[1] = make_Int32(1); ret = call_method(METHOD_SUB, &cdata); while(ret == TAIL_RETURN) ret = cdata.tail_func(&cdata); if(ret == EXCEPTION_RETURN) { puts("Exception!"); exit(-1); } printf("After METHOD_ADD: %d\n", ((_t_Int32 *)cdata.params[0])->num); return 0; }