Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1206
Modified Files: Tag: desiredata kernel.c Log Message: fix warnings, and errors that would be in C++ mode
Index: kernel.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** kernel.c 13 Dec 2006 20:08:42 -0000 1.1.2.2 --- kernel.c 13 Dec 2006 20:14:32 -0000 1.1.2.3 *************** *** 231,235 **** }
! t_int atom_getint(t_atom *a) {return atom_getfloat(a);}
/* why return &s_float here? */ --- 231,235 ---- }
! t_int atom_getint(t_atom *a) {return (t_int)atom_getfloat(a);}
/* why return &s_float here? */ *************** *** 253,257 ****
t_int atom_getintarg(int which, int argc, t_atom *argv) ! {return atom_getfloatarg(which, argc, argv);}
t_symbol *atom_getsymbolarg(int which, int argc, t_atom *argv) { --- 253,257 ----
t_int atom_getintarg(int which, int argc, t_atom *argv) ! {return (t_int)atom_getfloatarg(which, argc, argv);}
t_symbol *atom_getsymbolarg(int which, int argc, t_atom *argv) { *************** *** 428,432 **** freebytes(e, sizeof(t_bindelem)); } ! else for (e = b->b_list; e2 = e->e_next; e = e2) if (e2->e_who == x) { e->e_next = e2->e_next; freebytes(e2, sizeof(t_bindelem)); --- 428,432 ---- freebytes(e, sizeof(t_bindelem)); } ! else for (e = b->b_list; (e2=e->e_next); e = e2) if (e2->e_who == x) { e->e_next = e2->e_next; freebytes(e2, sizeof(t_bindelem)); *************** *** 446,450 **** { t_pd *x = 0; - if (!s->s_thing) return (0); if (*s->s_thing == c) return (s->s_thing); --- 446,449 ---- *************** *** 452,456 **** { t_bindlist *b = (t_bindlist *)s->s_thing; ! t_bindelem *e, *e2; int warned = 0; for (e = b->b_list; e; e = e->e_next) --- 451,455 ---- { t_bindlist *b = (t_bindlist *)s->s_thing; ! t_bindelem *e; int warned = 0; for (e = b->b_list; e; e = e->e_next) *************** *** 619,623 **** if (y = owner->ob_inlet) { ! while (y2 = y->i_next) y = y2; y->i_next = x; } --- 618,622 ---- if (y = owner->ob_inlet) { ! while ((y2=y->i_next)) y = y2; y->i_next = x; } *************** *** 813,818 **** t_canvas *c = self->oc_gobj.dix->canvas; binbuf_addv(b, "ssiiii;", gensym("#X"), gensym("connect"), ! canvas_getindex(c,self->from), self->outlet, canvas_getindex(c,self->to), self->inlet); ! appendix_save(self,b); }
--- 812,817 ---- t_canvas *c = self->oc_gobj.dix->canvas; binbuf_addv(b, "ssiiii;", gensym("#X"), gensym("connect"), ! canvas_getindex(c,(t_gobj *)self->from), self->outlet, canvas_getindex(c,(t_gobj *)self->to), self->inlet); ! appendix_save((t_gobj *)self,b); }