From: Dhruv Chawla Date: Wed, 13 May 2026 10:51:03 +0000 (+0000) Subject: cobol, libgcobol: Fix typos in various files X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b7e8e4e99a83236ecd853ee14da65e25cc0ae92d;p=thirdparty%2Fgcc.git cobol, libgcobol: Fix typos in various files Signed-off-by: Dhruv Chawla gcc/cobol/ChangeLog: * compare.cc (alpha_compare): Fix typos. * 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. --- diff --git a/gcc/cobol/Make-lang.in b/gcc/cobol/Make-lang.in index 637cf753e56..a5cfe2cea11 100644 --- a/gcc/cobol/Make-lang.in +++ b/gcc/cobol/Make-lang.in @@ -372,7 +372,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/compare.cc b/gcc/cobol/compare.cc index f1e4713aa02..a3d6ff37c4c 100644 --- a/gcc/cobol/compare.cc +++ b/gcc/cobol/compare.cc @@ -748,7 +748,7 @@ alpha_compare(tree &left, { // They are the same size, and neither is national or display. This is // highly weird. The only thing I can think causing it would be two - // files with different speci fied encodings. Just have the left side + // files with different specified encodings. Just have the left side // win. do_it = true; } 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 32865f82946..7bda84d85a4 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 @@ -3166,7 +3166,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 symbol_table + "main" and the -main compiler switch is active for this module symbol_table has been initialized, and the current program has been entered into it. For a top-level program, the program's program is 0, else it is the symbol table index of the containing program. */ @@ -12060,7 +12060,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); @@ -14030,7 +14030,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 71d8177466a..4108a0e4fcc 100644 --- a/gcc/cobol/gengen.cc +++ b/gcc/cobol/gengen.cc @@ -2543,7 +2543,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 4126321bb26..8fc83673f24 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 52b19437ef1..c93673815f1 100644 --- a/gcc/cobol/genutil.cc +++ b/gcc/cobol/genutil.cc @@ -2002,7 +2002,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 0fcf71f8e1a..d537e3f3fdb 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 4d25ddde587..c7311d3f76d 100644 --- a/gcc/cobol/parse_ante.h +++ b/gcc/cobol/parse_ante.h @@ -3764,7 +3764,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 984cdcffa67..004abaa1d49 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 9b75775f86b..de6fabe997a 100644 --- a/gcc/cobol/symbols.cc +++ b/gcc/cobol/symbols.cc @@ -378,7 +378,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). * @@ -2358,7 +2358,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 @@ -4531,7 +4531,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 78d7af99324..45e005f35b3 100644 --- a/gcc/cobol/symbols.h +++ b/gcc/cobol/symbols.h @@ -491,7 +491,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 cdf7aae4066..bf9a60450b6 100644 --- a/gcc/cobol/util.cc +++ b/gcc/cobol/util.cc @@ -2869,7 +2869,7 @@ date_time_fmt( const char input[] ) { /* - * Development suppport + * Development support */ #pragma GCC diagnostic push @@ -3035,11 +3035,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 066477886eb..b6da4822d01 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 { @@ -1629,7 +1629,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 a0981426e27..028c97c93d6 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 2ecef0046b7..37ee86cedb0 100644 --- a/libgcobol/gfileio.cc +++ b/libgcobol/gfileio.cc @@ -4829,7 +4829,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. @@ -4841,7 +4841,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 eff8be137a8..c81429fc36e 100644 --- a/libgcobol/intrinsic.cc +++ b/libgcobol/intrinsic.cc @@ -4150,7 +4150,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 ce1cbc3d619..911ac06f5ef 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) { @@ -7482,7 +7482,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. @@ -7494,8 +7494,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. @@ -8699,7 +8699,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); } @@ -9009,7 +9009,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(source_address); - // The caller will propogate data + offset to their children. + // The caller will propagate data + offset to their children. } else { @@ -9675,7 +9675,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 @@ -9876,7 +9876,7 @@ ec_is_fatal( ec_type_t type ) { /* * 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) @@ -12120,7 +12120,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 bc6082aa7c9..9c0e3e93475 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" },