#define return(x) C_cblock C_r = (C_int_to_num(&C_a,(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub70(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; unsigned char * blob=(unsigned char * )C_c_bytevector_or_null(C_a0); SDL_Point* pt = (SDL_Point*) blob;C_return(pt->x); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_noret_decl(stub55) static void C_ccall stub55(C_word C_c,C_word *C_av){ C_word C_k=C_av[1],C_buf=C_av[2]; C_word C_a0=C_av[3]; C_word C_a1=C_av[4]; C_word C_a2=C_av[5]; C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; unsigned char * blob=(unsigned char * )C_c_bytevector_or_null(C_a0); int x=(int )C_num_to_int(C_a1); int y=(int )C_num_to_int(C_a2); SDL_Point* pt = (SDL_Point*) blob;pt->x = x; pt->y = y; C_ret: #undef return C_kontinue(C_k,C_r);}