void e () { i_local_t a,b,c,d,e,f,g,h,i,j,k,l; int (*ip)(int (*)(int,int),int,int,int,int,int,int,int,int,int); i_init(100); a = i_paramk(I_I,1); b = i_paramk(I_I,2); c = i_param(I_I); d = i_param(I_I); e = i_param(I_I); g = i_param(I_I); h = i_param(I_I); i = i_param(I_I); j = i_param(I_I); k = i_local(0,I_I); l = i_local(0,I_I); f = i_paramk(I_P,0); i_argi(a); i_argi(b); i_calli(k, f); i_argi(c); i_argi(d); i_calli(d, f); i_addi(k,k,d); i_argi(e); i_argi(g); i_calli(g, f); i_addi(k,k,g); i_argi(h); i_argi(i); i_calli(i, f); i_addi(k,k,i); i_addi(k,k,j); i_addii(l,k,3); i_reti(l); i_end(); i_unparse(); ip = (int (*)(int (*)(int,int),int,int,int,int,int,int,int,int,int)) i_emit().i; v_dump((void*)ip); printf("**48=%d\n", (*ip)(gg,1,2,3,4,5,6,7,8,9)); }
void d () { i_local_t a,b; v_iptr ip; i_init(100); a = i_local(0, I_I); b = i_local(0, I_I); i_seti(a, 1); i_seti(b, 2); i_argi(a); i_argi(b); i_callii(a, gg); i_reti(a); i_end(); i_unparse(); ip = i_emit().i; v_dump((void*)ip); printf("**3=%d\n", (*ip)()); }
void a () { i_local_t a, b, c,d; i_init(20); a = i_local(0, I_I); b = i_local(0, I_I); c = i_local(0, I_I); d = i_local(0, I_I); i_seti(a, 5); i_seti(b, 7); i_seti(c, 8); i_movi(d, c); i_addi(c, a, b); i_addi(d, d, c); i_reti(d); i_end(); i_unparse(); i_emitc(); }
static PyObject * python_i_local(PyObject *self, PyObject *args ) { char *usage = "Usage: _seisparams._i_local( i_null, depth, distance, absorption )"; PyObject *obj; double retval, i_null, depth, distance, absorption; if( ! PyArg_ParseTuple( args, "dddd", &i_null, &depth, &distance, &absorption ) ) { USAGE; return NULL; } retval=i_local( i_null, depth, distance, absorption); obj = Py_BuildValue( "d", retval ); return obj; }
void b () { i_local_t f; i_label_t L1; v_pptr pp; i_init(100); L1 = i_mklabel(); f = i_local(0, I_P); i_setp(f, gg); i_nop(); i_nop(); i_nop(); i_nop(); i_retp(f); i_end(); i_unparse(); pp = i_emit().p; v_dump((void*)pp); printf("**3=%d\n", (*(int (*)(int, int))((*pp)()))(1,2)); }
void a () { i_local_t a,b,c,d,e,f,g,h,i,j,w,z,func,cnt; i_label_t L1; v_iptr ip; i_init(100); L1 = i_mklabel(); /* func = i_local(0, I_P);*/ cnt = i_local(0, I_P); a = i_local(0, I_I); b = i_local(0, I_I); c = i_local(0, I_I); d = i_local(0, I_I); e = i_local(0, I_I); f = i_local(0, I_I); g = i_local(0, I_I); h = i_local(0, I_I); i = i_local(0, I_I); j = i_local(0, I_I); z = i_local(0, I_I); w = i_local(0, I_I); /* i_setp(func, ff);*/ i_seti(a, 1); i_seti(b, 2); i_seti(c, 3); i_seti(d, 4); i_seti(e, 5); i_seti(f, 6); i_seti(g, 7); i_seti(h, 8); i_seti(i, 9); i_seti(j, 0); i_seti(z, 0); i_seti(cnt, 0); i_label(L1); i_argi(a); i_argi(b); i_argi(c); i_argi(d); i_argi(e); i_argi(f); i_argi(g); i_argi(h); i_argi(i); i_argi(j); i_callii(w, ff); i_addi(z,z,w); i_addii(cnt,cnt,1); i_bltii(cnt,2,L1); i_addi(z, z, a); i_addi(z, z, b); i_addi(z, z, c); i_addi(z, z, d); i_addi(z, z, e); i_addi(z, z, f); i_addi(z, z, g); i_addi(z, z, h); i_addi(z, z, i); i_addi(z, z, j); i_reti(z); /* (9*10/2)*3 = 135 */ i_end(); i_unparse(); ip = i_emit().i; v_dump((void*)ip); printf("**135=%d\n", (*ip)()); }