public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/modula-2] Tidyup of m2type.cc, m2decl.cc and other comments.
@ 2022-09-13 7:33 Gaius Mulley
0 siblings, 0 replies; only message in thread
From: Gaius Mulley @ 2022-09-13 7:33 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:d5e34c12f818aa29b435adec060271eb4d0736a9
commit d5e34c12f818aa29b435adec060271eb4d0736a9
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date: Tue Sep 13 08:32:42 2022 +0100
Tidyup of m2type.cc, m2decl.cc and other comments.
Removal of nop (m2block_begin_statement_list) function and
tidying up of many comments in m2type.cc and m2decl.cc.
gcc/m2/ChangeLog:
* gm2-gcc/m2type.cc: Many comments tidied up.
* gm2-gcc/m2decl.cc: Many comments tidied up.
* gm2-gcc/m2block.cc (begin_statement_list): Removed.
All references made to begin_statement_list are replaced by
its parameter.
* gm2-gcc/m2block.h (begin_statement_list): Removed.
Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Diff:
---
gcc/m2/config-lang.in | 3 +-
gcc/m2/gm2-gcc/m2block.cc | 71 ++++-----
gcc/m2/gm2-gcc/m2block.h | 1 -
gcc/m2/gm2-gcc/m2except.cc | 4 -
gcc/m2/gm2-gcc/m2statement.cc | 4 +-
gcc/m2/gm2-gcc/m2type.cc | 326 +++++++++++++++++++++---------------------
6 files changed, 195 insertions(+), 214 deletions(-)
diff --git a/gcc/m2/config-lang.in b/gcc/m2/config-lang.in
index 0c0581da666..cdba438d99d 100644
--- a/gcc/m2/config-lang.in
+++ b/gcc/m2/config-lang.in
@@ -32,8 +32,7 @@ stagestuff="gm2\$(exeext) cc1gm2\$(exeext) cc1gm2-cross\$(exeext)"
target_libs="target-libstdc++-v3 target-libgm2"
-# The Modula-2 frontend needs C++ (is this still true --fixme--)?
-# compiler during stage 1.
+# The Modula-2 frontend needs C++ compiler during stage 1.
lang_requires_boot_languages=c++
# Do not build by default.
diff --git a/gcc/m2/gm2-gcc/m2block.cc b/gcc/m2/gm2-gcc/m2block.cc
index 985e0fe7041..746aa67bdce 100644
--- a/gcc/m2/gm2-gcc/m2block.cc
+++ b/gcc/m2/gm2-gcc/m2block.cc
@@ -72,7 +72,7 @@ struct GTY (()) binding_level
same constants can be used in any scope. */
tree constants;
- /* A list of inner module initialisation functions. */
+ /* A list of inner module initialization functions. */
tree init_functions;
/* A list of types created by M2GCCDeclare prior to code generation
@@ -114,7 +114,7 @@ typedef struct stmt_tree_s *stmt_tree_t;
static location_t pending_location;
static int pending_statement = FALSE;
-/* assert_global_names - asserts that the global_binding_level->names
+/* assert_global_names asserts that the global_binding_level->names
can be chained. */
static void
@@ -126,7 +126,7 @@ assert_global_names (void)
p = TREE_CHAIN (p);
}
-/* lookupLabel - return label tree in current scope, otherwise
+/* lookupLabel return label tree in current scope, otherwise
NULL_TREE. */
static tree
@@ -144,7 +144,7 @@ lookupLabel (tree id)
return NULL_TREE;
}
-/* getLabel - return the label, name, or create a label, name in the
+/* getLabel return the label name or create a label name in the
current scope. */
tree
@@ -215,7 +215,7 @@ m2block_cur_stmt_list (void)
return *t;
}
-/* is_building_stmt_list - returns TRUE if we are building a
+/* is_building_stmt_list returns TRUE if we are building a
statement list. TRUE is returned if we are in a binding level and
a statement list is under construction. */
@@ -226,7 +226,7 @@ m2block_is_building_stmt_list (void)
return !vec_safe_is_empty (current_binding_level->m2_statements);
}
-/* push_statement_list - pushes the statement list, t, onto the
+/* push_statement_list pushes the statement list t onto the
current binding level. */
tree
@@ -237,7 +237,7 @@ m2block_push_statement_list (tree t)
return t;
}
-/* pop_statement_list - pops and returns a statement list from the
+/* pop_statement_list pops and returns a statement list from the
current binding level. */
tree
@@ -251,7 +251,7 @@ m2block_pop_statement_list (void)
}
}
-/* begin_statement_list - starts a tree statement. It pushes the
+/* begin_statement_list starts a tree statement. It pushes the
statement list and returns the list node. */
tree
@@ -260,19 +260,7 @@ m2block_begin_statement_list (void)
return alloc_stmt_list ();
}
-/* end_statement_list - returns the current statement tree. The
- current statement tree is popped from the statement stack and the
- list node is returned. */
-
-tree
-m2block_end_statement_list (tree t)
-{
- /* Should we do anything with, t? Specifically we may need to test
- for the presence of a label --fixme-- check this. */
- return t;
-}
-
-/* findLevel - returns the binding level associated with, fndecl, one
+/* findLevel returns the binding level associated with fndecl one
is created if there is no existing one on head_binding_level. */
static struct binding_level *
@@ -299,7 +287,7 @@ findLevel (tree fndecl)
return b;
}
-/* pushFunctionScope - push a binding level. */
+/* pushFunctionScope push a binding level. */
void
m2block_pushFunctionScope (tree fndecl)
@@ -369,7 +357,7 @@ m2block_popFunctionScope (void)
return fndecl;
}
-/* pushGlobalScope - push the global scope onto the binding level
+/* pushGlobalScope push the global scope onto the binding level
stack. There can only ever be one instance of the global binding
level on the stack. */
@@ -382,14 +370,14 @@ m2block_pushGlobalScope (void)
m2block_pushFunctionScope (NULL_TREE);
}
-/* popGlobalScope - pops the current binding level, it expects this
+/* popGlobalScope pops the current binding level, it expects this
binding level to be the global binding level. */
void
m2block_popGlobalScope (void)
{
ASSERT_CONDITION (
- current_binding_level->is_global); /* Expecting global scope. */
+ current_binding_level->is_global); /* Expecting global scope. */
ASSERT_CONDITION (current_binding_level == global_binding_level);
if (current_binding_level->count > 0)
@@ -406,7 +394,7 @@ m2block_popGlobalScope (void)
assert_global_names ();
}
-/* finishFunctionDecl - removes declarations from the current binding
+/* finishFunctionDecl removes declarations from the current binding
level and places them inside fndecl. The current binding level is
then able to be destroyed by a call to popFunctionScope.
@@ -466,7 +454,7 @@ m2block_finishFunctionDecl (location_t location, tree fndecl)
current_binding_level->decl = NULL_TREE;
}
-/* finishFunctionCode - adds cur_stmt_list to fndecl. The current
+/* finishFunctionCode adds cur_stmt_list to fndecl. The current
binding level is then able to be destroyed by a call to
popFunctionScope. The cur_stmt_list is appended to the
STATEMENT_LIST. */
@@ -479,7 +467,6 @@ m2block_finishFunctionCode (tree fndecl)
tree statements = m2block_pop_statement_list ();
tree_stmt_iterator i;
- statements = m2block_end_statement_list (statements);
ASSERT_CONDITION (DECL_SAVED_TREE (fndecl) != NULL_TREE);
bind_expr = DECL_SAVED_TREE (fndecl);
@@ -539,7 +526,7 @@ m2block_finishGlobals (void)
BLOCK_SUPERCONTEXT (block) = context;
}
-/* pushDecl - pushes a declaration onto the current binding level. */
+/* pushDecl pushes a declaration onto the current binding level. */
tree
m2block_pushDecl (tree decl)
@@ -561,7 +548,7 @@ m2block_pushDecl (tree decl)
return decl;
}
-/* includeDecl - pushes a declaration onto the current binding level
+/* includeDecl pushes a declaration onto the current binding level
providing it is not already present. */
void
@@ -575,7 +562,7 @@ m2block_includeDecl (tree decl)
m2block_pushDecl (decl);
}
-/* addDeclExpr - adds the DECL_EXPR node, t, to the statement list
+/* addDeclExpr adds the DECL_EXPR node t to the statement list
current_binding_level->decl. This allows us to order all
declarations at the beginning of the function. */
@@ -585,7 +572,7 @@ m2block_addDeclExpr (tree t)
append_to_statement_list_force (t, ¤t_binding_level->decl);
}
-/* RememberType - remember the type, t, in the ggc marked list. */
+/* RememberType remember the type t in the ggc marked list. */
tree
m2block_RememberType (tree t)
@@ -595,7 +582,7 @@ m2block_RememberType (tree t)
return t;
}
-/* global_constant - returns t. It chains, t, onto the
+/* global_constant returns t. It chains t onto the
global_binding_level list of constants, if it is not already
present. */
@@ -619,9 +606,9 @@ m2block_global_constant (tree t)
return t;
}
-/* RememberConstant - adds a tree, t, onto the list of constants to
+/* RememberConstant adds a tree t onto the list of constants to
be marked whenever the ggc re-marks all used storage. Constants
- live throughout the whole compilation - and they can be used by
+ live throughout the whole compilation and they can be used by
many different functions if necessary. */
tree
@@ -632,7 +619,7 @@ m2block_RememberConstant (tree t)
return t;
}
-/* DumpGlobalConstants - displays all global constants and checks
+/* DumpGlobalConstants displays all global constants and checks
none are poisoned. */
tree
@@ -647,7 +634,7 @@ m2block_DumpGlobalConstants (void)
return NULL_TREE;
}
-/* RememberInitModuleFunction - records tree, t, in the global
+/* RememberInitModuleFunction records tree t in the global
binding level. So that it will not be garbage collected. In
theory the inner modules could be placed inside the
current_binding_level I suspect. */
@@ -660,7 +647,7 @@ m2block_RememberInitModuleFunction (tree t)
return t;
}
-/* toplevel - return TRUE if we are in the global scope. */
+/* toplevel return TRUE if we are in the global scope. */
int
m2block_toplevel (void)
@@ -672,7 +659,7 @@ m2block_toplevel (void)
return FALSE;
}
-/* GetErrorNode - returns the gcc error_mark_node. */
+/* GetErrorNode returns the gcc error_mark_node. */
tree
m2block_GetErrorNode (void)
@@ -734,7 +721,7 @@ flush_pending_note (void)
}
}
-/* add_stmt - t is a statement. Add it to the statement-tree. */
+/* add_stmt t is a statement. Add it to the statement-tree. */
tree
m2block_add_stmt (location_t location, tree t)
@@ -749,7 +736,7 @@ m2block_add_stmt (location_t location, tree t)
return do_add_stmt (t);
}
-/* addStmtNote - remember this location represents the start of a
+/* addStmtNote remember this location represents the start of a
Modula-2 statement. It is flushed if another different location
is generated or another tree is given to add_stmt. */
@@ -769,7 +756,7 @@ m2block_removeStmtNote (void)
pending_statement = FALSE;
}
-/* init - initialise the data structures in this module. */
+/* init - initialize the data structures in this module. */
void
m2block_init (void)
diff --git a/gcc/m2/gm2-gcc/m2block.h b/gcc/m2/gm2-gcc/m2block.h
index 6ae72017a70..a44d8797b08 100644
--- a/gcc/m2/gm2-gcc/m2block.h
+++ b/gcc/m2/gm2-gcc/m2block.h
@@ -43,7 +43,6 @@ EXTERN void m2block_popGlobalScope (void);
EXTERN tree m2block_pushDecl (tree decl);
EXTERN void m2block_addDeclExpr (tree t);
-EXTERN tree m2block_end_statement_list (tree t);
EXTERN tree m2block_begin_statement_list (void);
EXTERN tree m2block_push_statement_list (tree t);
EXTERN tree m2block_pop_statement_list (void);
diff --git a/gcc/m2/gm2-gcc/m2except.cc b/gcc/m2/gm2-gcc/m2except.cc
index a91f42b3338..bc0f3a99076 100644
--- a/gcc/m2/gm2-gcc/m2except.cc
+++ b/gcc/m2/gm2-gcc/m2except.cc
@@ -475,8 +475,6 @@ void
m2except_BuildTryEnd (tree try_block)
{
TRY_STMTS (try_block) = m2block_pop_statement_list ();
- TRY_STMTS (try_block) = m2block_end_statement_list (TRY_STMTS (try_block));
-
TRY_HANDLERS (try_block) = m2block_begin_statement_list ();
/* Now ensure that all successive add_stmts adds to this statement
@@ -540,7 +538,6 @@ finish_handler (location_t location, tree handler)
m2assert_AssertLocation (location);
HANDLER_BODY (handler) = body;
- m2block_end_statement_list (HANDLER_BODY (handler));
HANDLER_BODY (handler) = build2 (TRY_FINALLY_EXPR, void_type_node, body,
do_end_catch (location));
}
@@ -566,7 +563,6 @@ static void
finish_handler_sequence (tree try_block)
{
TRY_HANDLERS (try_block) = m2block_pop_statement_list ();
- m2block_end_statement_list (TRY_HANDLERS (try_block));
}
/* Begin a try-block. Returns a newly-created TRY_BLOCK if
diff --git a/gcc/m2/gm2-gcc/m2statement.cc b/gcc/m2/gm2-gcc/m2statement.cc
index f05fe7f44e7..7462a83f2e5 100644
--- a/gcc/m2/gm2-gcc/m2statement.cc
+++ b/gcc/m2/gm2-gcc/m2statement.cc
@@ -934,7 +934,7 @@ m2statement_DoJump (location_t location, tree exp, char *falselabel,
m2statement_BuildGoto (location, falselabel);
c = build3 (COND_EXPR, void_type_node, exp,
- m2block_end_statement_list (m2block_pop_statement_list ()),
+ m2block_pop_statement_list (),
alloc_stmt_list ());
}
else if ((falselabel == NULL) && (truelabel != NULL))
@@ -943,7 +943,7 @@ m2statement_DoJump (location_t location, tree exp, char *falselabel,
m2statement_BuildGoto (location, truelabel);
c = build3 (COND_EXPR, void_type_node, exp,
- m2block_end_statement_list (m2block_pop_statement_list ()),
+ m2block_pop_statement_list (),
alloc_stmt_list ());
}
else
diff --git a/gcc/m2/gm2-gcc/m2type.cc b/gcc/m2/gm2-gcc/m2type.cc
index 4b299e0614c..5342033117b 100644
--- a/gcc/m2/gm2-gcc/m2type.cc
+++ b/gcc/m2/gm2-gcc/m2type.cc
@@ -118,8 +118,8 @@ static GTY (()) tree m2_complex128_type_node;
static GTY (()) tree m2_packed_boolean_type_node;
static GTY (()) tree m2_cardinal_address_type_node;
-/* gm2_canonicalize_array - returns a unique array node based on,
- index_type, and, type. */
+/* gm2_canonicalize_array - returns a unique array node based on
+ index_type and type. */
static tree
gm2_canonicalize_array (tree index_type, int type)
@@ -145,7 +145,7 @@ gm2_canonicalize_array (tree index_type, int type)
}
/* BuildStartArrayType - creates an array with an indextype and
- elttype. The front end symbol, type, is also passed to allow the
+ elttype. The front end symbol type is also passed to allow the
gccgm2 to return the canonical edition of the array type even if
the GCC elttype is NULL_TREE. */
@@ -171,7 +171,7 @@ m2type_BuildStartArrayType (tree index_type, tree elt_type, int type)
return t;
}
-/* PutArrayType - */
+/* PutArrayType assignes TREE_TYPE (array) to the skipped type. */
void
m2type_PutArrayType (tree array, tree type)
@@ -179,7 +179,7 @@ m2type_PutArrayType (tree array, tree type)
TREE_TYPE (array) = m2tree_skip_type_decl (type);
}
-/* gccgm2_GetArrayNoOfElements - returns the number of elements in,
+/* gccgm2_GetArrayNoOfElements returns the number of elements in
arraytype. */
tree
@@ -193,11 +193,11 @@ m2type_GetArrayNoOfElements (location_t location, tree arraytype)
return m2expr_FoldAndStrip (m2expr_BuildSub (location, max, min, FALSE));
}
-/* gm2_finish_build_array_type - complete building the partially
+/* gm2_finish_build_array_type complete building the partially
created array type, arrayType. The arrayType is now known to be
declared as: ARRAY index_type OF elt_type. There will only ever
be one gcc tree type for this array definition. The third
- parameter, type, is a front end type and this is necessary so that
+ parameter type is a front end type and this is necessary so that
the canonicalization creates unique array types for each type. */
static tree
@@ -226,7 +226,7 @@ gm2_finish_build_array_type (tree arrayType, tree elt_type, tree index_type,
return arrayType;
}
-/* BuildEndArrayType - returns a type which is an array indexed by
+/* BuildEndArrayType returns a type which is an array indexed by
IndexType and which has ElementType elements. */
tree
@@ -244,7 +244,7 @@ m2type_BuildEndArrayType (tree arraytype, tree elementtype, tree indextype,
arraytype, m2tree_skip_type_decl (elementtype), indextype, type);
}
-/* gm2_build_array_type - returns a type which is an array indexed by
+/* gm2_build_array_type returns a type which is an array indexed by
IndexType and which has ElementType elements. */
static tree
@@ -255,7 +255,7 @@ gm2_build_array_type (tree elementtype, tree indextype, int fetype)
}
/* ValueInTypeRange returns TRUE if the constant, value, lies within
- the range of, type. */
+ the range of type. */
int
m2type_ValueInTypeRange (tree type, tree value)
@@ -270,7 +270,7 @@ m2type_ValueInTypeRange (tree type, tree value)
}
/* ValueOutOfTypeRange returns TRUE if the constant, value, exceeds
- the range of, type. */
+ the range of type. */
int
m2type_ValueOutOfTypeRange (tree type, tree value)
@@ -278,7 +278,8 @@ m2type_ValueOutOfTypeRange (tree type, tree value)
return (!m2type_ValueInTypeRange (type, value));
}
-/* ExceedsTypeRange return TRUE if low or high exceed the range of, type. */
+/* ExceedsTypeRange return TRUE if low or high exceed the range of
+ type. */
int
m2type_ExceedsTypeRange (tree type, tree low, tree high)
@@ -287,8 +288,8 @@ m2type_ExceedsTypeRange (tree type, tree low, tree high)
|| m2type_ValueOutOfTypeRange (type, high));
}
-/* WithinTypeRange return TRUE if low and high are within the range of, type.
- */
+/* WithinTypeRange return TRUE if low and high are within the range
+ of type. */
int
m2type_WithinTypeRange (tree type, tree low, tree high)
@@ -297,7 +298,7 @@ m2type_WithinTypeRange (tree type, tree low, tree high)
&& m2type_ValueInTypeRange (type, high));
}
-/* BuildArrayIndexType - creates an integer index which accesses an
+/* BuildArrayIndexType creates an integer index which accesses an
array. low and high are the min, max elements of the array. GCC
insists we access an array with an integer indice. */
@@ -318,9 +319,9 @@ m2type_BuildArrayIndexType (tree low, tree high)
m2expr_FoldAndStrip (sizehigh));
}
-/* build_m2_type_node_by_array - builds a ISO Modula-2 word type from
- ARRAY [low..high] OF arrayType. this matches the front end data
- type, fetype, which is only used during canonicalization. */
+/* build_m2_type_node_by_array builds a ISO Modula-2 word type from
+ ARRAY [low..high] OF arrayType. This matches the front end data
+ type fetype which is only used during canonicalization. */
static tree
build_m2_type_node_by_array (tree arrayType, tree low, tree high, int fetype)
@@ -329,7 +330,7 @@ build_m2_type_node_by_array (tree arrayType, tree low, tree high, int fetype)
m2type_BuildArrayIndexType (low, high), fetype);
}
-/* build_m2_word16_type_node - build an ISO 16 bit word as an ARRAY
+/* build_m2_word16_type_node build an ISO 16 bit word as an ARRAY
[0..1] OF loc. */
static tree
@@ -340,7 +341,7 @@ build_m2_word16_type_node (location_t location, int loc)
m2expr_GetIntegerOne (location), loc);
}
-/* build_m2_word32_type_node - build an ISO 32 bit word as an ARRAY
+/* build_m2_word32_type_node build an ISO 32 bit word as an ARRAY
[0..3] OF loc. */
static tree
@@ -351,7 +352,7 @@ build_m2_word32_type_node (location_t location, int loc)
m2decl_BuildIntegerConstant (3), loc);
}
-/* build_m2_word64_type_node - build an ISO 32 bit word as an ARRAY
+/* build_m2_word64_type_node build an ISO 32 bit word as an ARRAY
[0..7] OF loc. */
static tree
@@ -362,7 +363,7 @@ build_m2_word64_type_node (location_t location, int loc)
m2decl_BuildIntegerConstant (7), loc);
}
-/* GetM2Complex32 - return the fixed size complex type. */
+/* GetM2Complex32 return the fixed size complex type. */
tree
m2type_GetM2Complex32 (void)
@@ -370,7 +371,7 @@ m2type_GetM2Complex32 (void)
return m2_complex32_type_node;
}
-/* GetM2Complex64 - return the fixed size complex type. */
+/* GetM2Complex64 return the fixed size complex type. */
tree
m2type_GetM2Complex64 (void)
@@ -378,7 +379,7 @@ m2type_GetM2Complex64 (void)
return m2_complex64_type_node;
}
-/* GetM2Complex96 - return the fixed size complex type. */
+/* GetM2Complex96 return the fixed size complex type. */
tree
m2type_GetM2Complex96 (void)
@@ -386,7 +387,7 @@ m2type_GetM2Complex96 (void)
return m2_complex96_type_node;
}
-/* GetM2Complex128 - return the fixed size complex type. */
+/* GetM2Complex128 return the fixed size complex type. */
tree
m2type_GetM2Complex128 (void)
@@ -394,7 +395,7 @@ m2type_GetM2Complex128 (void)
return m2_complex128_type_node;
}
-/* GetM2CType - a test function. */
+/* GetM2CType a test function. */
tree
m2type_GetM2CType (void)
@@ -402,7 +403,7 @@ m2type_GetM2CType (void)
return m2_c_type_node;
}
-/* GetM2ShortComplexType - return the short complex type. */
+/* GetM2ShortComplexType return the short complex type. */
tree
m2type_GetM2ShortComplexType (void)
@@ -410,7 +411,7 @@ m2type_GetM2ShortComplexType (void)
return m2_short_complex_type_node;
}
-/* GetM2LongComplexType - return the long complex type. */
+/* GetM2LongComplexType return the long complex type. */
tree
m2type_GetM2LongComplexType (void)
@@ -418,7 +419,7 @@ m2type_GetM2LongComplexType (void)
return m2_long_complex_type_node;
}
-/* GetM2ComplexType - return the complex type. */
+/* GetM2ComplexType return the complex type. */
tree
m2type_GetM2ComplexType (void)
@@ -426,7 +427,7 @@ m2type_GetM2ComplexType (void)
return m2_complex_type_node;
}
-/* GetM2Real128 - return the real 128 bit type. */
+/* GetM2Real128 return the real 128 bit type. */
tree
m2type_GetM2Real128 (void)
@@ -434,7 +435,7 @@ m2type_GetM2Real128 (void)
return m2_real128_type_node;
}
-/* GetM2Real96 - return the real 96 bit type. */
+/* GetM2Real96 return the real 96 bit type. */
tree
m2type_GetM2Real96 (void)
@@ -442,7 +443,7 @@ m2type_GetM2Real96 (void)
return m2_real96_type_node;
}
-/* GetM2Real64 - return the real 64 bit type. */
+/* GetM2Real64 return the real 64 bit type. */
tree
m2type_GetM2Real64 (void)
@@ -450,7 +451,7 @@ m2type_GetM2Real64 (void)
return m2_real64_type_node;
}
-/* GetM2Real32 - return the real 32 bit type. */
+/* GetM2Real32 return the real 32 bit type. */
tree
m2type_GetM2Real32 (void)
@@ -458,7 +459,7 @@ m2type_GetM2Real32 (void)
return m2_real32_type_node;
}
-/* GetM2Bitset32 - return the bitset 32 bit type. */
+/* GetM2Bitset32 return the bitset 32 bit type. */
tree
m2type_GetM2Bitset32 (void)
@@ -466,7 +467,7 @@ m2type_GetM2Bitset32 (void)
return m2_bitset32_type_node;
}
-/* GetM2Bitset16 - return the bitset 16 bit type. */
+/* GetM2Bitset16 return the bitset 16 bit type. */
tree
m2type_GetM2Bitset16 (void)
@@ -474,7 +475,7 @@ m2type_GetM2Bitset16 (void)
return m2_bitset16_type_node;
}
-/* GetM2Bitset8 - return the bitset 8 bit type. */
+/* GetM2Bitset8 return the bitset 8 bit type. */
tree
m2type_GetM2Bitset8 (void)
@@ -482,7 +483,7 @@ m2type_GetM2Bitset8 (void)
return m2_bitset8_type_node;
}
-/* GetM2Word64 - return the word 64 bit type. */
+/* GetM2Word64 return the word 64 bit type. */
tree
m2type_GetM2Word64 (void)
@@ -490,7 +491,7 @@ m2type_GetM2Word64 (void)
return m2_word64_type_node;
}
-/* GetM2Word32 - return the word 32 bit type. */
+/* GetM2Word32 return the word 32 bit type. */
tree
m2type_GetM2Word32 (void)
@@ -498,7 +499,7 @@ m2type_GetM2Word32 (void)
return m2_word32_type_node;
}
-/* GetM2Word16 - return the word 16 bit type. */
+/* GetM2Word16 return the word 16 bit type. */
tree
m2type_GetM2Word16 (void)
@@ -506,7 +507,7 @@ m2type_GetM2Word16 (void)
return m2_word16_type_node;
}
-/* GetM2Cardinal64 - return the cardinal 64 bit type. */
+/* GetM2Cardinal64 return the cardinal 64 bit type. */
tree
m2type_GetM2Cardinal64 (void)
@@ -514,7 +515,7 @@ m2type_GetM2Cardinal64 (void)
return m2_cardinal64_type_node;
}
-/* GetM2Cardinal32 - return the cardinal 32 bit type. */
+/* GetM2Cardinal32 return the cardinal 32 bit type. */
tree
m2type_GetM2Cardinal32 (void)
@@ -522,7 +523,7 @@ m2type_GetM2Cardinal32 (void)
return m2_cardinal32_type_node;
}
-/* GetM2Cardinal16 - return the cardinal 16 bit type. */
+/* GetM2Cardinal16 return the cardinal 16 bit type. */
tree
m2type_GetM2Cardinal16 (void)
@@ -530,7 +531,7 @@ m2type_GetM2Cardinal16 (void)
return m2_cardinal16_type_node;
}
-/* GetM2Cardinal8 - return the cardinal 8 bit type. */
+/* GetM2Cardinal8 return the cardinal 8 bit type. */
tree
m2type_GetM2Cardinal8 (void)
@@ -538,7 +539,7 @@ m2type_GetM2Cardinal8 (void)
return m2_cardinal8_type_node;
}
-/* GetM2Integer64 - return the integer 64 bit type. */
+/* GetM2Integer64 return the integer 64 bit type. */
tree
m2type_GetM2Integer64 (void)
@@ -546,7 +547,7 @@ m2type_GetM2Integer64 (void)
return m2_integer64_type_node;
}
-/* GetM2Integer32 - return the integer 32 bit type. */
+/* GetM2Integer32 return the integer 32 bit type. */
tree
m2type_GetM2Integer32 (void)
@@ -554,7 +555,7 @@ m2type_GetM2Integer32 (void)
return m2_integer32_type_node;
}
-/* GetM2Integer16 - return the integer 16 bit type. */
+/* GetM2Integer16 return the integer 16 bit type. */
tree
m2type_GetM2Integer16 (void)
@@ -562,7 +563,7 @@ m2type_GetM2Integer16 (void)
return m2_integer16_type_node;
}
-/* GetM2Integer8 - return the integer 8 bit type. */
+/* GetM2Integer8 return the integer 8 bit type. */
tree
m2type_GetM2Integer8 (void)
@@ -570,7 +571,7 @@ m2type_GetM2Integer8 (void)
return m2_integer8_type_node;
}
-/* GetM2RType - return the ISO R data type, the longest real
+/* GetM2RType return the ISO R data type, the longest real
datatype. */
tree
@@ -579,7 +580,7 @@ m2type_GetM2RType (void)
return long_double_type_node;
}
-/* GetM2ZType - return the ISO Z data type, the longest int datatype. */
+/* GetM2ZType return the ISO Z data type, the longest int datatype. */
tree
m2type_GetM2ZType (void)
@@ -587,7 +588,7 @@ m2type_GetM2ZType (void)
return m2_z_type_node;
}
-/* GetShortCardType - return the C short unsigned data type. */
+/* GetShortCardType return the C short unsigned data type. */
tree
m2type_GetShortCardType (void)
@@ -595,7 +596,7 @@ m2type_GetShortCardType (void)
return short_unsigned_type_node;
}
-/* GetM2ShortCardType - return the m2 short cardinal data type. */
+/* GetM2ShortCardType return the m2 short cardinal data type. */
tree
m2type_GetM2ShortCardType (void)
@@ -603,7 +604,7 @@ m2type_GetM2ShortCardType (void)
return m2_short_card_type_node;
}
-/* GetShortIntType - return the C short int data type. */
+/* GetShortIntType return the C short int data type. */
tree
m2type_GetShortIntType (void)
@@ -611,7 +612,7 @@ m2type_GetShortIntType (void)
return short_integer_type_node;
}
-/* GetM2ShortIntType - return the m2 short integer data type. */
+/* GetM2ShortIntType return the m2 short integer data type. */
tree
m2type_GetM2ShortIntType (void)
@@ -619,7 +620,7 @@ m2type_GetM2ShortIntType (void)
return m2_short_int_type_node;
}
-/* GetM2LongCardType - return the m2 long cardinal data type. */
+/* GetM2LongCardType return the m2 long cardinal data type. */
tree
m2type_GetM2LongCardType (void)
@@ -627,7 +628,7 @@ m2type_GetM2LongCardType (void)
return m2_long_card_type_node;
}
-/* GetM2LongIntType - return the m2 long integer data type. */
+/* GetM2LongIntType return the m2 long integer data type. */
tree
m2type_GetM2LongIntType (void)
@@ -635,7 +636,7 @@ m2type_GetM2LongIntType (void)
return m2_long_int_type_node;
}
-/* GetM2LongRealType - return the m2 long real data type. */
+/* GetM2LongRealType return the m2 long real data type. */
tree
m2type_GetM2LongRealType (void)
@@ -643,7 +644,7 @@ m2type_GetM2LongRealType (void)
return m2_long_real_type_node;
}
-/* GetM2RealType - return the m2 real data type. */
+/* GetM2RealType return the m2 real data type. */
tree
m2type_GetM2RealType (void)
@@ -651,7 +652,7 @@ m2type_GetM2RealType (void)
return m2_real_type_node;
}
-/* GetM2ShortRealType - return the m2 short real data type. */
+/* GetM2ShortRealType return the m2 short real data type. */
tree
m2type_GetM2ShortRealType (void)
@@ -659,7 +660,7 @@ m2type_GetM2ShortRealType (void)
return m2_short_real_type_node;
}
-/* GetM2CardinalType - return the m2 cardinal data type. */
+/* GetM2CardinalType return the m2 cardinal data type. */
tree
m2type_GetM2CardinalType (void)
@@ -667,7 +668,7 @@ m2type_GetM2CardinalType (void)
return m2_cardinal_type_node;
}
-/* GetM2IntegerType - return the m2 integer data type. */
+/* GetM2IntegerType return the m2 integer data type. */
tree
m2type_GetM2IntegerType (void)
@@ -675,7 +676,7 @@ m2type_GetM2IntegerType (void)
return m2_integer_type_node;
}
-/* GetM2CharType - return the m2 char data type. */
+/* GetM2CharType return the m2 char data type. */
tree
m2type_GetM2CharType (void)
@@ -683,7 +684,7 @@ m2type_GetM2CharType (void)
return m2_char_type_node;
}
-/* GetProcType - return the m2 proc data type. */
+/* GetProcType return the m2 proc data type. */
tree
m2type_GetProcType (void)
@@ -691,7 +692,7 @@ m2type_GetProcType (void)
return proc_type_node;
}
-/* GetISOWordType - return the m2 iso word data type. */
+/* GetISOWordType return the m2 iso word data type. */
tree
m2type_GetISOWordType (void)
@@ -699,7 +700,7 @@ m2type_GetISOWordType (void)
return m2_iso_word_type_node;
}
-/* GetISOByteType - return the m2 iso byte data type. */
+/* GetISOByteType return the m2 iso byte data type. */
tree
m2type_GetISOByteType (void)
@@ -707,7 +708,7 @@ m2type_GetISOByteType (void)
return m2_iso_byte_type_node;
}
-/* GetISOLocType - return the m2 loc word data type. */
+/* GetISOLocType return the m2 loc word data type. */
tree
m2type_GetISOLocType (void)
@@ -715,7 +716,7 @@ m2type_GetISOLocType (void)
return m2_iso_loc_type_node;
}
-/* GetWordType - return the C unsigned data type. */
+/* GetWordType return the C unsigned data type. */
tree
m2type_GetWordType (void)
@@ -723,7 +724,7 @@ m2type_GetWordType (void)
return unsigned_type_node;
}
-/* GetLongIntType - return the C long int data type. */
+/* GetLongIntType return the C long int data type. */
tree
m2type_GetLongIntType (void)
@@ -731,7 +732,7 @@ m2type_GetLongIntType (void)
return long_integer_type_node;
}
-/* GetShortRealType - return the C float data type. */
+/* GetShortRealType return the C float data type. */
tree
m2type_GetShortRealType (void)
@@ -739,7 +740,7 @@ m2type_GetShortRealType (void)
return float_type_node;
}
-/* GetLongRealType - return the C long double data type. */
+/* GetLongRealType return the C long double data type. */
tree
m2type_GetLongRealType (void)
@@ -747,7 +748,7 @@ m2type_GetLongRealType (void)
return long_double_type_node;
}
-/* GetRealType - returns the C double_type_node. */
+/* GetRealType returns the C double_type_node. */
tree
m2type_GetRealType (void)
@@ -755,7 +756,7 @@ m2type_GetRealType (void)
return double_type_node;
}
-/* GetBitnumType - return the ISO bitnum type. */
+/* GetBitnumType return the ISO bitnum type. */
tree
m2type_GetBitnumType (void)
@@ -763,7 +764,7 @@ m2type_GetBitnumType (void)
return bitnum_type_node;
}
-/* GetBitsetType - return the bitset type. */
+/* GetBitsetType return the bitset type. */
tree
m2type_GetBitsetType (void)
@@ -771,7 +772,7 @@ m2type_GetBitsetType (void)
return bitset_type_node;
}
-/* GetCardinalType - return the cardinal type. */
+/* GetCardinalType return the cardinal type. */
tree
m2type_GetCardinalType (void)
@@ -779,7 +780,7 @@ m2type_GetCardinalType (void)
return unsigned_type_node;
}
-/* GetPointerType - return the GCC ptr type node. Equivalent to
+/* GetPointerType return the GCC ptr type node. Equivalent to
(void *). */
tree
@@ -788,7 +789,7 @@ m2type_GetPointerType (void)
return ptr_type_node;
}
-/* GetVoidType - return the C void type. */
+/* GetVoidType return the C void type. */
tree
m2type_GetVoidType (void)
@@ -796,7 +797,7 @@ m2type_GetVoidType (void)
return void_type_node;
}
-/* GetByteType - return the byte type node. */
+/* GetByteType return the byte type node. */
tree
m2type_GetByteType (void)
@@ -804,7 +805,7 @@ m2type_GetByteType (void)
return unsigned_char_type_node;
}
-/* GetCharType - return the char type node. */
+/* GetCharType return the char type node. */
tree
m2type_GetCharType (void)
@@ -812,7 +813,7 @@ m2type_GetCharType (void)
return char_type_node;
}
-/* GetIntegerType - return the integer type node. */
+/* GetIntegerType return the integer type node. */
tree
m2type_GetIntegerType (void)
@@ -820,7 +821,7 @@ m2type_GetIntegerType (void)
return integer_type_node;
}
-/* GetCSizeTType - return a type representing, size_t on this system. */
+/* GetCSizeTType return a type representing, size_t on this system. */
tree
m2type_GetCSizeTType (void)
@@ -828,7 +829,7 @@ m2type_GetCSizeTType (void)
return sizetype;
}
-/* GetCSSizeTType - return a type representing, size_t on this
+/* GetCSSizeTType return a type representing, size_t on this
system. */
tree
@@ -837,7 +838,7 @@ m2type_GetCSSizeTType (void)
return ssizetype;
}
-/* GetPackedBooleanType - return the packed boolean data type node. */
+/* GetPackedBooleanType return the packed boolean data type node. */
tree
m2type_GetPackedBooleanType (void)
@@ -845,7 +846,7 @@ m2type_GetPackedBooleanType (void)
return m2_packed_boolean_type_node;
}
-/* GetBooleanTrue - */
+/* GetBooleanTrue return modula-2 TRUE. */
tree
m2type_GetBooleanTrue (void)
@@ -857,7 +858,7 @@ m2type_GetBooleanTrue (void)
#endif /* !USE_BOOLEAN */
}
-/* GetBooleanFalse - */
+/* GetBooleanFalse return modula-2 FALSE. */
tree
m2type_GetBooleanFalse (void)
@@ -869,7 +870,7 @@ m2type_GetBooleanFalse (void)
#endif /* !USE_BOOLEAN */
}
-/* GetBooleanType - */
+/* GetBooleanType return the modula-2 BOOLEAN type. */
tree
m2type_GetBooleanType (void)
@@ -881,7 +882,7 @@ m2type_GetBooleanType (void)
#endif /* !USE_BOOLEAN */
}
-/* GetCardinalAddressType - returns the internal data type for
+/* GetCardinalAddressType returns the internal data type for
computing binary arithmetic upon the ADDRESS datatype. */
tree
@@ -890,7 +891,7 @@ m2type_GetCardinalAddressType (void)
return m2_cardinal_address_type_node;
}
-/* noBitsRequired - returns the number of bits required to contain,
+/* noBitsRequired returns the number of bits required to contain,
values. How many bits are required to represent all numbers
between: 0..values-1 */
@@ -907,7 +908,7 @@ noBitsRequired (tree values)
}
#if 0
-/* build_set_type - creates a set type from the, domain, [low..high].
+/* build_set_type creates a set type from the, domain, [low..high].
The values low..high all have type, range_type. */
static tree
@@ -937,7 +938,7 @@ build_set_type (tree domain, tree range_type, int allow_void, int ispacked)
}
-/* convert_type_to_range - does the conversion and copies the range
+/* convert_type_to_range does the conversion and copies the range
type */
static tree
@@ -979,7 +980,7 @@ convert_type_to_range (tree type)
}
#endif
-/* build_bitset_type - builds the type BITSET which is exported from
+/* build_bitset_type builds the type BITSET which is exported from
SYSTEM. It also builds BITNUM (the subrange from which BITSET is
created). */
@@ -1039,8 +1040,8 @@ m2type_BuildSetTypeFromSubrange (location_t location,
return unsigned_type_node;
}
-/* build_m2_size_set_type - build and return a set type with,
- precision, bits. */
+/* build_m2_size_set_type build and return a set type with
+ precision bits. */
static tree
build_m2_size_set_type (location_t location, int precision)
@@ -1062,8 +1063,8 @@ build_m2_size_set_type (location_t location, int precision)
m2decl_BuildIntegerConstant (precision - 1), FALSE);
}
-/* build_m2_specific_size_type - build a specific data type matching
- number of bits, precision, whether it, is_signed. It creates a
+/* build_m2_specific_size_type build a specific data type matching
+ number of bits precision whether it is_signed. It creates a
set type if base == SET_TYPE or returns the already created real,
if REAL_TYPE is specified. */
@@ -1105,7 +1106,7 @@ build_m2_specific_size_type (location_t location, enum tree_code base,
return c;
}
-/* BuildSmallestTypeRange - returns the smallest INTEGER_TYPE which
+/* BuildSmallestTypeRange returns the smallest INTEGER_TYPE which
is sufficient to contain values: low..high. */
tree
@@ -1124,7 +1125,7 @@ m2type_BuildSmallestTypeRange (location_t location, tree low, tree high)
tree_int_cst_sgn (low) < 0);
}
-/* GetTreeType - returns TREE_TYPE (t). */
+/* GetTreeType returns TREE_TYPE (t). */
tree
m2type_GetTreeType (tree t)
@@ -1132,7 +1133,7 @@ m2type_GetTreeType (tree t)
return TREE_TYPE (t);
}
-/* finish_build_pointer_type - finish building a POINTER_TYPE node.
+/* finish_build_pointer_type finish building a POINTER_TYPE node.
necessary to solve self references in procedure types. */
/* Code taken from tree.cc:build_pointer_type_for_mode. */
@@ -1154,7 +1155,7 @@ finish_build_pointer_type (tree t, tree to_type, enum machine_mode mode,
return t;
}
-/* BuildParameterDeclaration - creates and returns one parameter
+/* BuildParameterDeclaration creates and returns one parameter
from, name, and, type. It appends this parameter to the internal
param_type_list. */
@@ -1172,7 +1173,7 @@ m2type_BuildProcTypeParameterDeclaration (location_t location, tree type,
return type;
}
-/* BuildEndFunctionType - build a function type which would return a,
+/* BuildEndFunctionType build a function type which would return a,
value. The arguments have been created by
BuildParameterDeclaration. */
@@ -1213,7 +1214,7 @@ m2type_BuildEndFunctionType (tree func, tree return_type, int uses_varargs)
return func;
}
-/* BuildStartFunctionType - creates a pointer type, necessary to
+/* BuildStartFunctionType creates a pointer type, necessary to
create a function type. */
tree
@@ -1226,7 +1227,7 @@ m2type_BuildStartFunctionType (location_t location ATTRIBUTE_UNUSED,
return n;
}
-/* InitFunctionTypeParameters - resets the current function type
+/* InitFunctionTypeParameters resets the current function type
parameter list. */
void
@@ -1235,7 +1236,7 @@ m2type_InitFunctionTypeParameters (void)
param_type_list = NULL_TREE;
}
-/* gm2_finish_decl - */
+/* gm2_finish_decl finishes VAR, TYPE and FUNCTION declarations. */
static void
gm2_finish_decl (location_t location, tree decl)
@@ -1314,7 +1315,7 @@ gm2_finish_decl (location_t location, tree decl)
}
}
-/* BuildVariableArrayAndDeclare - creates a variable length array.
+/* BuildVariableArrayAndDeclare creates a variable length array.
high is the maximum legal elements (which is a runtime variable).
This creates and array index, array type and local variable. */
@@ -1391,7 +1392,7 @@ build_m2_iso_byte_node (location_t location, int loc)
return c;
}
-/* m2type_InitSystemTypes - initialise loc and word derivatives. */
+/* m2type_InitSystemTypes initialise loc and word derivatives. */
void
m2type_InitSystemTypes (location_t location, int loc)
@@ -1786,7 +1787,7 @@ m2type_InitBaseTypes (location_t location)
m2expr_init (location);
}
-/* BuildStartType - given a, type, with a, name, return a GCC
+/* BuildStartType given a, type, with a, name, return a GCC
declaration of this type. TYPE name = foo ;
the type, foo, maybe a partially created type (which has
@@ -1810,7 +1811,7 @@ m2type_BuildStartType (location_t location, char *name, tree type)
return tem;
}
-/* BuildEndType - finish declaring, type, and return, type. */
+/* BuildEndType finish declaring, type, and return, type. */
tree
m2type_BuildEndType (location_t location, tree type)
@@ -1821,7 +1822,7 @@ m2type_BuildEndType (location_t location, tree type)
return type;
}
-/* DeclareKnownType - given a, type, with a, name, return a GCC
+/* DeclareKnownType given a, type, with a, name, return a GCC
declaration of this type. TYPE name = foo ; */
tree
@@ -1832,7 +1833,7 @@ m2type_DeclareKnownType (location_t location, char *name, tree type)
m2type_BuildStartType (location, name, type));
}
-/* GetDefaultType - given a, type, with a, name, return a GCC
+/* GetDefaultType given a, type, with a, name, return a GCC
declaration of this type. Checks to see whether the type name has
already been declared as a default type and if so it returns this
declaration. Otherwise it declares the type. In Modula-2 this is
@@ -1879,7 +1880,7 @@ do_min_real (tree type)
return build1 (NEGATE_EXPR, type, build_real (type, r));
}
-/* GetMinFrom - given a, type, return a constant representing the
+/* GetMinFrom given a, type, return a constant representing the
minimum legal value. */
tree
@@ -1911,7 +1912,7 @@ do_max_real (tree type)
return build_real (type, r);
}
-/* GetMaxFrom - given a, type, return a constant representing the
+/* GetMaxFrom given a, type, return a constant representing the
maximum legal value. */
tree
@@ -1932,7 +1933,7 @@ m2type_GetMaxFrom (location_t location, tree type)
return TYPE_MAX_VALUE (m2tree_skip_type_decl (type));
}
-/* BuildTypeDeclaration - adds the, type, to the current statement
+/* BuildTypeDeclaration adds the, type, to the current statement
list. */
void
@@ -2025,8 +2026,8 @@ gm2_finish_enum (location_t location, tree enumtype, tree values)
}
/* Construct the final type of this enumeration. It is the same as
- one of the integral types - the narrowest one that fits, except that
- normally we only go as narrow as int - and signed iff any of the
+ one of the integral types the narrowest one that fits, except that
+ normally we only go as narrow as int and signed iff any of the
values are negative. */
sign = (tree_int_cst_sgn (minnode) >= 0) ? UNSIGNED : SIGNED;
precision = MAX (tree_int_cst_min_precision (minnode, sign),
@@ -2110,7 +2111,7 @@ gm2_finish_enum (location_t location, tree enumtype, tree values)
return enumtype;
}
-/* BuildStartEnumeration - create an enumerated type in gcc. */
+/* BuildStartEnumeration create an enumerated type in gcc. */
tree
m2type_BuildStartEnumeration (location_t location, char *name, int ispacked)
@@ -2126,7 +2127,7 @@ m2type_BuildStartEnumeration (location_t location, char *name, int ispacked)
return gm2_start_enum (location, id, ispacked);
}
-/* BuildEndEnumeration - finish building the enumeration, it uses the
+/* BuildEndEnumeration finish building the enumeration, it uses the
enum list, enumvalues, and returns a enumeration type tree. */
tree
@@ -2164,9 +2165,8 @@ gm2_build_enumerator (location_t location, tree name, tree value)
return tree_cons (decl, value, NULL_TREE);
}
-/* BuildEnumerator - build an enumerator and add it to the,
- enumvalues, list. It returns a copy of the value. --fixme-- why
- do this? */
+/* BuildEnumerator build an enumerator and add it to the,
+ enumvalues, list. It returns a copy of the value. */
tree
m2type_BuildEnumerator (location_t location, char *name, tree value,
@@ -2182,7 +2182,7 @@ m2type_BuildEnumerator (location_t location, char *name, tree value,
return copy_of_value;
}
-/* BuildPointerType - returns a type which is a pointer to, totype. */
+/* BuildPointerType returns a type which is a pointer to, totype. */
tree
m2type_BuildPointerType (tree totype)
@@ -2190,7 +2190,7 @@ m2type_BuildPointerType (tree totype)
return build_pointer_type (m2tree_skip_type_decl (totype));
}
-/* BuildConstPointerType - returns a type which is a const pointer
+/* BuildConstPointerType returns a type which is a const pointer
to, totype. */
tree
@@ -2201,7 +2201,7 @@ m2type_BuildConstPointerType (tree totype)
return t;
}
-/* BuildSetType - creates a SET OF [lowval..highval]. */
+/* BuildSetType creates a SET OF [lowval..highval]. */
tree
m2type_BuildSetType (location_t location, char *name, tree type, tree lowval,
@@ -2219,7 +2219,7 @@ m2type_BuildSetType (location_t location, char *name, tree type, tree lowval,
ispacked);
}
-/* push_constructor - returns a new compound constructor frame. */
+/* push_constructor returns a new compound constructor frame. */
static struct struct_constructor *
push_constructor (void)
@@ -2231,7 +2231,7 @@ push_constructor (void)
return p;
}
-/* pop_constructor - throws away the top constructor frame on the
+/* pop_constructor throws away the top constructor frame on the
stack. */
static void
@@ -2242,7 +2242,7 @@ pop_constructor (struct struct_constructor *p)
top_constructor = top_constructor->level;
}
-/* BuildStartSetConstructor - starts to create a set constant.
+/* BuildStartSetConstructor starts to create a set constant.
Remember that type is really a record type. */
void *
@@ -2259,7 +2259,7 @@ m2type_BuildStartSetConstructor (tree type)
return (void *)p;
}
-/* BuildSetConstructorElement - adds, value, to the
+/* BuildSetConstructorElement adds, value, to the
constructor_element_list. */
void
@@ -2285,7 +2285,7 @@ m2type_BuildSetConstructorElement (void *p, tree value)
c->constructor_fields = TREE_CHAIN (c->constructor_fields);
}
-/* BuildEndSetConstructor - finishes building a set constant. */
+/* BuildEndSetConstructor finishes building a set constant. */
tree
m2type_BuildEndSetConstructor (void *p)
@@ -2311,7 +2311,7 @@ m2type_BuildEndSetConstructor (void *p)
return constructor;
}
-/* BuildStartRecordConstructor - initializes a record compound
+/* BuildStartRecordConstructor initializes a record compound
constructor frame. */
void *
@@ -2328,7 +2328,7 @@ m2type_BuildStartRecordConstructor (tree type)
return (void *)p;
}
-/* BuildEndRecordConstructor - returns a tree containing the record
+/* BuildEndRecordConstructor returns a tree containing the record
compound literal. */
tree
@@ -2345,7 +2345,7 @@ m2type_BuildEndRecordConstructor (void *p)
return constructor;
}
-/* BuildRecordConstructorElement - adds, value, to the
+/* BuildRecordConstructorElement adds, value, to the
constructor_element_list. */
void
@@ -2354,7 +2354,7 @@ m2type_BuildRecordConstructorElement (void *p, tree value)
m2type_BuildSetConstructorElement (p, value);
}
-/* BuildStartArrayConstructor - initializes an array compound
+/* BuildStartArrayConstructor initializes an array compound
constructor frame. */
void *
@@ -2371,7 +2371,7 @@ m2type_BuildStartArrayConstructor (tree type)
return (void *)p;
}
-/* BuildEndArrayConstructor - returns a tree containing the array
+/* BuildEndArrayConstructor returns a tree containing the array
compound literal. */
tree
@@ -2390,7 +2390,7 @@ m2type_BuildEndArrayConstructor (void *p)
return constructor;
}
-/* BuildArrayConstructorElement - adds, value, to the
+/* BuildArrayConstructorElement adds, value, to the
constructor_element_list. */
void
@@ -2423,7 +2423,7 @@ m2type_BuildArrayConstructorElement (void *p, tree value, tree indice)
vec_safe_push (c->constructor_elements, celt);
}
-/* BuildArrayStringConstructor - creates an array constructor for,
+/* BuildArrayStringConstructor creates an array constructor for,
arrayType, consisting of the character elements defined by, str,
of, length, characters. */
@@ -2461,7 +2461,7 @@ m2type_BuildArrayStringConstructor (location_t location, tree arrayType,
return m2type_BuildEndArrayConstructor (c);
}
-/* BuildSubrangeType - creates a subrange of, type, with, lowval,
+/* BuildSubrangeType creates a subrange of, type, with, lowval,
highval. */
tree
@@ -2502,7 +2502,7 @@ m2type_BuildSubrangeType (location_t location, char *name, tree type,
return range_type;
}
-/* BuildCharConstantChar - creates a character constant given a character, ch. */
+/* BuildCharConstantChar creates a character constant given a character, ch. */
tree
m2type_BuildCharConstantChar (location_t location, char ch)
@@ -2512,7 +2512,7 @@ m2type_BuildCharConstantChar (location_t location, char ch)
return m2block_RememberConstant (id);
}
-/* BuildCharConstant - creates a character constant given a, string. */
+/* BuildCharConstant creates a character constant given a, string. */
tree
m2type_BuildCharConstant (location_t location, const char *string)
@@ -2520,7 +2520,7 @@ m2type_BuildCharConstant (location_t location, const char *string)
return m2type_BuildCharConstantChar (location, string[0]);
}
-/* RealToTree - convert a real number into a Tree. */
+/* RealToTree convert a real number into a Tree. */
tree
m2type_RealToTree (char *name)
@@ -2530,7 +2530,7 @@ m2type_RealToTree (char *name)
REAL_VALUE_ATOF (name, TYPE_MODE (m2type_GetLongRealType ())));
}
-/* gm2_start_struct - start to create a struct. */
+/* gm2_start_struct start to create a struct. */
static tree
gm2_start_struct (location_t location, enum tree_code code, char *name)
@@ -2550,7 +2550,7 @@ gm2_start_struct (location_t location, enum tree_code code, char *name)
return s;
}
-/* BuildStartRecord - return a RECORD tree. */
+/* BuildStartRecord return a RECORD tree. */
tree
m2type_BuildStartRecord (location_t location, char *name)
@@ -2559,7 +2559,7 @@ m2type_BuildStartRecord (location_t location, char *name)
return gm2_start_struct (location, RECORD_TYPE, name);
}
-/* BuildStartUnion - return a union tree. */
+/* BuildStartUnion return a union tree. */
tree
m2type_BuildStartUnion (location_t location, char *name)
@@ -2568,7 +2568,7 @@ m2type_BuildStartUnion (location_t location, char *name)
return gm2_start_struct (location, UNION_TYPE, name);
}
-/* m2type_BuildStartVarient - builds a varient record. It creates a
+/* m2type_BuildStartVarient builds a varient record. It creates a
record field which has a, name, and whose type is a union. */
tree
@@ -2580,7 +2580,7 @@ m2type_BuildStartVarient (location_t location, char *name)
return field;
}
-/* m2type_BuildEndVarient - finish the varientField by calling
+/* m2type_BuildEndVarient finish the varientField by calling
decl_finish and also finish the type of varientField (which is a
union). */
@@ -2595,7 +2595,7 @@ m2type_BuildEndVarient (location_t location, tree varientField,
return varientField;
}
-/* m2type_BuildStartFieldVarient - builds a field varient record. It
+/* m2type_BuildStartFieldVarient builds a field varient record. It
creates a record field which has a, name, and whose type is a
record. */
@@ -2608,7 +2608,7 @@ m2type_BuildStartFieldVarient (location_t location, char *name)
return field;
}
-/* BuildEndRecord - a heavily pruned finish_struct from c-decl.cc. It
+/* BuildEndRecord a heavily pruned finish_struct from c-decl.cc. It
sets the context for each field to, t, propagates isPacked
throughout the fields in the structure. */
@@ -2672,7 +2672,7 @@ m2type_BuildEndRecord (location_t location, tree record, tree fieldlist,
return record;
}
-/* m2type_BuildEndFieldVarient - finish the varientField by calling
+/* m2type_BuildEndFieldVarient finish the varientField by calling
decl_finish and also finish the type of varientField (which is a
record). */
@@ -2688,7 +2688,7 @@ m2type_BuildEndFieldVarient (location_t location, tree varientField,
return varientField;
}
-/* m2type_BuildStartFieldRecord - starts building a field record. It
+/* m2type_BuildStartFieldRecord starts building a field record. It
returns the field which must be completed by calling
gm2_finish_decl. */
@@ -2725,7 +2725,7 @@ m2type_BuildFieldRecord (location_t location, char *name, tree type)
return field;
}
-/* ChainOn - interface so that Modula-2 can also create chains of
+/* ChainOn interface so that Modula-2 can also create chains of
declarations. */
tree
@@ -2734,7 +2734,7 @@ m2type_ChainOn (tree t1, tree t2)
return chainon (t1, t2);
}
-/* ChainOnParamValue - adds a list node {{name, str}, value} into the
+/* ChainOnParamValue adds a list node {{name, str}, value} into the
tree list. */
tree
@@ -2743,7 +2743,7 @@ m2type_ChainOnParamValue (tree list, tree name, tree str, tree value)
return chainon (list, build_tree_list (build_tree_list (name, str), value));
}
-/* AddStringToTreeList - adds, string, to list. */
+/* AddStringToTreeList adds, string, to list. */
tree
m2type_AddStringToTreeList (tree list, tree string)
@@ -2751,7 +2751,7 @@ m2type_AddStringToTreeList (tree list, tree string)
return tree_cons (NULL_TREE, string, list);
}
-/* SetAlignment - sets the alignment of a, node, to, align. It
+/* SetAlignment sets the alignment of a, node, to, align. It
duplicates the, node, and sets the alignment to prevent alignment
effecting behaviour elsewhere. */
@@ -2816,7 +2816,7 @@ m2type_SetAlignment (tree node, tree align)
return node;
}
-/* SetDeclPacked - sets the packed bit in decl TREE, node. It
+/* SetDeclPacked sets the packed bit in decl TREE, node. It
returns the node. */
tree
@@ -2826,7 +2826,7 @@ m2type_SetDeclPacked (tree node)
return node;
}
-/* SetTypePacked - sets the packed bit in type TREE, node. It
+/* SetTypePacked sets the packed bit in type TREE, node. It
returns the node. */
tree
@@ -2836,7 +2836,7 @@ m2type_SetTypePacked (tree node)
return node;
}
-/* SetRecordFieldOffset - returns field after the byteOffset and
+/* SetRecordFieldOffset returns field after the byteOffset and
bitOffset has been applied to it. */
tree
@@ -2850,7 +2850,7 @@ m2type_SetRecordFieldOffset (tree field, tree byteOffset, tree bitOffset,
return field;
}
-/* BuildPackedFieldRecord - builds a packed field record of, name,
+/* BuildPackedFieldRecord builds a packed field record of, name,
and, fieldtype. */
tree
@@ -2860,7 +2860,7 @@ m2type_BuildPackedFieldRecord (location_t location, char *name, tree fieldtype)
return m2type_BuildFieldRecord (location, name, fieldtype);
}
-/* BuildNumberOfArrayElements - returns the number of elements in an
+/* BuildNumberOfArrayElements returns the number of elements in an
arrayType. */
tree
@@ -2876,7 +2876,7 @@ m2type_BuildNumberOfArrayElements (location_t location, tree arrayType)
return elements;
}
-/* AddStatement - maps onto add_stmt. */
+/* AddStatement maps onto add_stmt. */
void
m2type_AddStatement (location_t location, tree t)
@@ -2885,7 +2885,7 @@ m2type_AddStatement (location_t location, tree t)
add_stmt (location, t);
}
-/* MarkFunctionReferenced - marks a function as referenced. */
+/* MarkFunctionReferenced marks a function as referenced. */
void
m2type_MarkFunctionReferenced (tree f)
@@ -2895,7 +2895,7 @@ m2type_MarkFunctionReferenced (tree f)
mark_decl_referenced (f);
}
-/* GarbageCollect - force gcc to garbage collect. */
+/* GarbageCollect force gcc to garbage collect. */
void
m2type_GarbageCollect (void)
@@ -2903,7 +2903,7 @@ m2type_GarbageCollect (void)
ggc_collect ();
}
-/* gm2_type_for_size - return an integer type with BITS bits of
+/* gm2_type_for_size return an integer type with BITS bits of
precision, that is unsigned if UNSIGNEDP is nonzero, otherwise
signed. */
@@ -2941,7 +2941,7 @@ m2type_gm2_type_for_size (unsigned int bits, int unsignedp)
return 0;
}
-/* gm2_unsigned_type - return an unsigned type the same as TYPE in
+/* gm2_unsigned_type return an unsigned type the same as TYPE in
other respects. */
tree
@@ -2975,7 +2975,7 @@ m2type_gm2_unsigned_type (tree type)
return m2type_gm2_signed_or_unsigned_type (TRUE, type);
}
-/* gm2_signed_type - return a signed type the same as TYPE in other
+/* gm2_signed_type return a signed type the same as TYPE in other
respects. */
tree
@@ -3009,7 +3009,7 @@ m2type_gm2_signed_type (tree type)
return m2type_gm2_signed_or_unsigned_type (FALSE, type);
}
-/* check_type - if the precision of baseType and type are the same
+/* check_type if the precision of baseType and type are the same
then return true and set the signed or unsigned type in result
else return false. */
@@ -3028,7 +3028,7 @@ check_type (tree baseType, tree type, int unsignedp, tree baseu, tree bases,
return FALSE;
}
-/* gm2_signed_or_unsigned_type - return a type the same as TYPE
+/* gm2_signed_or_unsigned_type return a type the same as TYPE
except unsigned or signed according to UNSIGNEDP. */
tree
@@ -3081,7 +3081,7 @@ m2type_gm2_signed_or_unsigned_type (int unsignedp, tree type)
return type;
}
-/* IsAddress - returns TRUE if the type is an ADDRESS. */
+/* IsAddress returns TRUE if the type is an ADDRESS. */
int
m2type_IsAddress (tree type)
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-09-13 7:33 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-09-13 7:33 [gcc/devel/modula-2] Tidyup of m2type.cc, m2decl.cc and other comments Gaius Mulley
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).