diff options
author | Zack Weinberg <zack@gcc.gnu.org> | 2004-05-18 01:26:21 +0000 |
---|---|---|
committer | Zack Weinberg <zack@gcc.gnu.org> | 2004-05-18 01:26:21 +0000 |
commit | b4117c306105c7e3279bbbabab1dd361a3b35b62 (patch) | |
tree | 50453d3a085029670f5bc4d0cbb0ea22590d6769 /gcc/f/sts.c | |
parent | 54b4ba60f20d3870a79467caa3b604971225d388 (diff) | |
download | gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.zip gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.tar.gz gcc-b4117c306105c7e3279bbbabab1dd361a3b35b62.tar.bz2 |
Makefile.def, [...]: Remove all mention of libf2c.
top:
* Makefile.def, Makefile.tpl, configure.in: Remove all mention
of libf2c.
* configure, Makefile.in: Regenerate.
contrib:
* gcc_update: Remove gcc/f/intdoc.texi and all libf2c files
from list of files to be touched.
* convert_to_f2c, convert_to_g2c, download_f2c: Delete.
gcc:
* f: Entire directory removed
* c-common.h (CTI_G77_INTEGER_TYPE, CTI_G77_UINTEGER_TYPE)
(CTI_G77_LONGINT_TYPE, CTI_G77_ULONGINT_TYPE)
(g77_integer_type_node, g77_uinteger_type_node)
(g77_longint_type_node, or g77_ulongint_type_node): Delete.
* c-common.c (c_common_nodes_and_builtins): Do not initialize
the above set of variables.
* config/i386/uwin.h: No need to define WIN32_UWIN_TARGET.
* doc/invoke.texi, doc/standards.texi: Remove cross-references
to g77 manual.
gcc/po:
* exgettext (spec_error_string): Do not scan beyond the end of
the string for a close brace. Do not bail out at the first
incidence of %%e.
* gcc.pot: Regenerate.
From-SVN: r81967
Diffstat (limited to 'gcc/f/sts.c')
-rw-r--r-- | gcc/f/sts.c | 179 |
1 files changed, 0 insertions, 179 deletions
diff --git a/gcc/f/sts.c b/gcc/f/sts.c deleted file mode 100644 index 63bf77a..0000000 --- a/gcc/f/sts.c +++ /dev/null @@ -1,179 +0,0 @@ -/* sts.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. - - Related Modules: - None (despite the name, it doesn't really depend on ffest*) - - Description: - Provides an arbitrary-length string facility for the limited needs of - GNU Fortran FORMAT statement generation. - - Modifications: -*/ - -/* Include files. */ - -#include "proj.h" -#include "sts.h" -#include "com.h" -#include "malloc.h" - -/* Externals defined here. */ - - -/* Simple definitions and enumerations. */ - - -/* Internal typedefs. */ - - -/* Private include files. */ - - -/* Internal structure definitions. */ - - -/* Static objects accessed by functions in this module. */ - - -/* Static functions (internal). */ - - -/* Internal macros. */ - - -/* ffests_kill -- Kill a varying-length string - - ffests s; - ffests_kill(s); - - The storage associated with the string <s> is freed. */ - -void -ffests_kill (ffests s) -{ - if (s->text_ != NULL) - malloc_kill_ksr (s->pool_, s->text_, s->max_); -} - -/* ffests_new -- Make a varying-length string - - ffests s; - ffests_new(s,malloc_pool_image(),0); - - The string is initialized to hold, in this case, 0 characters, and - current and future heap manipulations to hold the string will use - the image pool. */ - -void -ffests_new (ffests s, mallocPool pool, ffestsLength size) -{ - s->pool_ = pool; - s->len_ = 0; - s->max_ = size; - - if (size == 0) - s->text_ = NULL; - else - s->text_ = malloc_new_ksr (pool, "ffests", size); -} - -/* ffests_printf -- printf ("...%ld...",(long)) to a string - - ffests s; - ffests_printf (s,"...%ld...",1); - - Like printf, but into a string. */ - -void -ffests_printf (ffests s, const char *ctl, ...) -{ - char *string; - va_list ap; - - va_start (ap, ctl); - if (vasprintf (&string, ctl, ap) == 0) - abort (); - va_end (ap); - ffests_puts (s, string); - free (string); -} - -/* ffests_putc -- Put a single character into string - - ffests s; - ffests_putc(s,'*'); */ - -void -ffests_putc (ffests s, char c) -{ - ffests_puttext (s, &c, 1); -} - -/* ffests_puts -- Put a zero-terminated (C-style) string into string - - ffests s; - ffests_puts(s,"append me"); */ - -void -ffests_puts (ffests s, const char *string) -{ - ffests_puttext (s, string, strlen (string)); -} - -/* ffests_puttext -- Put a number of characters into string - - ffests s; - ffests_puttext(s,"hi there",8); - - The string need not be 0-terminated, because the passed length is used, - and may be 0. */ - -void -ffests_puttext (ffests s, const char *text, ffestsLength length) -{ - ffestsLength newlen; - ffestsLength newmax; - - if (length <= 0) - return; - - newlen = s->len_ + length; - if (newlen > s->max_) - { - if (s->text_ == NULL) - { - s->max_ = 40; - s->text_ = malloc_new_ksr (s->pool_, "ffests", s->max_); - } - else - { - newmax = s->max_ << 1; - while (newmax < newlen) - newmax <<= 1; - s->text_ = malloc_resize_ksr (s->pool_, s->text_, newmax, s->max_); - s->max_ = newmax; - } - } - - memcpy (s->text_ + s->len_, text, length); - s->len_ = newlen; -} |