- proc_main = new_type_method(id_from_str(METHODNAME, strlen(METHODNAME)),
- NRARGS, NRES);
- /** @@@ setting of arg/res types misses **/
- ent = new_entity ((type *)owner,
- id_from_str (METHODNAME, strlen(METHODNAME)),
- (type *)proc_main);
+ proc_main = new_type_method(new_id_from_chars(METHODNAME, strlen(METHODNAME)),
+ NRARGS, NRES);
+ set_method_param_type(proc_main, 0, prim_t_int);
+ set_method_res_type(proc_main, 0, prim_t_int);
+
+ ent = new_entity (owner,
+ new_id_from_chars (METHODNAME, strlen(METHODNAME)),
+ proc_main);