[open-cobol-list] Re: pointer expression generating invalid C code

[Keisuke Nishida]

At Mon, 9 Feb 2004 11:32:55 -0500 (EST),
David Korn wrote:
> 
> The following code generates
> ===============cut here========================
>                PERFORM UNTIL W321-NEXT-PTR = NULL
>                        OR ADDRESS OF W321-DAM-TBL-ANCR
>                                    = SWS-DAM-TBL-ANCR-PTR
>                   SET ADDRESS OF W321-DAM-TBL-ANCR
>                    TO W321-NEXT-PTR
>                END-PERFORM
> ===============cut here========================
> 
>     {
>       while (1)
>         {
>           if ((((*(void **) (b_W321_DAM_TBL_ANCR + 72)) - 0 == 0) || (((int) 
> (b_W321_DAM_TBL_ANCR)) - (*(void **) (b_SWS_DAM_TBL_ANCR_PTR)) == 0)))
>             break;
>           {
>             /* FFW4B403.COB:1684: SET */
>             {
>               b_W321_DAM_TBL_ANCR = (*(void **) (b_W321_DAM_TBL_ANCR + 72));
>             }
>           }
>         }
>     }
> 
> 
> which doesn't compile.  It results in
>       invalid operands to binary -

Fixed in CVS.  Thanks.

Keisuke