*   NAME: Z4505571  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: BiCMS
*   DATE: 05APR90   STATUS:  DZ+UT    USAGE-ID: SPE-C5571
*
*   Loops in free chain or other errors with SPE malloc/free
*
*   NOTE:      APPLY THE FIX BY FIRST USING XEDIT
*              (OR SOME OTHER EDITOR) TO ADD SEQUENCE NUMBERS
*              (STARTING AT 100, BY 100) TO THE SOURCE OF L$UHEAP
*              (IN LSU MACLIB), FOR INSTANCE WITH "SET SERIAL 100 100".
*              THE RENUMBERED FILE SHOULD BE SAVED IN A SEQUENTIAL
*              DISK FILE.  THEN USE THE CMS UPDATE COMMAND TO
*              APPLY THE FIX AND RECOMPILE.  THE OBJECT CODE SHOULD
*              BE ASSIGNED THE ALIASES MALLOC AND FREE, AND STORED
*              IN LC370SPE TXTLIB.  THE UPDATED SOURCE CODE SHOULD BE
*              STORED BACK IN LSU MACLIB USING THE MACLIB COMMAND.
*   NOTE: The following is a SOURCE UPDATE;  to apply, you must
*         (1) ensure that the target source file has not been re-numbered,
*         (2) change all occurrences of "*/" back to "./", and
*         (3) remove all comments before the first "./" card,
*         before using the CMS UPDATE command
*/ I 17600 $ 17610 10
#else                                                    /* Z4505571 */
#define DEQ(bl, pr) next(pr) = next(bl)                  /* Z4505571 */
#define DEQ0(bl) CRAB->HINF.HINT->free = next(bl)        /* Z4505571 */
*/ I 37500 $ 37510 10
      fit = fblk->header.size;                           /* Z4505571 */
*/ D 38300
*/ R 41100
      if (prev) next(prev) = next(fblk);                 /* Z4505571 */
*/ I 66900 $ 66910 10
         {                                               /* Z4505571 */
#else                                                    /* Z4505571 */
         {                                               /* Z4505571 */
            if (prev2) DEQ(prev, prev2);                 /* Z4505571 */
            else DEQ0(prev2);                            /* Z4505571 */
*/ D 67100
*/ I 69400 $ 69410 10
         {                                               /* Z4505571 */
#else                                                    /* Z4505571 */
         {                                               /* Z4505571 */
            if (prev) DEQ(fblk, prev);                   /* Z4505571 */
            else DEQ0(fblk);                             /* Z4505571 */
*/ D 69600