[PD-cvs] pd/src m_class.c, 1.3.4.7.2.21, 1.3.4.7.2.22 desire.c, 1.1.2.215, 1.1.2.216

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14797

Modified Files:
      Tag: devel_0_39
	m_class.c desire.c 
Log Message:
introducing pd_set_newest(t_pd*)


Index: m_class.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/m_class.c,v
retrieving revision 1.3.4.7.2.21
retrieving revision 1.3.4.7.2.22
diff -C2 -d -r1.3.4.7.2.21 -r1.3.4.7.2.22
*** m_class.c	19 Sep 2006 05:59:25 -0000	1.3.4.7.2.21
--- m_class.c	28 Nov 2006 21:12:59 -0000	1.3.4.7.2.22
***************
*** 784,787 ****
--- 784,791 ----
      t_floatarg d1, t_floatarg d2, t_floatarg d3, t_floatarg d4, t_floatarg d5);
  
+ #ifdef DESIRE
+ void pd_set_newest(t_pd *x);
+ #endif
+ 
  void pd_typedmess(t_pd *x, t_symbol *s, int argc, t_atom *argv)
  {
***************
*** 832,836 ****
--- 836,844 ----
          {
              if (x == &pd_objectmaker)
+ #ifdef DESIRE
+                 pd_set_newest(((t_newgimme)(m->me_fun))(s, argc, argv));
+ #else
                  newest = (*((t_newgimme)(m->me_fun)))(s, argc, argv);
+ #endif
              else (*((t_messgimme)(m->me_fun)))(x, s, argc, argv);
              return;
***************
*** 914,918 ****
--- 922,930 ----
          }
          if (x == &pd_objectmaker)
+ #ifdef DESIRE
+ 	    pd_set_newest(bonzo);
+ #else
              newest = bonzo;
+ #endif
          return;
      }

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.215
retrieving revision 1.1.2.216
diff -C2 -d -r1.1.2.215 -r1.1.2.216
*** desire.c	28 Nov 2006 20:52:02 -0000	1.1.2.215
--- desire.c	28 Nov 2006 21:12:59 -0000	1.1.2.216
***************
*** 842,848 ****
  }
  
  /* called by m_class.c */
  extern "C" void canvas_popabstraction(t_canvas *x) {
!     newest = x;
      pd_popsym(x);
      x->loading = 0;
--- 842,852 ----
  }
  
+ extern "C" void pd_set_newest (t_pd *x) {
+ 	newest = x;
+ }
+ 
  /* called by m_class.c */
  extern "C" void canvas_popabstraction(t_canvas *x) {
!     pd_set_newest(x);
      pd_popsym(x);
      x->loading = 0;
***************
*** 1387,1391 ****
      gobj_changed(x,0);
      if (!(oc = obj_connect(from,outlet,to,inlet))) goto bad;
!     newest = oc;
      return;
  bad:
--- 1391,1395 ----
      gobj_changed(x,0);
      if (!(oc = obj_connect(from,outlet,to,inlet))) goto bad;
!     pd_set_newest(oc);
      return;
  bad: