[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] Re: Bug Report (Matt Young)
From: |
Roger While |
Subject: |
[open-cobol-list] Re: Bug Report (Matt Young) |
Date: |
Wed Feb 15 02:44:02 2006 |
Fix coming up. I will update the prerelease tonight.
Parser needs an extra check (relative to 0.33 prerelease) -
parser.y at ca. line 3702 :
for (l = using_list; l; l = CB_CHAIN (l))
{
cb_tree x = CB_VALUE (l);
if (x != cb_error_node && cb_ref (x) != cb_error_node)
{
struct cb_field *f = CB_FIELD (cb_ref (x));
if (f->level != 01 && f->level != 77)
cb_error_x (x, _("'%s' not level 01 or 77"), cb_name (x));
if (f->storage != CB_STORAGE_LINKAGE)
cb_error_x (x, _("'%s' is not in LINKAGE SECTION"), cb_name (x));
}
}
The last "if" and following "cb_error" are new.
Roger
Hi all.
Trying to compile the following program:
identification division.
program-id. t4.
environment division.
data division.
working-storage section.
77 ax pic 9(4).
procedure division using ax.
proc.
display "x"
stop run.
I'm geting the following error:
$ cobc -m t4.cob
In file included from /tmp/cob2780_0.c:50:
/tmp/cob2780_0.c.h: In function `t4_':
/tmp/cob2780_0.c.h:5: error: 'b_5' redeclared as different kind of symbol
/tmp/cob2780_0.c:44: error: previous definition of 'b_5' was here