[PD-cvs] pd/src kernel.c,1.1.2.2,1.1.2.3

[Mathieu Bouchard]

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);
  }