[PD-cvs] pd/src g_canvas.c, 1.16, 1.17 g_io.c, 1.6, 1.7 m_pd.h, 1.13, 1.14 notes.txt, 1.30, 1.31 s_audio.c, 1.10, 1.11 s_main.c, 1.26, 1.27 s_midi.c, 1.8, 1.9

Miller Puckette millerpuckette at users.sourceforge.net
Wed Sep 20 00:30:35 CEST 2006


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

Modified Files:
	g_canvas.c g_io.c m_pd.h notes.txt s_audio.c s_main.c s_midi.c 
Log Message:
Bug fixes



Index: m_pd.h
===================================================================
RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** m_pd.h	8 Sep 2006 23:45:30 -0000	1.13
--- m_pd.h	19 Sep 2006 22:30:33 -0000	1.14
***************
*** 12,16 ****
  #define PD_MINOR_VERSION 40
  #define PD_BUGFIX_VERSION 0
! #define PD_TEST_VERSION "test07"
  
  /* old name for "MSW" flag -- we have to take it for the sake of many old
--- 12,16 ----
  #define PD_MINOR_VERSION 40
  #define PD_BUGFIX_VERSION 0
! #define PD_TEST_VERSION "test08"
  
  /* old name for "MSW" flag -- we have to take it for the sake of many old

Index: s_main.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_main.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** s_main.c	8 Sep 2006 23:45:30 -0000	1.26
--- s_main.c	19 Sep 2006 22:30:33 -0000	1.27
***************
*** 250,254 ****
      sprintf(foo,  "Pd version %d.%d-%d%s\n",PD_MAJOR_VERSION,
          PD_MINOR_VERSION,PD_BUGFIX_VERSION,PD_TEST_VERSION);
!     pd_version = malloc(strlen(foo+1));
      strcpy(pd_version, foo);
  }
--- 250,254 ----
      sprintf(foo,  "Pd version %d.%d-%d%s\n",PD_MAJOR_VERSION,
          PD_MINOR_VERSION,PD_BUGFIX_VERSION,PD_TEST_VERSION);
!     pd_version = malloc(strlen(foo)+1);
      strcpy(pd_version, foo);
  }
***************
*** 860,864 ****
          }
          else if (!strcmp(*argv, "-noprefs")) /* did this earlier */
!             ;
          else
          {
--- 860,864 ----
          }
          else if (!strcmp(*argv, "-noprefs")) /* did this earlier */
!             argc--, argv++;
          else
          {
***************
*** 973,978 ****
      if (sys_main_srate)
          rate = sys_main_srate;
!     sys_open_audio(naudioindev, audioindev, naudioindev, chindev,
!         naudiooutdev, audiooutdev, naudiooutdev, choutdev, rate, advance, 0);
      sys_open_midi(nmidiindev, midiindev, nmidioutdev, midioutdev, 0);
  }
--- 973,978 ----
      if (sys_main_srate)
          rate = sys_main_srate;
!     sys_open_audio(naudioindev, audioindev, nchindev, chindev,
!         naudiooutdev, audiooutdev, nchoutdev, choutdev, rate, advance, 0);
      sys_open_midi(nmidiindev, midiindev, nmidioutdev, midioutdev, 0);
  }

Index: s_midi.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_midi.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** s_midi.c	8 Sep 2006 23:45:31 -0000	1.8
--- s_midi.c	19 Sep 2006 22:30:33 -0000	1.9
***************
*** 654,663 ****
          MAXNDEV, DEVDESCSIZE);
  
!     sys_gui("set midi_indevlist {none}\n");
      for (i = 0; i < nindevs; i++)
          sys_vgui("lappend midi_indevlist \"%s\"\n",
              indevlist + i * DEVDESCSIZE);
  
!     sys_gui("set midi_outdevlist {none}\n");
      for (i = 0; i < noutdevs; i++)
          sys_vgui("lappend midi_outdevlist \"%s\"\n",
--- 654,663 ----
          MAXNDEV, DEVDESCSIZE);
  
!     sys_gui("global midi_indevlist; set midi_indevlist {none}\n");
      for (i = 0; i < nindevs; i++)
          sys_vgui("lappend midi_indevlist \"%s\"\n",
              indevlist + i * DEVDESCSIZE);
  
!     sys_gui("global midi_outdevlist; set midi_outdevlist {none}\n");
      for (i = 0; i < noutdevs; i++)
          sys_vgui("lappend midi_outdevlist \"%s\"\n",

Index: g_canvas.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_canvas.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** g_canvas.c	8 Sep 2006 23:45:30 -0000	1.16
--- g_canvas.c	19 Sep 2006 22:30:33 -0000	1.17
***************
*** 378,381 ****
--- 378,383 ----
          t_canvasenvironment *env = x->gl_env =
              (t_canvasenvironment *)getbytes(sizeof(*x->gl_env));
+         if (!canvas_newargv)
+             canvas_newargv = getbytes(0);
          env->ce_dir = canvas_newdirectory;
          env->ce_argc = canvas_newargc;

Index: notes.txt
===================================================================
RCS file: /cvsroot/pure-data/pd/src/notes.txt,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** notes.txt	8 Sep 2006 23:45:30 -0000	1.30
--- notes.txt	19 Sep 2006 22:30:33 -0000	1.31
***************
*** 1,3 ****
--- 1,5 ----
  ---------------- dolist --------------------
+ check bug reports on sourceforge
+ PC device counting problem (first device invoked by -audiodev 0)
  
  test:
***************
*** 14,41 ****
  Gnome: why don't windows pop up when clicked on?
  
- doc:
- declare help window
- openpanel directory
- big-soundfile support
- escaping filenames for wierdly named externs
- infrastructure for adding externs in non-ascii languages
- '$' patch (multiple dollar-sign expansion)
- -x flag for curves
- object list
- document env~ second argument (and why is it no less than 1/10 of first???)
- vibrato example
- block resampling arguments
- document tabwrite~_start
- "list" to signal inlet (e.g., "*~") or float inlet (f) complains.
- $-expansion changed 
- list length
- send inlet
- bug fix: list to numbox (inlet and object but object is noinlet)
- bug fix: pd $1 bug ($1 is saved as it was evaluated, not as '$1')
- flag to defeat .pdsettings
- '{' dropped better
- '[' in numbox label breaks it (Yury Sept. 3)
- more reasonable font size default for GUIs
- 
  problems:
  help browser (offer both versions?)
--- 16,19 ----
***************
*** 64,69 ****
  detect adc~ and dac~ reblocking
  
  features:
- flag to defeat .pdsettings
  externs able to usurp built-ins (+mem alignment for SSE)
  replace gatom_escapit with a quoting mechanism (handle '[', spaces, etc.)
--- 42,49 ----
  detect adc~ and dac~ reblocking
  
+ more demonstration patches:
+ vibrato using variable delay
+ 
  features:
  externs able to usurp built-ins (+mem alignment for SSE)
  replace gatom_escapit with a quoting mechanism (handle '[', spaces, etc.)
***************
*** 166,170 ****
  tools (reassigns meaning of primary click)
  get gui to notice early EOF
! rewrite t_getbytes properly
  obj_new should do a longjmp on out-of-memory
  
--- 146,150 ----
  tools (reassigns meaning of primary click)
  get gui to notice early EOF
! rewrite t_getbytes properly (m_newmemory.c in pd/attic)
  obj_new should do a longjmp on out-of-memory
  

Index: g_io.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_io.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** g_io.c	15 Aug 2006 04:54:15 -0000	1.6
--- g_io.c	19 Sep 2006 22:30:33 -0000	1.7
***************
*** 218,225 ****
  
              if (upsample * downsample == 1)
!                     dsp_add(vinlet_doprolog, 3, x, insig->s_vec, re_parentvecsize);
              else {
!               resamplefrom_dsp(&x->x_updown, insig->s_vec, parentvecsize, re_parentvecsize, x->x_updown.method);
!               dsp_add(vinlet_doprolog, 3, x, x->x_updown.s_vec, re_parentvecsize);
          }
  
--- 218,228 ----
  
              if (upsample * downsample == 1)
!                     dsp_add(vinlet_doprolog, 3, x, insig->s_vec,
!                         re_parentvecsize);
              else {
!               resamplefrom_dsp(&x->x_updown, insig->s_vec, parentvecsize,
!                 re_parentvecsize, x->x_updown.method);
!               dsp_add(vinlet_doprolog, 3, x, x->x_updown.s_vec,
!                 re_parentvecsize);
          }
  

Index: s_audio.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** s_audio.c	8 Sep 2006 23:45:30 -0000	1.10
--- s_audio.c	19 Sep 2006 22:30:33 -0000	1.11
***************
*** 132,138 ****
  {
      int nblk;
!     int inbytes = (chin ? chin : 2) * (DEFDACBLKSIZE*sizeof(float));
!     int outbytes = (chout ? chout : 2) * (DEFDACBLKSIZE*sizeof(float));
  
      sys_inchannels = chin;
      sys_outchannels = chout;
--- 132,148 ----
  {
      int nblk;
!     int inbytes = (chin ? chin : 2) *
!                 (DEFDACBLKSIZE*sizeof(float));
!     int outbytes = (chout ? chout : 2) *
!                 (DEFDACBLKSIZE*sizeof(float));
  
+     if (sys_soundin)
+         freebytes(sys_soundin, 
+             (sys_inchannels? sys_inchannels : 2) *
+                 (DEFDACBLKSIZE*sizeof(float)));
+     if (sys_soundout)
+         freebytes(sys_soundout, 
+             (sys_outchannels? sys_outchannels : 2) *
+                 (DEFDACBLKSIZE*sizeof(float)));
      sys_inchannels = chin;
      sys_outchannels = chout;
***************
*** 142,153 ****
          sys_advance_samples = 3 * DEFDACBLKSIZE;
  
!     if (sys_soundin)
!         free(sys_soundin);
!     sys_soundin = (t_float *)malloc(inbytes);
      memset(sys_soundin, 0, inbytes);
  
!     if (sys_soundout)
!         free(sys_soundout);
!     sys_soundout = (t_float *)malloc(outbytes);
      memset(sys_soundout, 0, outbytes);
  
--- 152,159 ----
          sys_advance_samples = 3 * DEFDACBLKSIZE;
  
!     sys_soundin = (t_float *)getbytes(inbytes);
      memset(sys_soundin, 0, inbytes);
  
!     sys_soundout = (t_float *)getbytes(outbytes);
      memset(sys_soundout, 0, outbytes);
  
***************
*** 655,664 ****
          MAXNDEV, DEVDESCSIZE);
  
!     sys_gui("set audio_indevlist {}\n");
      for (i = 0; i < nindevs; i++)
          sys_vgui("lappend audio_indevlist \"%s\"\n",
              indevlist + i * DEVDESCSIZE);
  
!     sys_gui("set audio_outdevlist {}\n");
      for (i = 0; i < noutdevs; i++)
          sys_vgui("lappend audio_outdevlist \"%s\"\n",
--- 661,670 ----
          MAXNDEV, DEVDESCSIZE);
  
!     sys_gui("global audio_indevlist; set audio_indevlist {}\n");
      for (i = 0; i < nindevs; i++)
          sys_vgui("lappend audio_indevlist \"%s\"\n",
              indevlist + i * DEVDESCSIZE);
  
!     sys_gui("global audio_outdevlist; set audio_outdevlist {}\n");
      for (i = 0; i < noutdevs; i++)
          sys_vgui("lappend audio_outdevlist \"%s\"\n",





More information about the Pd-cvs mailing list