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

[David Korn]

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 -

David Korn
address@hidden