From: Dhruv Chawla <[email protected]>
Signed-off-by: Dhruv Chawla <[email protected]>
gcc/cobol/ChangeLog:
* Make-lang.in: Fix typos.
* except.cc (cbl_enabled_exceptions_t::turn_on_off): Likewise.
* genapi.cc (MAX_AFTERS): Likewise.
(cobol_compare): Likewise.
(enter_program_common): Likewise.
(parser_bsearch_end): Likewise.
(parser_set_pointers): Likewise.
* gengen.cc (chain_parameter_to_function): Likewise.
* gengen.h (gg_return): Likewise.
* genutil.cc (refer_is_clean): Likewise.
* lexio.cc (right_margin): Likewise.
(maybe_add_space): Likewise.
* messages.cc: Likewise.
* parse_ante.h (procedure_division_ready): Likewise.
* structs.cc (create_cblc_field_t): Likewise.
* symbols.cc (special_pair_cmp): Likewise.
(symbol_table_init): Likewise.
(symbol_label_add): Likewise.
* symbols.h: Likewise.
* util.cc (date_time_fmt): Likewise.
(cobol_lineno): Likewise.
libgcobol/ChangeLog:
* README: Fix typos.
* charmaps.cc (__gg__iconverter): Likewise.
* common-defs.h (enum cbl_field_attr_t): Likewise.
* gcobolio.h: Likewise.
* gfileio.cc (__gg__file_stash): Likewise.
* gmath.cc (__gg__pow): Likewise.
* inspect.cc (inspect_backward_format_1): Likewise.
(__gg__inspect_format_1): Likewise.
(inspect_backward_format_2): Likewise.
(__gg__inspect_format_2): Likewise.
(__gg__inspect_format_1_sbc): Likewise.
* intrinsic.cc (gets_month): Likewise.
* libgcobol.cc (get_time_nanoseconds_local): Likewise.
(__gg__compare_2): Likewise.
(display_both): Likewise.
(accept_envar): Likewise.
(__gg__set_pointer): Likewise.
(struct cbl_exception_t): Likewise.
(default_exception_handler): Likewise.
(convert_for_convert): Likewise.
* valconv.cc: Likewise.
* xmlparse.cc (struct xml_ec_value_t): Likewise.
---
gcc/cobol/Make-lang.in | 2 +-
gcc/cobol/except.cc | 4 ++--
gcc/cobol/genapi.cc | 8 ++++----
gcc/cobol/gengen.cc | 2 +-
gcc/cobol/gengen.h | 2 +-
gcc/cobol/genutil.cc | 2 +-
gcc/cobol/lexio.cc | 4 ++--
gcc/cobol/messages.cc | 2 +-
gcc/cobol/parse_ante.h | 2 +-
gcc/cobol/structs.cc | 2 +-
gcc/cobol/symbols.cc | 6 +++---
gcc/cobol/symbols.h | 2 +-
gcc/cobol/util.cc | 6 +++---
libgcobol/README | 2 +-
libgcobol/charmaps.cc | 6 +++---
libgcobol/common-defs.h | 2 +-
libgcobol/gcobolio.h | 2 +-
libgcobol/gfileio.cc | 4 ++--
libgcobol/gmath.cc | 2 +-
libgcobol/inspect.cc | 14 +++++++-------
libgcobol/intrinsic.cc | 2 +-
libgcobol/libgcobol.cc | 20 ++++++++++----------
libgcobol/valconv.cc | 2 +-
libgcobol/xmlparse.cc | 2 +-
24 files changed, 51 insertions(+), 51 deletions(-)
diff --git a/gcc/cobol/Make-lang.in b/gcc/cobol/Make-lang.in
index f890ea1075a..b127deb187c 100644
--- a/gcc/cobol/Make-lang.in
+++ b/gcc/cobol/Make-lang.in
@@ -365,7 +365,7 @@ cobol.mostlyclean:
gcobol.clean:
# This is intended for non-general use. It is a last-ditch effort to flush
-# out all oject files and executable code for gcobol and libgcobol, causing
+# out all object files and executable code for gcobol and libgcobol, causing
# a complete rebuild of all executable code.
rm -fr gcobol cobol1 cobol/* \
../*/libgcobol/*
diff --git a/gcc/cobol/except.cc b/gcc/cobol/except.cc
index 7003673d75f..487908733bc 100644
--- a/gcc/cobol/except.cc
+++ b/gcc/cobol/except.cc
@@ -189,7 +189,7 @@ cbl_enabled_exceptions_t::turn_on_off( bool enabled,
ec_cmp(ec, elem.ec); } )) ) {
erase(p);
}
- // Keep the EC as an override if a higher-level would othewise apply.
+ // Keep the EC as an override if a higher-level would otherwise apply.
p = std::find_if( begin(), end(),
[ec = type]( const auto& elem ) {
return
@@ -213,7 +213,7 @@ cbl_enabled_exceptions_t::turn_on_off( bool enabled,
ec_cmp(ec, elem.ec); } )) ) {
erase(p);
}
- // Keep the EC as an override if a higher-level would othewise apply.
+ // Keep the EC as an override if a higher-level would otherwise apply.
p = std::find_if( begin(), end(),
[ec = type, file]( const auto& elem ) {
return
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index ea28bdaf776..5b05a07b4dd 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -186,7 +186,7 @@ static bool auto_advance_is_AFTER_advancing = 0;
#define MAX_AFTERS 8
-// These variables contol a little state machine. When a simple -main is in
+// These variables control a little state machine. When a simple -main is in
// effect, the first program in the module becomes the target of a main()
// that we synthesize function. When -main=module:progid is in effect, we
// create a main() that calls progid. When active, progid is kept in
@@ -3148,7 +3148,7 @@ enter_program_common(const char *funcname, const char
*funcname_)
}
/* Creates a function for program-id 'funcname_'. Returns 1 when funcname_
- is "main" and the -main compiler switch is active for this moudle */
+ is "main" and the -main compiler switch is active for this module */
void
parser_enter_program( const char *funcname_,
@@ -12021,7 +12021,7 @@ parser_bsearch_end( cbl_label_t* name )
// Arriving here means that either the search ran out without finding
// anything, (see the test up at TOP:), or else we just fell through from
// the statements that executed after all the WHEN/AFTER clauses were
- // satisifed by equality (meaning there were no jumps to TOO_SMALL: or
+ // satisfied by equality (meaning there were no jumps to TOO_SMALL: or
// TOO_LARGE). In other words: we're done.
gg_append_statement(bsearch->bottom.label);
@@ -13972,7 +13972,7 @@ parser_set_pointers( size_t ntgt, cbl_refer_t *tgts,
cbl_refer_t source )
if( tgts[i].addr_of )
{
// When SET ADDRESS OF TARGET TO ..., the library call sets
- // tgts[i].field->data. We need to propogate the data+offset
+ // tgts[i].field->data. We need to propagate the data+offset
// through the level01 variable's children:
propogate_linkage_offsets(tgts[i].field,
member(tgts[i].field->var_decl_node,
"data"));
diff --git a/gcc/cobol/gengen.cc b/gcc/cobol/gengen.cc
index 6a19ac6a2e1..56996894525 100644
--- a/gcc/cobol/gengen.cc
+++ b/gcc/cobol/gengen.cc
@@ -2446,7 +2446,7 @@ chain_parameter_to_function(tree function_decl, const
tree param_type, const ch
Cases 3. and 4. turn out to require the same flags. Here are the
combinations of
flags that are required for each flavor of function_decl. This was
empirically
- determind by compiling a C++ program with sample code for each type.
+ determined by compiling a C++ program with sample code for each type.
| addressable | used | nothrow | static | external
| public | no_instrument
main | | | | X |
| X | X
diff --git a/gcc/cobol/gengen.h b/gcc/cobol/gengen.h
index 336bf2ef1d9..f93250b615a 100644
--- a/gcc/cobol/gengen.h
+++ b/gcc/cobol/gengen.h
@@ -497,7 +497,7 @@ extern tree gg_strncmp(tree char_star_A, tree char_star_B,
tree size_t_N);
// Flow control inside a function
extern void gg_return(tree operand = NULL_TREE);
-// These routines are the preample and postamble that bracket everything else
+// These routines are the preamble and postamble that bracket everything else
extern tree gg_build_fn_decl(const char *funcname, tree fndecl_type);
extern tree gg_peek_fn_decl(const char *funcname);
extern tree gg_define_function( tree return_type,
diff --git a/gcc/cobol/genutil.cc b/gcc/cobol/genutil.cc
index 2cd470c6f70..e359b04058c 100644
--- a/gcc/cobol/genutil.cc
+++ b/gcc/cobol/genutil.cc
@@ -1996,7 +1996,7 @@ refer_is_clean(const cbl_refer_t &refer)
// passes us a refer for an optional parameter that has been omitted, for
// example.
- // It is also the case that a FldLiteralN will never have suscripts, or the
+ // It is also the case that a FldLiteralN will never have subscripts, or
the
// like.
return true;
}
diff --git a/gcc/cobol/lexio.cc b/gcc/cobol/lexio.cc
index 8a914ae86a9..0ab2f0ec15c 100644
--- a/gcc/cobol/lexio.cc
+++ b/gcc/cobol/lexio.cc
@@ -78,7 +78,7 @@ static inline int right_margin() {
}
/*
- * When setting the indicator column explicity:
+ * When setting the indicator column explicitly:
* To get strict fixed 72-column lines, use a negative column number.
* When setting back to 0 (free), the right margin is also reset to 0.
*/
@@ -206,7 +206,7 @@ maybe_add_space(const span_t& pattern, replace_t&
recognized) {
* directive. For the current line, apply patterns that begins on the
* line. (It may match input extending beyond the current eol.)
*
- * As each replacement is identified, append it to the passsed list of
+ * As each replacement is identified, append it to the passed list of
* pending replacements. For these elements:
*
* before is a span in mfile
diff --git a/gcc/cobol/messages.cc b/gcc/cobol/messages.cc
index 9dd73e0155c..1c572307b4f 100644
--- a/gcc/cobol/messages.cc
+++ b/gcc/cobol/messages.cc
@@ -66,7 +66,7 @@
/*
- * As of now, every diagnositc has one id, one message, one kind, and is
+ * As of now, every diagnostic has one id, one message, one kind, and is
* associated with "one" dialect. The dialect could be ORed. If it is, that
* means among the dialects it belongs to, it is always of the same kind.
*
diff --git a/gcc/cobol/parse_ante.h b/gcc/cobol/parse_ante.h
index fd924e6938a..33311c77d97 100644
--- a/gcc/cobol/parse_ante.h
+++ b/gcc/cobol/parse_ante.h
@@ -3572,7 +3572,7 @@ procedure_division_ready( YYLTYPE loc, cbl_field_t
*returning, ffi_args_t *ffi_a
parser_label_label(tini_label);
if( current.program()->initial ) {
- // We perform the section we just layed down when IS INITIAL
+ // We perform the section we just laid down when IS INITIAL
parser_perform(init_label);
}
return true;
diff --git a/gcc/cobol/structs.cc b/gcc/cobol/structs.cc
index 8f613da28d3..09e98cb64d7 100644
--- a/gcc/cobol/structs.cc
+++ b/gcc/cobol/structs.cc
@@ -180,7 +180,7 @@ create_cblc_field_t()
size_t occurs_upper; // non-zero for a table
uint64_t attr; // See cbl_field_attr_t
signed char type; // A one-byte copy of cbl_field_type_t
- signed char level; // This variable's level in the naming
heirarchy
+ signed char level; // This variable's level in the naming
hierarchy
signed char digits; // Digits specified in PIC string; e.g. 5
for 99v999
signed char rdigits; // Digits to the right of the decimal
point. 3 for 99v999
cbl_encoding_t encoding; // Same as cbl_field_t::codeset::encoding
diff --git a/gcc/cobol/symbols.cc b/gcc/cobol/symbols.cc
index ade38eb227e..6d46f8602b5 100644
--- a/gcc/cobol/symbols.cc
+++ b/gcc/cobol/symbols.cc
@@ -369,7 +369,7 @@ special_pair_cmp( const cbl_special_name_t& key,
*
* A qualified reference is denoted LblParagraph with a section, and
* with line = 0. A qualified reference updates an unqualified
- * declaration; the declation is upgraded to LblParagraph with the
+ * declaration; the declaration is upgraded to LblParagraph with the
* section as its parent, but still with no line (because it's still
* undefined).
*
@@ -2309,7 +2309,7 @@ symbol_table_init(void) {
symbol_table_t table = symbol_table_extend();
- // Insert known contants at the top of an empty table.
+ // Insert known constants at the top of an empty table.
// Constants are signified by their attribute
// Be warned that ZEROS plays for both sides. It is defined here as
// quoted, but in context it can be the value zero at run-time. Yes, it
@@ -4473,7 +4473,7 @@ symbol_label_add( size_t program, cbl_label_t *input )
/*
* Under ISO (and not IBM) Declaratives are followed by a Section name. If
* Declaratives were used, when the first statement is parsed verify that it
- * was preceeded by a Section name.
+ * was preceded by a Section name.
*/
bool
symbol_label_section_exists( size_t eval_label_index ) {
diff --git a/gcc/cobol/symbols.h b/gcc/cobol/symbols.h
index f7fbc5ceccc..3c3c8cb71e0 100644
--- a/gcc/cobol/symbols.h
+++ b/gcc/cobol/symbols.h
@@ -417,7 +417,7 @@ public:
auto n = real_to_integer(r);
REAL_VALUE_TYPE r2;
real_from_integer (&r2, VOIDmode, n, SIGNED);
- // If the orginal value r is equal to r2, derived from its integer
+ // If the original value r is equal to r2, derived from its integer
// part n, then the fractional component is zero.
if( real_identical (r, &r2) ) {
return std::make_pair( int64_t(n), true );
diff --git a/gcc/cobol/util.cc b/gcc/cobol/util.cc
index 554c4fc5702..4c10871566a 100644
--- a/gcc/cobol/util.cc
+++ b/gcc/cobol/util.cc
@@ -2793,7 +2793,7 @@ date_time_fmt( const char input[] ) {
/*
- * Development suppport
+ * Development support
*/
#pragma GCC diagnostic push
@@ -2950,11 +2950,11 @@ cobol_lineno( int lineno ) {
/*
* This function is called from the scanner, usually when a copybook is on top
* of the input stack, before the parser retrieves the token and resets the
- * current filename. For that reason, we normaly want to line number of the
+ * current filename. For that reason, we normally want to line number of the
* file that is about to become the current one, which is the one behind top().
*
* If somehow we arrive here when there is nothing underneath, we return the
- * current line nubmer, or zero if there's no input. The only consequence is
+ * current line number, or zero if there's no input. The only consequence is
* that the reported line number might be wrong.
*/
int
diff --git a/libgcobol/README b/libgcobol/README
index 318c04e10d8..7d78e313122 100644
--- a/libgcobol/README
+++ b/libgcobol/README
@@ -1,7 +1,7 @@
The libgcobol is intended for use entirely and solely by executables created
from COBOL source code by the GCOBOL "COBOL for GCC" front end.
-libgcobol.a can be staticly linked in, but it makes for very large binaries. We
+libgcobol.a can be statically linked in, but it makes for very large binaries.
We
tend to use that for debugging the GCOBOL compiler, and not much else
Many of the functions in the library are called by the executable code
generated
diff --git a/libgcobol/charmaps.cc b/libgcobol/charmaps.cc
index 8aa42e3234e..d17826d28bb 100644
--- a/libgcobol/charmaps.cc
+++ b/libgcobol/charmaps.cc
@@ -1418,8 +1418,8 @@ static encodings_t encodings[] = {
};
/*
- * Because this variable is static, the contructor runs before main and is
- * guaranted to run.
+ * Because this variable is static, the constructor runs before main and is
+ * guaranteed to run.
*/
static class rt_encoding_t
{
@@ -1617,7 +1617,7 @@ __gg__iconverter( cbl_encoding_t from,
// When the caller supplies iconv_retval_p, we only try to convert once,
// because they are telling us they will handle errors.
- // Otherwise, we just keep trying to convert, replacing unconvertable
+ // Otherwise, we just keep trying to convert, replacing unconvertible
// characters with a replacement.
iconv_retval = 1; // This primes the pump:
diff --git a/libgcobol/common-defs.h b/libgcobol/common-defs.h
index fe3ec7b3265..3bc9ba53e6d 100644
--- a/libgcobol/common-defs.h
+++ b/libgcobol/common-defs.h
@@ -227,7 +227,7 @@ enum cbl_field_attr_t : uint64_t {
encoded_e = 0x0020000000, // data.initial matches codeset.encoding
bool_encoded_e = 0x0040000000, // data.initial is a boolean string
hex_encoded_e = 0x0080000000, // data.initial is a hex-encoded string
- depends_on_e = 0x0100000000, // A group hierachy contains a
DEPENDING_ON
+ depends_on_e = 0x0100000000, // A group hierarchy contains a
DEPENDING_ON
initialized_e = 0x0200000000, // Don't call parser_initialize from
parser_symbol_add
has_value_e = 0x0400000000, // Flag to hierarchical descendents to
ignore .initial
ieeedec_e = 0x0800000000, // Indicates a FldFloat is IEEE 754
decimal, rather than binary
diff --git a/libgcobol/gcobolio.h b/libgcobol/gcobolio.h
index 13e3160c958..8d5ce843266 100644
--- a/libgcobol/gcobolio.h
+++ b/libgcobol/gcobolio.h
@@ -58,7 +58,7 @@ typedef struct cblc_field_t
size_t occurs_upper; // non-zero for a table
unsigned long long attr; // See cbl_field_attr_t
signed char type; // A one-byte copy of cbl_field_type_t
- signed char level; // This variable's level in the naming
heirarchy
+ signed char level; // This variable's level in the naming
hierarchy
signed char digits; // Digits specified in PIC string; e.g. 5 for
99v999
signed char rdigits; // Digits to the right of the decimal point. 3
for 99v999
cbl_encoding_t encoding; //
diff --git a/libgcobol/gfileio.cc b/libgcobol/gfileio.cc
index 884a145dbd5..fbda9919d7b 100644
--- a/libgcobol/gfileio.cc
+++ b/libgcobol/gfileio.cc
@@ -4580,7 +4580,7 @@ __gg__file_stash( cblc_file_t *file )
* cblc_file_t is defined, and where the valid file status values
* (and relops) are enumerated.
*
- * The library contructs the class, providing its own pointers,
+ * The library constructs the class, providing its own pointers,
* and supplies a known function, gcobol_fileops, to return
* it. gcobol-compiled programs call the functions, or others
* supplied by a different implementation, through the pointers.
@@ -4592,7 +4592,7 @@ __gg__file_stash( cblc_file_t *file )
* GnuCOBOL. One difference is that the file status is captured
* in the cblc_file_t, whereas in GnuCOBOL it is the return value.
*
- * There is no provision for using more than one implemetation at
+ * There is no provision for using more than one implementation at
* a time in the same program, as would be needed for CODE-SET
* support. To achieve that in C++ without dynamic linking, there
* would have to be a set of known implementations, each with its
diff --git a/libgcobol/gmath.cc b/libgcobol/gmath.cc
index 105d79e030e..e2a25757dea 100644
--- a/libgcobol/gmath.cc
+++ b/libgcobol/gmath.cc
@@ -297,7 +297,7 @@ __gg__pow( cbl_arith_format_t,
*compute_error |= compute_error_exp_minus_by_frac;
// This kind of error doesn't overwrite the target, so the returned
// value is not relevant. Make it zero to avoid overheating the
- // converstion routine
+ // conversion routine
tgt_value = 0;
}
}
diff --git a/libgcobol/inspect.cc b/libgcobol/inspect.cc
index e333e4b1345..8f6cc2b3b7d 100644
--- a/libgcobol/inspect.cc
+++ b/libgcobol/inspect.cc
@@ -912,7 +912,7 @@ inspect_backward_format_1(const size_t integers[],
}
default:
{
- // We have some number of identifer-3 values,
+ // We have some number of identifier-3 values,
// each with possible PHRASE1 modifiers.
size_t pair_count = integers[int_index++];
@@ -1273,7 +1273,7 @@ __gg__inspect_format_1( int backward,
}
default:
{
- // We have some number of identifer-3 values,
+ // We have some number of identifier-3 values,
// each with possible PHRASE1 modifiers.
size_t pair_count = integers[int_index++];
@@ -1618,7 +1618,7 @@ inspect_backward_format_2(const size_t integers[],
}
default:
{
- // We have some number of identifer-3/identifier-5 pairs,
+ // We have some number of identifier-3/identifier-5 pairs,
// each with possible PHRASE1 modifiers.
size_t pair_count = integers[int_index++];
@@ -1869,7 +1869,7 @@ inspect_backward_format_2(const size_t integers[],
charmap_t *charmap = __gg__get_charmap(id1->encoding);
// Wastefully prefill id_1 with spaces in case the processing resulted in a
- // string shorter than the original. (There is always the possiblity that
+ // string shorter than the original. (There is always the possibility that
// a UTF-8 or UTF-16 codeset pair got replaced with a single character.) Do
// this before calling __gg__converter, because both mapped_character and
// __gg__iconverter use the same static buffer.
@@ -1981,7 +1981,7 @@ __gg__inspect_format_2( int backward,
}
default:
{
- // We have some number of identifer-3/identifier-5 pairs,
+ // We have some number of identifier-3/identifier-5 pairs,
// each with possible PHRASE1 modifiers.
size_t pair_count = integers[int_index++];
@@ -2240,7 +2240,7 @@ __gg__inspect_format_2( int backward,
charmap_t *charmap = __gg__get_charmap(id1->encoding);
// Wastefully prefill id_1 with spaces in case the processing resulted in a
- // string shorter than the original. (There is always the possiblity that
+ // string shorter than the original. (There is always the possibility that
// a UTF-8 or UTF-16 codeset pair got replaced with a single character.) Do
// this before calling __gg__converter, because both mapped_character and
// __gg__iconverter use the same static buffer.
@@ -2708,7 +2708,7 @@ __gg__inspect_format_1_sbc( int backward,
default:
{
- // We have some number of identifer-3 values,
+ // We have some number of identifier-3 values,
// each with possible PHRASE1 modifiers.
size_t pair_count = integers[int_index++];
diff --git a/libgcobol/intrinsic.cc b/libgcobol/intrinsic.cc
index 2ff4c2f0f7c..0da7b572d5c 100644
--- a/libgcobol/intrinsic.cc
+++ b/libgcobol/intrinsic.cc
@@ -4144,7 +4144,7 @@ gets_month( const char *p,
}
else if( MM > 12 )
{
- // We are betweem 13 and 19, so it was the second digit
+ // We are between 13 and 19, so it was the second digit
retval = 2;
}
ctm.MM = MM;
diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index 2f61dacdfef..0dc2fb5e724 100644
--- a/libgcobol/libgcobol.cc
+++ b/libgcobol/libgcobol.cc
@@ -2239,7 +2239,7 @@ get_time_nanoseconds_local()
how gettimeofday() gets used, instead. But without the ability to
compile on a MacOS system, I am fumbling along as best I can.
- I decided to simply replace clock_gettime() with getttimeofday() when
+ I decided to simply replace clock_gettime() with gettimeofday() when
clock_gettime() isn't available, even though gcc/timevar.cc handles
the situation differently.
@@ -4662,7 +4662,7 @@ __gg__compare_2(cblc_field_t *left_side,
if( right_side->type == FldLiteralN)
{
right_value = get_float128(right_side, right_location);
- // In order to do the comparision, we need the value from the
+ // In order to do the comparison, we need the value from the
// literal to be the same flavor as the left side:
switch(left_side->capacity)
{
@@ -7487,7 +7487,7 @@ display_both(cblc_field_t *field,
cbl_encoding_t encout = __gg__console_encoding;
// It can be the case in COBOL programs that a variable set to HIGH-VALUE is
- // displayed. In CP1252, the result for 0xFF is a y-with diaresis.
+ // displayed. In CP1252, the result for 0xFF is a y-with diaeresis.
// In EBCDIC CP1140, however, the 0xFF character is non-printing. It's my
// opinion that's protentially confusing, especially when debugging.
@@ -7499,8 +7499,8 @@ display_both(cblc_field_t *field,
// There are valid arguments against doing this. But when I was doing some
// debugging, I found the EBCDIC behavior of displaying nothing for
- // HIGH-VALUE to be more astonishing than printing a y-with-diaresis. There
- // is, of course, the potential for confusing a real y-with-diaresis with a
+ // HIGH-VALUE to be more astonishing than printing a y-with-diaeresis. There
+ // is, of course, the potential for confusing a real y-with-diaeresis with a
// a HIGH-VALUE character. But it is my opinion that those will be resolved
// by examining the context.
@@ -8743,7 +8743,7 @@ accept_envar( cblc_field_t *tgt,
if( retval == 1 )
{
- // Could't find that environment variable
+ // Couldn't find that environment variable
exception_raise(ec_argument_imp_environment_e);
}
@@ -9053,7 +9053,7 @@ __gg__set_pointer(cblc_field_t *target,
// This is SET ADDRESS OF target TO ....
// We know it has to be an unqualified LINKAGE level 01 or level 77
target->data = reinterpret_cast<unsigned char *>(source_address);
- // The caller will propogate data + offset to their children.
+ // The caller will propagate data + offset to their children.
}
else
{
@@ -9719,7 +9719,7 @@ struct cbl_exception_t {
};
/*
- * Compare the raised exception, cbl_exception_t, to the USE critera
+ * Compare the raised exception, cbl_exception_t, to the USE criteria
* of a declarative, cbl_declarative_t.
*/
static bool
@@ -9889,7 +9889,7 @@ default_exception_handler( ec_type_t ec )
/*
* To reach the default handler, an EC must have effect and not have been
* handled by program logic. To have effect, it must have been enabled
- * explictly, or be of type EC-I-O. An EC may be handled by the statement or
+ * explicitly, or be of type EC-I-O. An EC may be handled by the statement or
* by a Declarative.
*
* Any EC handled by statement's conditional clause (e.g. ON SIZE ERROR)
@@ -12141,7 +12141,7 @@ convert_for_convert( cbl_encoding_t dest_enc,
size_t input_s,
size_t *nbytes)
{
- // iconverter takes care of untranslateable characters.
+ // iconverter takes care of untranslatable characters.
char *retval = __gg__miconverter(input->encoding,
dest_enc,
input->data + input_o,
diff --git a/libgcobol/valconv.cc b/libgcobol/valconv.cc
index 388db5aee0c..467c7a7076d 100644
--- a/libgcobol/valconv.cc
+++ b/libgcobol/valconv.cc
@@ -1361,7 +1361,7 @@ ec_descr_t __gg__exception_table[] = {
{ ec_argument_imp_command_e, uc_category_implementor_e,
"EC-ARGUMENT-IMP-COMMAND", "COMMAND-LINE Subscript out of bounds" },
{ ec_argument_imp_environment_e, uc_category_implementor_e,
- "EC-ARGUMENT-IMP-ENVIRONMENT", "Envrionment Variable is not defined" },
+ "EC-ARGUMENT-IMP-ENVIRONMENT", "Environment Variable is not defined" },
{ ec_bound_e, ec_category_none_e,
"EC-BOUND", "Boundary violation" },
diff --git a/libgcobol/xmlparse.cc b/libgcobol/xmlparse.cc
index 7f961aeac24..93074c4aeb4 100644
--- a/libgcobol/xmlparse.cc
+++ b/libgcobol/xmlparse.cc
@@ -170,7 +170,7 @@ struct xml_ec_value_t {
{ 148, "missing '=' after 'encoding' in XML declaration" },
{ 149, "missing XML encoding declaration value" },
{ 150, "invalid XML encoding declaration value" },
- { 151, "invalid character afer XML declaration" },
+ { 151, "invalid character after XML declaration" },
{ 152, "invalid attribute XML declaration" },
{ 153, "missing '=' after standalone XML declaration" },
{ 154, "missing standalone XML declaration value" },
--
2.43.0
