Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 1104:8b464283e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-12 18:58:13 by james] Unconditionally compile the LISP_FLOAT_TYPE code. Remove all !LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
author james
date Tue, 12 Nov 2002 18:58:41 +0000
parents 345b7d75cab4
children a123f88fa975
comparison
equal deleted inserted replaced
1103:80d9ab2e9855 1104:8b464283e891
1519 /**** Lisp-level timeout functions. ****/ 1519 /**** Lisp-level timeout functions. ****/
1520 1520
1521 static unsigned long 1521 static unsigned long
1522 lisp_number_to_milliseconds (Lisp_Object secs, int allow_0) 1522 lisp_number_to_milliseconds (Lisp_Object secs, int allow_0)
1523 { 1523 {
1524 #ifdef LISP_FLOAT_TYPE
1525 double fsecs; 1524 double fsecs;
1526 CHECK_INT_OR_FLOAT (secs); 1525 CHECK_INT_OR_FLOAT (secs);
1527 fsecs = XFLOATINT (secs); 1526 fsecs = XFLOATINT (secs);
1528 #else
1529 long fsecs;
1530 CHECK_INT (secs);
1531 fsecs = XINT (secs);
1532 #endif
1533 if (fsecs < 0) 1527 if (fsecs < 0)
1534 invalid_argument ("timeout is negative", secs); 1528 invalid_argument ("timeout is negative", secs);
1535 if (!allow_0 && fsecs == 0) 1529 if (!allow_0 && fsecs == 0)
1536 invalid_argument ("timeout is non-positive", secs); 1530 invalid_argument ("timeout is non-positive", secs);
1537 if (fsecs >= (((unsigned int) 0xFFFFFFFF) / 1000)) 1531 if (fsecs >= (((unsigned int) 0xFFFFFFFF) / 1000))