FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ansify.c (die): Specify void argument.

Browse source 
* ansify.c (die): Specify void argument.
        * intdoc.c (family_name, dumpgen, dumpspec, dumpimp,
        argument_info_ptr, argument_info_string, argument_name_ptr,
        argument_name_string, elaborate_if_complex,
        elaborate_if_maybe_complex, elaborate_if_real, print_type_string):
        Const-ify a char*.
        (main): Mark parameter `argv' with ATTRIBUTE_UNUSED.
        (_ffeintrin_name_, _ffeintrin_gen_, _ffeintrin_spec_,
        _ffeintrin_imp_, cc_pair, descriptions, summaries): Const-ify a char*.

From-SVN: r26243
This commit is contained in:
Kaveh R. Ghazi 1999-04-07 06:48:36 +00:00 • committed by Kaveh Ghazi
parent b9e4169910
commit 62218b2827
3 changed files with 58 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gcc/f/ChangeLog
View file

@ -1,3 +1,16 @@
Wed Apr 7 09:47:09 1999 Kaveh R. Ghazi <ghazi@snafu.rutgers.edu>
* ansify.c (die): Specify void argument.
* intdoc.c (family_name, dumpgen, dumpspec, dumpimp,
argument_info_ptr, argument_info_string, argument_name_ptr,
argument_name_string, elaborate_if_complex,
elaborate_if_maybe_complex, elaborate_if_real, print_type_string):
Const-ify a char*.
(main): Mark parameter `argv' with ATTRIBUTE_UNUSED.
(_ffeintrin_name_, _ffeintrin_gen_, _ffeintrin_spec_,
_ffeintrin_imp_, cc_pair, descriptions, summaries): Const-ify a char*.
Mon Apr 5 11:57:54 1999 Donn Terry (donn@interix.com) Mon Apr 5 11:57:54 1999 Donn Terry (donn@interix.com)
* Make-lang.in (HOST_CFLAGS): compute dynamically. * Make-lang.in (HOST_CFLAGS): compute dynamically.

2
gcc/f/ansify.c
View file

@ -51,7 +51,7 @@ typedef enum
while(0) while(0)
static void static void
die () die (void)
{ {
exit (1); exit (1);
} }

88
gcc/f/intdoc.c
View file

@ -46,30 +46,30 @@ typedef enum
#define FFEINTRIN_DOC 1 #define FFEINTRIN_DOC 1
#include "intrin.h" #include "intrin.h"
char *family_name (ffeintrinFamily family); const char *family_name (ffeintrinFamily family);
static void dumpif (ffeintrinFamily fam); static void dumpif (ffeintrinFamily fam);
static void dumpendif (void); static void dumpendif (void);
static void dumpclearif (void); static void dumpclearif (void);
static void dumpem (void); static void dumpem (void);
static void dumpgen (int menu, char *name, char *name_uc, static void dumpgen (int menu, const char *name, const char *name_uc,
ffeintrinGen gen); ffeintrinGen gen);
static void dumpspec (int menu, char *name, char *name_uc, static void dumpspec (int menu, const char *name, const char *name_uc,
ffeintrinSpec spec); ffeintrinSpec spec);
static void dumpimp (int menu, char *name, char *name_uc, size_t genno, ffeintrinFamily family, static void dumpimp (int menu, const char *name, const char *name_uc, size_t genno, ffeintrinFamily family,
ffeintrinImp imp, ffeintrinSpec spec); ffeintrinImp imp, ffeintrinSpec spec);
static char *argument_info_ptr (ffeintrinImp imp, int argno); static const char *argument_info_ptr (ffeintrinImp imp, int argno);
static char *argument_info_string (ffeintrinImp imp, int argno); static const char *argument_info_string (ffeintrinImp imp, int argno);
static char *argument_name_ptr (ffeintrinImp imp, int argno); static const char *argument_name_ptr (ffeintrinImp imp, int argno);
static char *argument_name_string (ffeintrinImp imp, int argno); static const char *argument_name_string (ffeintrinImp imp, int argno);
#if 0 #if 0
static char *elaborate_if_complex (ffeintrinImp imp, int argno); static const char *elaborate_if_complex (ffeintrinImp imp, int argno);
static char *elaborate_if_maybe_complex (ffeintrinImp imp, int argno); static const char *elaborate_if_maybe_complex (ffeintrinImp imp, int argno);
static char *elaborate_if_real (ffeintrinImp imp, int argno); static const char *elaborate_if_real (ffeintrinImp imp, int argno);
#endif #endif
static void print_type_string (char *c); static void print_type_string (const char *c);
int int
main (int argc, char **argv) main (int argc, char **argv ATTRIBUTE_UNUSED)
{ {
if (argc != 1) if (argc != 1)
{ {
@ -86,22 +86,22 @@ Usage: intdoc > intdoc.texi\n\
struct _ffeintrin_name_ struct _ffeintrin_name_
{ {
char *name_uc; const char *name_uc;
char *name_lc; const char *name_lc;
char *name_ic; const char *name_ic;
ffeintrinGen generic; ffeintrinGen generic;
ffeintrinSpec specific; ffeintrinSpec specific;
}; };
struct _ffeintrin_gen_ struct _ffeintrin_gen_
{ {
char *name; /* Name as seen in program. */ const char *name; /* Name as seen in program. */
ffeintrinSpec specs[2]; ffeintrinSpec specs[2];
}; };
struct _ffeintrin_spec_ struct _ffeintrin_spec_
{ {
char *name; /* Uppercase name as seen in source code, const char *name; /* Uppercase name as seen in source code,
lowercase if no source name, "none" if no lowercase if no source name, "none" if no
name at all (NONE case). */ name at all (NONE case). */
bool is_actualarg; /* Ok to pass as actual arg if -pedantic. */ bool is_actualarg; /* Ok to pass as actual arg if -pedantic. */
@ -111,11 +111,11 @@ struct _ffeintrin_spec_
struct _ffeintrin_imp_ struct _ffeintrin_imp_
{ {
char *name; /* Name of implementation. */ const char *name; /* Name of implementation. */
#if 0 /* FFECOM_targetCURRENT == FFECOM_targetGCC */ #if 0 /* FFECOM_targetCURRENT == FFECOM_targetGCC */
ffecomGfrt gfrt; /* gfrt index in library. */ ffecomGfrt gfrt; /* gfrt index in library. */
#endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */ #endif /* FFECOM_targetCURRENT == FFECOM_targetGCC */
char *control; const char *control;
}; };
static struct _ffeintrin_name_ names[] = { static struct _ffeintrin_name_ names[] = {
@ -187,23 +187,23 @@ static struct _ffeintrin_spec_ specs[] = {
#undef DEFIMPY #undef DEFIMPY
}; };
struct cc_pair { ffeintrinImp imp; char *text; }; struct cc_pair { ffeintrinImp imp; const char *text; };
static char *descriptions[FFEINTRIN_imp] = { 0 }; static const char *descriptions[FFEINTRIN_imp] = { 0 };
static struct cc_pair cc_descriptions[] = { static struct cc_pair cc_descriptions[] = {
#define DEFDOC(IMP,SUMMARY,DESCRIPTION) { FFEINTRIN_imp ## IMP, DESCRIPTION }, #define DEFDOC(IMP,SUMMARY,DESCRIPTION) { FFEINTRIN_imp ## IMP, DESCRIPTION },
#include "intdoc.h0" #include "intdoc.h0"
#undef DEFDOC #undef DEFDOC
}; };
static char *summaries[FFEINTRIN_imp] = { 0 }; static const char *summaries[FFEINTRIN_imp] = { 0 };
static struct cc_pair cc_summaries[] = { static struct cc_pair cc_summaries[] = {
#define DEFDOC(IMP,SUMMARY,DESCRIPTION) { FFEINTRIN_imp ## IMP, SUMMARY }, #define DEFDOC(IMP,SUMMARY,DESCRIPTION) { FFEINTRIN_imp ## IMP, SUMMARY },
#include "intdoc.h0" #include "intdoc.h0"
#undef DEFDOC #undef DEFDOC
}; };
char * const char *
family_name (ffeintrinFamily family) family_name (ffeintrinFamily family)
{ {
switch (family) switch (family)
@ -324,7 +324,7 @@ dumpem ()
} }
static void static void
dumpgen (int menu, char *name, char *name_uc, ffeintrinGen gen) dumpgen (int menu, const char *name, const char *name_uc, ffeintrinGen gen)
{ {
size_t i; size_t i;
int total = 0; int total = 0;
@ -377,7 +377,7 @@ For information on other intrinsics with the same name:\n");
} }
static void static void
dumpspec (int menu, char *name, char *name_uc, ffeintrinSpec spec) dumpspec (int menu, const char *name, const char *name_uc, ffeintrinSpec spec)
{ {
dumpif (specs[spec].family); dumpif (specs[spec].family);
dumpimp (menu, name, name_uc, 0, specs[spec].family, specs[spec].implementation, dumpimp (menu, name, name_uc, 0, specs[spec].family, specs[spec].implementation,
@ -386,13 +386,13 @@ dumpspec (int menu, char *name, char *name_uc, ffeintrinSpec spec)
} }
static void static void
dumpimp (int menu, char *name, char *name_uc, size_t genno, ffeintrinFamily family, ffeintrinImp imp, dumpimp (int menu, const char *name, const char *name_uc, size_t genno,
ffeintrinSpec spec) ffeintrinFamily family, ffeintrinImp imp, ffeintrinSpec spec)
{ {
char *c; const char *c;
bool subr; bool subr;
char *argc; const char *argc;
char *argi; const char *argi;
int colon; int colon;
int argno; int argno;
@ -410,7 +410,7 @@ dumpimp (int menu, char *name, char *name_uc, size_t genno, ffeintrinFamily fami
|| (summaries[imp] != NULL)) || (summaries[imp] != NULL))
{ {
int spaces = INDENT_SUMMARY - 14 - strlen (name); int spaces = INDENT_SUMMARY - 14 - strlen (name);
char *c; const char *c;
if (spec != FFEINTRIN_specNONE) if (spec != FFEINTRIN_specNONE)
spaces -= (3 + strlen (specs[spec].name)); /* See XYZZY1 above */ spaces -= (3 + strlen (specs[spec].name)); /* See XYZZY1 above */
@ -520,8 +520,8 @@ external procedure.\n\
if (!subr) if (!subr)
{ {
int other_arg; int other_arg;
char *arg_string; const char *arg_string;
char *arg_info; const char *arg_info;
if ((c[colon + 1] >= '0') if ((c[colon + 1] >= '0')
&& (c[colon + 1] <= '9')) && (c[colon + 1] <= '9'))
@ -1030,7 +1030,7 @@ Intrinsic groups: ");
if (descriptions[imp] != NULL) if (descriptions[imp] != NULL)
{ {
char *c = descriptions[imp]; const char *c = descriptions[imp];
printf ("\ printf ("\
@noindent\n\ @noindent\n\
@ -1067,10 +1067,10 @@ Description:\n\
} }
} }
static char * static const char *
argument_info_ptr (ffeintrinImp imp, int argno) argument_info_ptr (ffeintrinImp imp, int argno)
{ {
char *c = imps[imp].control; const char *c = imps[imp].control;
static char arginfos[8][32]; static char arginfos[8][32];
static int argx = 0; static int argx = 0;
int i; int i;
@ -1110,20 +1110,20 @@ argument_info_ptr (ffeintrinImp imp, int argno)
return c; return c;
} }
static char * static const char *
argument_info_string (ffeintrinImp imp, int argno) argument_info_string (ffeintrinImp imp, int argno)
{ {
char *p; const char *p;
p = argument_info_ptr (imp, argno); p = argument_info_ptr (imp, argno);
assert (p != NULL); assert (p != NULL);
return p; return p;
} }
static char * static const char *
argument_name_ptr (ffeintrinImp imp, int argno) argument_name_ptr (ffeintrinImp imp, int argno)
{ {
char *c = imps[imp].control; const char *c = imps[imp].control;
static char argnames[8][32]; static char argnames[8][32];
static int argx = 0; static int argx = 0;
int i; int i;
@ -1159,10 +1159,10 @@ argument_name_ptr (ffeintrinImp imp, int argno)
return c; return c;
} }
static char * static const char *
argument_name_string (ffeintrinImp imp, int argno) argument_name_string (ffeintrinImp imp, int argno)
{ {
char *p; const char *p;
p = argument_name_ptr (imp, argno); p = argument_name_ptr (imp, argno);
assert (p != NULL); assert (p != NULL);
@ -1170,7 +1170,7 @@ argument_name_string (ffeintrinImp imp, int argno)
} }
static void static void
print_type_string (char *c) print_type_string (const char *c)
{ {
char basic = c[0]; char basic = c[0];
char kind = c[1]; char kind = c[1];