[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[open-cobol-list] COMP-5(-X) again

From: Roger While
Subject: [open-cobol-list] COMP-5(-X) again
Date: Mon Nov 1 06:20:03 2004

In field.c, we have this :
        case CB_USAGE_COMP_5:
        case CB_USAGE_COMP_X:
          if (f->pic->category == CB_CATEGORY_ALPHANUMERIC)
              char pic[6];
              static int digits[] = {2, 4, 7, 9, 12, 14, 16, 18};
              sprintf (pic, "9(%d)", digits[f->pic->size - 1]);
              f->pic = CB_PICTURE (cb_build_picture (pic));
f->usage = CB_USAGE_BINARY; <-----******** !!!!
if (f->usage == CB_USAGE_COMP_X) <-----*********
            f->flag_binary_swap = 1;

Which makes COMP-X wrong and also makes tests on the
"usage" field useless (eg. in typeck.c, etc).

Keisuke, can you take a look at this as it affects several elements
(including your recently introduced "build_store_option")


reply via email to

[Prev in Thread] Current Thread [Next in Thread]