Mercurial > emacs

comparison src/dosfns.c @ 40656:cdfd4d09b79a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update usage of CHECK_ macros (remove unused second argument).
author Pavel Janík <Pavel@Janik.cz>
date Fri, 02 Nov 2001 20:46:55 +0000
parents cb39e41a5fae
children c6fc300f820a
comparison
equal deleted inserted replaced
40655:45453187feeb 40656:cdfd4d09b79a
63 register int i; 63 register int i;
64 int no; 64 int no;
65 union REGS inregs, outregs; 65 union REGS inregs, outregs;
66 Lisp_Object val; 66 Lisp_Object val;
67 67
68 CHECK_NUMBER (interrupt, 0); 68 CHECK_NUMBER (interrupt);
69 no = (unsigned long) XINT (interrupt); 69 no = (unsigned long) XINT (interrupt);
70 CHECK_VECTOR (registers, 1); 70 CHECK_VECTOR (registers);
71 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) 71 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
72 return Qnil; 72 return Qnil;
73 for (i = 0; i < 8; i++) 73 for (i = 0; i < 8; i++)
74 CHECK_NUMBER (XVECTOR (registers)->contents[i], 1); 74 CHECK_NUMBER (XVECTOR (registers)->contents[i]);
75 75
76 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]); 76 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
77 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]); 77 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
78 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]); 78 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
79 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]); 79 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
105 register int i; 105 register int i;
106 int offs, len; 106 int offs, len;
107 char *buf; 107 char *buf;
108 Lisp_Object val; 108 Lisp_Object val;
109 109
110 CHECK_NUMBER (address, 0); 110 CHECK_NUMBER (address);
111 offs = (unsigned long) XINT (address); 111 offs = (unsigned long) XINT (address);
112 CHECK_VECTOR (vector, 1); 112 CHECK_VECTOR (vector);
113 len = XVECTOR (vector)-> size; 113 len = XVECTOR (vector)-> size;
114 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 114 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
115 return Qnil; 115 return Qnil;
116 buf = alloca (len); 116 buf = alloca (len);
117 dosmemget (offs, len, buf); 117 dosmemget (offs, len, buf);
130 register int i; 130 register int i;
131 int offs, len; 131 int offs, len;
132 char *buf; 132 char *buf;
133 Lisp_Object val; 133 Lisp_Object val;
134 134
135 CHECK_NUMBER (address, 0); 135 CHECK_NUMBER (address);
136 offs = (unsigned long) XINT (address); 136 offs = (unsigned long) XINT (address);
137 CHECK_VECTOR (vector, 1); 137 CHECK_VECTOR (vector);
138 len = XVECTOR (vector)-> size; 138 len = XVECTOR (vector)-> size;
139 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 139 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
140 return Qnil; 140 return Qnil;
141 buf = alloca (len); 141 buf = alloca (len);
142 142
143 for (i = 0; i < len; i++) 143 for (i = 0; i < len; i++)
144 { 144 {
145 CHECK_NUMBER (XVECTOR (vector)->contents[i], 1); 145 CHECK_NUMBER (XVECTOR (vector)->contents[i]);
146 buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF; 146 buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
147 } 147 }
148 148
149 dosmemput (buf, len, offs); 149 dosmemput (buf, len, offs);
150 return Qt; 150 return Qt;
156 all keys; otherwise it is only used when the ALT key is pressed.\n\ 156 all keys; otherwise it is only used when the ALT key is pressed.\n\
157 The current keyboard layout is available in dos-keyboard-code.") 157 The current keyboard layout is available in dos-keyboard-code.")
158 (country_code, allkeys) 158 (country_code, allkeys)
159 Lisp_Object country_code; 159 Lisp_Object country_code;
160 { 160 {
161 CHECK_NUMBER (country_code, 0); 161 CHECK_NUMBER (country_code);
162 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys))) 162 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
163 return Qnil; 163 return Qnil;
164 return Qt; 164 return Qt;
165 } 165 }
166 166
522 Lisp_Object filename; 522 Lisp_Object filename;
523 { 523 {
524 struct statfs stfs; 524 struct statfs stfs;
525 Lisp_Object encoded, value; 525 Lisp_Object encoded, value;
526 526
527 CHECK_STRING (filename, 0); 527 CHECK_STRING (filename);
528 filename = Fexpand_file_name (filename, Qnil); 528 filename = Fexpand_file_name (filename, Qnil);
529 encoded = ENCODE_FILE (filename); 529 encoded = ENCODE_FILE (filename);
530 530
531 if (statfs (XSTRING (encoded)->data, &stfs)) 531 if (statfs (XSTRING (encoded)->data, &stfs))
532 value = Qnil; 532 value = Qnil;