* gengtype.c: Add comments before all the routines.
From-SVN: r54329
This commit is contained in:
Geoffrey Keating
Geoffrey Keating
parent
3fa1b44830
commit
9f313342b1
|
|
@ -1,3 +1,7 @@
|
|||
2002-06-06 Geoffrey Keating <geoffk@redhat.com>
|
||||
|
||||
* gengtype.c: Add comments before all the routines.
|
||||
|
||||
2002-06-07 Jason Thorpe <thorpej@wasabisystems.com>
|
||||
|
||||
* config.gcc (sh5*-*-netbsd*): Remove sh/t-netbsd-sh5-32
|
||||
|
|
|
|||
108
gcc/gengtype.c
108
gcc/gengtype.c
|
|
@ -23,7 +23,11 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|||
#include <ctype.h>
|
||||
#include "gengtype.h"
|
||||
|
||||
/* Nonzero iff an error has occurred. */
|
||||
static int hit_error = 0;
|
||||
|
||||
/* Report an error at POS, printing MSG. */
|
||||
|
||||
void
|
||||
error_at_line VPARAMS ((struct fileloc *pos, const char *msg, ...))
|
||||
{
|
||||
|
|
@ -39,16 +43,22 @@ error_at_line VPARAMS ((struct fileloc *pos, const char *msg, ...))
|
|||
VA_CLOSE (ap);
|
||||
}
|
||||
|
||||
/* The one and only TYPE_STRING. */
|
||||
|
||||
struct type string_type = {
|
||||
TYPE_STRING, NULL, NULL, GC_USED
|
||||
UNION_INIT_ZERO
|
||||
};
|
||||
|
||||
/* Lists of various things. */
|
||||
|
||||
static pair_p typedefs;
|
||||
static type_p structures;
|
||||
static type_p param_structs;
|
||||
static pair_p variables;
|
||||
|
||||
/* Define S as a typedef to T at POS. */
|
||||
|
||||
void
|
||||
do_typedef (s, t, pos)
|
||||
const char *s;
|
||||
|
|
@ -76,6 +86,8 @@ do_typedef (s, t, pos)
|
|||
typedefs = p;
|
||||
}
|
||||
|
||||
/* Return the type previously defined for S. Use POS to report errors. */
|
||||
|
||||
type_p
|
||||
resolve_typedef (s, pos)
|
||||
const char *s;
|
||||
|
|
@ -89,6 +101,9 @@ resolve_typedef (s, pos)
|
|||
return create_scalar_type ("char", 4);
|
||||
}
|
||||
|
||||
/* Create a new structure with tag NAME (or a union iff ISUNION is nonzero),
|
||||
at POS with fields FIELDS and options O. */
|
||||
|
||||
void
|
||||
new_structure (name, isunion, pos, fields, o)
|
||||
const char *name;
|
||||
|
|
@ -163,6 +178,10 @@ new_structure (name, isunion, pos, fields, o)
|
|||
s->u.s.lang_struct->u.s.bitmap |= bitmap;
|
||||
}
|
||||
|
||||
/* Return the previously-defined structure with tag NAME (or a union
|
||||
iff ISUNION is nonzero), or a new empty structure or union if none
|
||||
was defined previously. */
|
||||
|
||||
type_p
|
||||
find_structure (name, isunion)
|
||||
const char *name;
|
||||
|
|
@ -184,6 +203,8 @@ find_structure (name, isunion)
|
|||
return s;
|
||||
}
|
||||
|
||||
/* Return a scalar type with name NAME. */
|
||||
|
||||
type_p
|
||||
create_scalar_type (name, name_len)
|
||||
const char *name;
|
||||
|
|
@ -195,6 +216,8 @@ create_scalar_type (name, name_len)
|
|||
return r;
|
||||
}
|
||||
|
||||
/* Return a pointer to T. */
|
||||
|
||||
type_p
|
||||
create_pointer (t)
|
||||
type_p t;
|
||||
|
|
@ -209,6 +232,8 @@ create_pointer (t)
|
|||
return t->pointer_to;
|
||||
}
|
||||
|
||||
/* Return an array of length LEN. */
|
||||
|
||||
type_p
|
||||
create_array (t, len)
|
||||
type_p t;
|
||||
|
|
@ -223,6 +248,15 @@ create_array (t, len)
|
|||
return v;
|
||||
}
|
||||
|
||||
/* Perform any special processing on a type T, about to become the type
|
||||
of a field. Return the appropriate type for the field.
|
||||
At present:
|
||||
- Converts pointer-to-char, with no length parameter, to TYPE_STRING;
|
||||
- Similarly for arrays of pointer-to-char;
|
||||
- Converts structures for which a parameter is provided to
|
||||
TYPE_PARAM_STRUCT.
|
||||
*/
|
||||
|
||||
type_p
|
||||
adjust_field_type (t, opt)
|
||||
type_p t;
|
||||
|
|
@ -269,6 +303,9 @@ adjust_field_type (t, opt)
|
|||
return t;
|
||||
}
|
||||
|
||||
/* Add a variable named S of type T with options O defined at POS,
|
||||
to `variables'. */
|
||||
|
||||
void
|
||||
note_variable (s, t, o, pos)
|
||||
const char *s;
|
||||
|
|
@ -286,6 +323,10 @@ note_variable (s, t, o, pos)
|
|||
variables = n;
|
||||
}
|
||||
|
||||
/* Create a union for YYSTYPE, as yacc would do it, given a fieldlist FIELDS
|
||||
and information about the correspondance between token types and fields
|
||||
in TYPEINFO. POS is used for error messages. */
|
||||
|
||||
void
|
||||
note_yacc_type (o, fields, typeinfo, pos)
|
||||
options_p o;
|
||||
|
|
@ -350,6 +391,8 @@ static void process_gc_options PARAMS ((options_p, enum gc_used_enum, int *));
|
|||
static void set_gc_used_type PARAMS ((type_p, enum gc_used_enum));
|
||||
static void set_gc_used PARAMS ((pair_p));
|
||||
|
||||
/* Handle OPT for set_gc_used_type. */
|
||||
|
||||
static void
|
||||
process_gc_options (opt, level, maybe_undef)
|
||||
options_p opt;
|
||||
|
|
@ -364,6 +407,8 @@ process_gc_options (opt, level, maybe_undef)
|
|||
*maybe_undef = 1;
|
||||
}
|
||||
|
||||
/* Set the gc_used field of T to LEVEL, and handle the types it references. */
|
||||
|
||||
static void
|
||||
set_gc_used_type (t, level)
|
||||
type_p t;
|
||||
|
|
@ -420,6 +465,8 @@ set_gc_used_type (t, level)
|
|||
}
|
||||
}
|
||||
|
||||
/* Set the gc_used fileds of all the types pointed to by VARIABLES. */
|
||||
|
||||
static void
|
||||
set_gc_used (variables)
|
||||
pair_p variables;
|
||||
|
|
@ -442,7 +489,13 @@ struct filemap {
|
|||
FILE *output;
|
||||
};
|
||||
|
||||
/* The list of output files. */
|
||||
|
||||
static filemap_p files;
|
||||
|
||||
/* The output header file that is included into pretty much every
|
||||
source file. */
|
||||
|
||||
FILE * header_file;
|
||||
|
||||
enum {
|
||||
|
|
@ -459,6 +512,8 @@ FILE *base_files[NUM_BASE_FILES];
|
|||
static FILE * create_file PARAMS ((const char *));
|
||||
static const char * get_file_basename PARAMS ((const char *));
|
||||
|
||||
/* Create and return a FILE* for a new header file to be called NAME. */
|
||||
|
||||
static FILE *
|
||||
create_file (name)
|
||||
const char *name;
|
||||
|
|
@ -500,6 +555,8 @@ create_file (name)
|
|||
return f;
|
||||
}
|
||||
|
||||
/* Open the global header file and the language-specific header files. */
|
||||
|
||||
static void
|
||||
open_base_files (void)
|
||||
{
|
||||
|
|
@ -526,6 +583,8 @@ open_base_files (void)
|
|||
#define startswith(len, c, s) \
|
||||
((size_t)(len) >= strlen (s) && memcmp (c, s, strlen (s)) == 0)
|
||||
|
||||
/* Determine the pathname to F relative to $(srcdir). */
|
||||
|
||||
static const char *
|
||||
get_file_basename (f)
|
||||
const char *f;
|
||||
|
|
@ -554,6 +613,14 @@ get_file_basename (f)
|
|||
return basename;
|
||||
}
|
||||
|
||||
/* Return a bitmap which has bit `1 << BASE_FILE_<lang>' set iff
|
||||
INPUT_FILE is used by <lang>.
|
||||
|
||||
This function should be written to assume that a file _is_ used
|
||||
if the situation is unclear. If it wrongly assumes a file _is_ used,
|
||||
a linker error will result. If it wrongly assumes a file _is not_ used,
|
||||
some GC roots may be missed, which is a much harder-to-debug problem. */
|
||||
|
||||
unsigned
|
||||
get_base_file_bitmap (input_file)
|
||||
const char *input_file;
|
||||
|
|
@ -584,6 +651,10 @@ get_base_file_bitmap (input_file)
|
|||
abort ();
|
||||
}
|
||||
|
||||
/* An output file, suitable for definitions, that can see declarations
|
||||
made in INPUT_FILE and is linked into every language that uses
|
||||
INPUT_FILE. */
|
||||
|
||||
FILE *
|
||||
get_output_file_with_visibility (input_file)
|
||||
const char *input_file;
|
||||
|
|
@ -681,6 +752,10 @@ get_output_file_with_visibility (input_file)
|
|||
return fm->output;
|
||||
}
|
||||
|
||||
/* The name of an output file, suitable for definitions, that can see
|
||||
declarations made in INPUT_FILE and is linked into every language
|
||||
that uses INPUT_FILE. */
|
||||
|
||||
const char *
|
||||
get_output_file_name (input_file)
|
||||
const char *input_file;
|
||||
|
|
@ -694,6 +769,9 @@ get_output_file_name (input_file)
|
|||
return get_output_file_name (input_file);
|
||||
}
|
||||
|
||||
/* Close all output files and copy them to their final destinations,
|
||||
but don't unnecessarily change modification times. */
|
||||
|
||||
static void
|
||||
close_output_files PARAMS ((void))
|
||||
{
|
||||
|
|
@ -786,6 +864,10 @@ static void write_gc_roots PARAMS ((pair_p));
|
|||
|
||||
static int gc_counter;
|
||||
|
||||
/* Print PARAM to OF processing escapes. VAL references the current object,
|
||||
PREV_VAL the object containing the current object, ONAME is the name
|
||||
of the option and LINE is used to print error messages. */
|
||||
|
||||
static void
|
||||
output_escaped_param (of, param, val, prev_val, oname, line)
|
||||
FILE *of;
|
||||
|
|
@ -811,6 +893,13 @@ output_escaped_param (of, param, val, prev_val, oname, line)
|
|||
oname, '%', *p);
|
||||
}
|
||||
|
||||
/* Write out code to OF which marks the fields of S. VAL references
|
||||
the current object, PREV_VAL the object containing the current
|
||||
object, OPTS is a list of options to apply, INDENT is the current
|
||||
indentation level, LINE is used to print error messages, BITMAP
|
||||
indicates which languages to print the structure for, and PARAM is
|
||||
the current parameter (from an enclosing param_is option). */
|
||||
|
||||
static void
|
||||
write_gc_structure_fields (of, s, val, prev_val, opts, indent, line, bitmap,
|
||||
param)
|
||||
|
|
@ -1195,6 +1284,9 @@ write_gc_structure_fields (of, s, val, prev_val, opts, indent, line, bitmap,
|
|||
}
|
||||
}
|
||||
|
||||
/* Write out a marker routine for S. PARAM is the parameter from an
|
||||
enclosing PARAM_IS option. */
|
||||
|
||||
static void
|
||||
write_gc_marker_routine_for_structure (s, param)
|
||||
type_p s;
|
||||
|
|
@ -1228,7 +1320,8 @@ write_gc_marker_routine_for_structure (s, param)
|
|||
|
||||
fputs ("}\n", f);
|
||||
}
|
||||
|
||||
|
||||
/* Write out marker routines for STRUCTURES and PARAM_STRUCTS. */
|
||||
|
||||
static void
|
||||
write_gc_types (structures, param_structs)
|
||||
|
|
@ -1333,6 +1426,8 @@ write_gc_types (structures, param_structs)
|
|||
}
|
||||
}
|
||||
|
||||
/* Mangle FN and print it to F. */
|
||||
|
||||
static void
|
||||
put_mangled_filename (f, fn)
|
||||
FILE *f;
|
||||
|
|
@ -1346,6 +1441,10 @@ put_mangled_filename (f, fn)
|
|||
fputc ('_', f);
|
||||
}
|
||||
|
||||
/* Finish off the currently-created root tables in FLP. PFX, TNAME,
|
||||
LASTNAME, and NAME are all strings to insert in various places in
|
||||
the resulting code. */
|
||||
|
||||
static void
|
||||
finish_root_table (flp, pfx, lastname, tname, name)
|
||||
struct flist *flp;
|
||||
|
|
@ -1418,6 +1517,11 @@ finish_root_table (flp, pfx, lastname, tname, name)
|
|||
}
|
||||
}
|
||||
|
||||
/* Write out to F the table entry and any marker routines needed to
|
||||
mark NAME as TYPE. The original variable is V, at LINE.
|
||||
HAS_LENGTH is nonzero iff V was a variable-length array. IF_MARKED
|
||||
is nonzero iff we are building the root table for hash table caches. */
|
||||
|
||||
static void
|
||||
write_gc_root (f, v, type, name, has_length, line, if_marked)
|
||||
FILE *f;
|
||||
|
|
@ -1573,6 +1677,8 @@ write_gc_root (f, v, type, name, has_length, line, if_marked)
|
|||
}
|
||||
}
|
||||
|
||||
/* Output a table describing the locations and types of VARIABLES. */
|
||||
|
||||
static void
|
||||
write_gc_roots (variables)
|
||||
pair_p variables;
|
||||
|
|
|
|||
Loading…
Reference in New Issue