Mercurial > hg > xemacs-beta

comparison src/profile.c @ 5438:8d29f1c4bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 0af042a0c116
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
361 361
362 if (NILP (microsecs)) 362 if (NILP (microsecs))
363 msecs = default_profiling_interval; 363 msecs = default_profiling_interval;
364 else 364 else
365 { 365 {
366 CHECK_NATNUM (microsecs); 366 #ifdef HAVE_BIGNUM
367 check_integer_range (microsecs, make_int (1000), make_integer (INT_MAX));
368 msecs =
369 BIGNUMP (microsecs) ? bignum_to_int (XBIGNUM_DATA (microsecs)) :
370 XINT (microsecs);
371 #else
372 check_integer_range (microsecs, make_int (1000),
373 make_integer (EMACS_INT_MAX));
367 msecs = XINT (microsecs); 374 msecs = XINT (microsecs);
375 #endif
368 } 376 }
369 if (msecs <= 0) 377 if (msecs <= 0)
370 msecs = 1000; 378 msecs = 1000;
371 379
372 set_timeout_signal (SIGPROF, sigprof_handler); 380 set_timeout_signal (SIGPROF, sigprof_handler);