Mercurial > hg > xemacs-beta

comparison src/process-nt.c @ 5581:56144c8593a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mechanically change INT to FIXNUM in our sources. src/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT (where it refers to non-bignum Lisp integers) to FIXNUM in our sources. Done for the following functions, enums, and macros: Lisp_Type_Int_Even, Lisp_Type_Int_Odd, INT_GCBITS, INT_VALBITS, make_int(), INTP(), XINT(), CHECK_INT(), XREALINT(), INT_PLUS(), INT_MINUS(), EMACS_INT_MAX (to MOST_POSITIVE_FIXNUM), EMACS_INT_MIN (to MOST_NEGATIVE_FIXNUM), NUMBER_FITS_IN_AN_EMACS_INT() to NUMBER_FITS_IN_A_FIXNUM(), XFLOATINT, XCHAR_OR_INT, INT_OR_FLOAT. The EMACS_INT typedef was not changed, it does not describe non-bignum Lisp integers. Script that did the change available in http://mid.gmane.org/20067.17650.181273.12014@parhasard.net . modules/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> [...] Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers. See the src/ChangeLog entry for more details. man/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * internals/internals.texi (How Lisp Objects Are Represented in C): * internals/internals.texi (Integers and Characters): Mechanically change INT to FIXNUM, where the usage describes non-bignum Lisp integers.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Oct 2011 09:51:57 +0100
parents 308d34e9f07d
children a216b3c2b09e
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
634 validate_signal_number (int signo) 634 validate_signal_number (int signo)
635 { 635 {
636 if (signo != SIGKILL && signo != SIGTERM 636 if (signo != SIGKILL && signo != SIGTERM
637 && signo != SIGQUIT && signo != SIGINT 637 && signo != SIGQUIT && signo != SIGINT
638 && signo != SIGHUP) 638 && signo != SIGHUP)
639 invalid_constant ("Signal number not supported", make_int (signo)); 639 invalid_constant ("Signal number not supported", make_fixnum (signo));
640 } 640 }
641 641
642 /*-----------------------------------------------------------------------*/ 642 /*-----------------------------------------------------------------------*/
643 /* Process methods */ 643 /* Process methods */
644 /*-----------------------------------------------------------------------*/ 644 /*-----------------------------------------------------------------------*/
1135 int wait_ms = 25; 1135 int wait_ms = 25;
1136 while (Lstream_was_blocked_p (XLSTREAM (p->pipe_outstream))) 1136 while (Lstream_was_blocked_p (XLSTREAM (p->pipe_outstream)))
1137 { 1137 {
1138 /* Buffer is full. Wait, accepting input; that may allow 1138 /* Buffer is full. Wait, accepting input; that may allow
1139 the program to finish doing output and read more. */ 1139 the program to finish doing output and read more. */
1140 Faccept_process_output (Qnil, Qzero, make_int (wait_ms)); 1140 Faccept_process_output (Qnil, Qzero, make_fixnum (wait_ms));
1141 Lstream_flush (XLSTREAM (p->pipe_outstream)); 1141 Lstream_flush (XLSTREAM (p->pipe_outstream));
1142 wait_ms = min (1000, 2 * wait_ms); 1142 wait_ms = min (1000, 2 * wait_ms);
1143 } 1143 }
1144 } 1144 }
1145 } 1145 }
1335 CHECK_STRING (host); 1335 CHECK_STRING (host);
1336 1336
1337 if (!EQ (protocol, Qtcp)) 1337 if (!EQ (protocol, Qtcp))
1338 invalid_constant ("Unsupported protocol", protocol); 1338 invalid_constant ("Unsupported protocol", protocol);
1339 1339
1340 if (INTP (service)) 1340 if (FIXNUMP (service))
1341 port = htons ((unsigned short) XINT (service)); 1341 port = htons ((unsigned short) XFIXNUM (service));
1342 else 1342 else
1343 { 1343 {
1344 struct servent *svc_info; 1344 struct servent *svc_info;
1345 Extbyte *servext; 1345 Extbyte *servext;
1346 1346
1535 p = XPROCESS (process); 1535 p = XPROCESS (process);
1536 pid = NT_DATA (p)->dwProcessId; 1536 pid = NT_DATA (p)->dwProcessId;
1537 } 1537 }
1538 else 1538 else
1539 { 1539 {
1540 CHECK_INT (process); 1540 CHECK_FIXNUM (process);
1541 1541
1542 /* Allow pid to be an internally generated one, or one obtained 1542 /* Allow pid to be an internally generated one, or one obtained
1543 externally. This is necessary because real pids on Win95 are 1543 externally. This is necessary because real pids on Win95 are
1544 negative. */ 1544 negative. */
1545 1545
1546 pid = XINT (process); 1546 pid = XFIXNUM (process);
1547 p = find_process_from_pid (pid); 1547 p = find_process_from_pid (pid);
1548 if (p != NULL) 1548 if (p != NULL)
1549 pid = NT_DATA (p)->dwProcessId; 1549 pid = NT_DATA (p)->dwProcessId;
1550 } 1550 }
1551 1551