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

Modified Files: Tag: devel_0_39 m_sched.c Log Message: sys_xrun_notification

Index: m_sched.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_sched.c,v retrieving revision 1.5.4.35.2.11 retrieving revision 1.5.4.35.2.12 diff -C2 -d -r1.5.4.35.2.11 -r1.5.4.35.2.12 *** m_sched.c 13 Apr 2006 18:50:23 -0000 1.5.4.35.2.11 --- m_sched.c 13 Jun 2006 13:05:45 -0000 1.5.4.35.2.12 *************** *** 812,816 **** case 0: next = idle_callback->next; ! freebytes (idle_callback->argv, idle_callback->argc); freebytes ((void*)idle_callback, sizeof(t_sched_callback)); --- 812,817 ---- case 0: next = idle_callback->next; ! if (idle_callback->argc) ! freebytes (idle_callback->argv, idle_callback->argc); freebytes ((void*)idle_callback, sizeof(t_sched_callback)); *************** *** 857,858 **** --- 858,875 ---- return sys_callbackscheduler; } + + static t_int sys_xrun_notification_callback(t_int * dumy) + { + t_symbol * pd = gensym("pd"); + t_symbol * xrun = gensym("xrun"); + + typedmess(pd->s_thing, xrun, 0, 0); + + return 0; + } + + + void sys_xrun_notification(void) + { + sys_callback(sys_xrun_notification_callback, 0, 0); + }