Re: [open-cobol-list] Re: Initialize

[Peg]

Hello all,

address@hidden wrote:
> except that the FILLER will be initialized too.
How about this?

static int
initialize_type (struct cb_initialize *p, struct cb_field *f)
{
  if (f->flag_external)
    return INITIALIZE_EXTERNAL;

- if (f->redefines)
+ if (f->redefines && (!topfield || !p->flag_statement
    || !f->file))          <- FILE SECTION Initialize Support
    return INITIALIZE_NONE;

  if (p->val && f->values)
    return INITIALIZE_ONE;

+ if (*f->name == '$')     <- FILLER is not initialized.
+   return INITIALIZE_NONE;
+
  if (f->children)

--
Peg, PegStyle mailto:address@hidden
http://members8.tsukaeru.net/pegstyle/
(OpenCOBOL MinGW Binary Download Site.
 But Japanese Page Only)