Mercurial > hg > xemacs-beta

comparison src/sysdep.c @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents b405438285a2
children 41ff10fd062f
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
2845 int 2845 int
2846 sys_close (int fd) 2846 sys_close (int fd)
2847 { 2847 {
2848 #ifdef INTERRUPTIBLE_CLOSE 2848 #ifdef INTERRUPTIBLE_CLOSE
2849 int did_retry = 0; 2849 int did_retry = 0;
2850 register int rtnval; 2850 REGISTER int rtnval;
2851 2851
2852 while ((rtnval = close (fd)) == -1 2852 while ((rtnval = close (fd)) == -1
2853 && (errno == EINTR)) 2853 && (errno == EINTR))
2854 did_retry = 1; 2854 did_retry = 1;
2855 2855
5405 SYS$WAITFR (vms_timer_ef); /* Wait for timer expiry only */ 5405 SYS$WAITFR (vms_timer_ef); /* Wait for timer expiry only */
5406 } 5406 }
5407 #endif /* 0 */ 5407 #endif /* 0 */
5408 5408
5409 void 5409 void
5410 bzero (register char *b, register int length) 5410 bzero (REGISTER char *b, REGISTER int length)
5411 { 5411 {
5412 short zero = 0; 5412 short zero = 0;
5413 long max_str = 65535; 5413 long max_str = 65535;
5414 5414
5415 while (length > max_str) { 5415 while (length > max_str) {
5421 (void) LIB$MOVC5 (&zero, &zero, &zero, &max_str, b); 5421 (void) LIB$MOVC5 (&zero, &zero, &zero, &max_str, b);
5422 } 5422 }
5423 5423
5424 /* Saying `void' requires a declaration, above, where bcopy is used 5424 /* Saying `void' requires a declaration, above, where bcopy is used
5425 and that declaration causes pain for systems where bcopy is a macro. */ 5425 and that declaration causes pain for systems where bcopy is a macro. */
5426 bcopy (register char *b1, register char *b2, register int length) 5426 bcopy (REGISTER char *b1, REGISTER char *b2, REGISTER int length)
5427 { 5427 {
5428 long max_str = 65535; 5428 long max_str = 65535;
5429 5429
5430 while (length > max_str) { 5430 while (length > max_str) {
5431 (void) LIB$MOVC3 (&max_str, b1, b2); 5431 (void) LIB$MOVC3 (&max_str, b1, b2);
5436 max_str = length; 5436 max_str = length;
5437 (void) LIB$MOVC3 (&length, b1, b2); 5437 (void) LIB$MOVC3 (&length, b1, b2);
5438 } 5438 }
5439 5439
5440 int 5440 int
5441 bcmp (register char *b1, register char *b2, register int length) 5441 bcmp (REGISTER char *b1, REGISTER char *b2, REGISTER int length)
5442 /* This could be a macro! */ 5442 /* This could be a macro! */
5443 { 5443 {
5444 struct dsc$descriptor_s src1 = {length, DSC$K_DTYPE_T, DSC$K_CLASS_S, b1}; 5444 struct dsc$descriptor_s src1 = {length, DSC$K_DTYPE_T, DSC$K_CLASS_S, b1};
5445 struct dsc$descriptor_s src2 = {length, DSC$K_DTYPE_T, DSC$K_CLASS_S, b2}; 5445 struct dsc$descriptor_s src2 = {length, DSC$K_DTYPE_T, DSC$K_CLASS_S, b2};
5446 5446