The R Project SVN R

Rev

Rev 46629 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46629 Rev 46631
Line 122... Line 122...
122 
       concurrency support. LT */
 122 
       concurrency support. LT */
123 
#if  ( defined(HAVE_AQUA) || defined(Win32) )
 123 
#if  ( defined(HAVE_AQUA) || defined(Win32) )
124 
    R_ProcessEvents();
 124 
    R_ProcessEvents();
125 
#else
 125 
#else
126 
    R_PolledEvents();
 126 
    R_PolledEvents();
127 
    /* the same code is in R_ProcessEvents on Windows */
 127 
    /* the same code is in R_ProcessEvents on Windows and AQUA */
128 
    if (cpuLimit > 0.0 || elapsedLimit > 0.0) {
 128 
    if (cpuLimit > 0.0 || elapsedLimit > 0.0) {
129 
	double cpu, data[5];
 129 
	double cpu, data[5];
130 
	R_getProcTime(data);
 130 
	R_getProcTime(data);
131 
	cpu = data[0] + data[1] + data[3] + data[4];
 131 
	cpu = data[0] + data[1] + data[3] + data[4];
132 
	if (elapsedLimit > 0.0 && data[2] > elapsedLimit) {
 132 
	if (elapsedLimit > 0.0 && data[2] > elapsedLimit) {