X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0c747cb143fa227e78f350ac353d703f489209df..207cb73c182d432a00fef797428d3b79ab519287:/lib-src/test-distrib.c
diff --git a/lib-src/test-distrib.c b/lib-src/test-distrib.c
index 1487c2bab5..b404c8230d 100644
--- a/lib-src/test-distrib.c
+++ b/lib-src/test-distrib.c
@@ -1,7 +1,6 @@
/* test-distrib.c --- testing distribution of nonprinting chars
-Copyright (C) 1987, 1993, 1994, 1995, 1999, 2001, 2002, 2003, 2004, 2005,
- 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+Copyright (C) 1987, 1993-1995, 1999, 2001-2012 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@@ -19,43 +18,28 @@ You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see . */
-#ifdef HAVE_CONFIG_H
#include
-#endif
-
#include
-
-#ifdef HAVE_FCNTL_H
#include
-#endif
-
-#ifdef HAVE_UNISTD_H
#include
-#endif
-
-#ifndef O_RDONLY
-#define O_RDONLY 0
-#endif
/* Break string in two parts to avoid buggy C compilers that ignore characters
after nulls in strings. */
-char string1[] = "Testing distribution of nonprinting chars:\n\
+static char string1[] = "Testing distribution of nonprinting chars:\n\
Should be 0177: \177 Should be 0377: \377 Should be 0212: \212.\n\
Should be 0000: ";
-char string2[] = ".\n\
+static char string2[] = ".\n\
This file is read by the `test-distribution' program.\n\
If you change it, you will make that program fail.\n";
-char buf[300];
-
/* Like `read' but keeps trying until it gets SIZE bytes or reaches eof. */
-int
+static int
cool_read (int fd, char *buf, size_t size)
{
ssize_t num;
- size_t sofar = 0;
+ ssize_t sofar = 0;
while (1)
{
@@ -71,6 +55,7 @@ int
main (int argc, char **argv)
{
int fd;
+ char buf[300];
if (argc != 2)
{
@@ -98,7 +83,5 @@ have been corrupted in the files of Emacs, and it will not work.\n",
return EXIT_SUCCESS;
}
-/* arch-tag: 3a89005d-df98-4c32-aa9f-33570e16a26a
- (do not change this comment) */
/* test-distrib.c ends here */