* trans-stmt.c (gfc_trans_simple_do): New function.
[official-gcc.git] / libiberty / spaces.c
blobbfead7ed7a4aebd3bccc2a411e9e0e018cb426be
1 /* Allocate memory region filled with spaces.
2 Copyright (C) 1991 Free Software Foundation, Inc.
4 This file is part of the libiberty library.
5 Libiberty is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
10 Libiberty is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with libiberty; see the file COPYING.LIB. If
17 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
22 @deftypefn Extension char* spaces (int @var{count})
24 Returns a pointer to a memory region filled with the specified
25 number of spaces and null terminated. The returned pointer is
26 valid until at least the next call.
28 @end deftypefn
32 #include "ansidecl.h"
33 #include "libiberty.h"
35 #if VMS
36 #include <stdlib.h>
37 #include <unixlib.h>
38 #else
39 /* For systems with larger pointers than ints, these must be declared. */
40 extern PTR malloc PARAMS ((size_t));
41 extern void free PARAMS ((PTR));
42 #endif
44 const char *
45 spaces (count)
46 int count;
48 register char *t;
49 static char *buf;
50 static int maxsize;
52 if (count > maxsize)
54 if (buf)
56 free (buf);
58 buf = malloc (count + 1);
59 if (buf == (char *) 0)
60 return 0;
61 for (t = buf + count ; t != buf ; )
63 *--t = ' ';
65 maxsize = count;
66 buf[count] = '\0';
68 return (const char *) (buf + maxsize - count);