*   NAME: Z4005571  PRODUCT: SASC     CATEGORY: SPEC    SYSTEM: CMS
*   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 LSUIND TXTLIB.  THE UPDATED SOURCE CODE SHOULD BE
*              STORED BACK IN LSU MACLIB USING THE MACLIB COMMAND.
*   NOTE: This 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 17100 $ 17110 10
#else                                                    /* Z4005570 */ 00017110
#define DEQ(bl, pr) next(pr) = next(bl)                  /* Z4005570 */ 00017120
#define DEQ0(bl) CRAB->HINF.HINT->free = next(bl)        /* Z4005570 */ 00017130
*/ I 27800 $ 27810 10
         fblk->header.resv = 0;                          /* Z4005570 */ 00027810
*/ I 35900 $ 35910 10
      fit = fblk->header.size;                           /* Z4005570 */ 00035910
*/ D 36700
*/ R 39500
      if (prev) next(prev) = next(fblk);                 /* Z4005570 */ 00039500
*/ I 65300 $ 65310 10
         {                                               /* Z4005570 */ 00065310
#else                                                    /* Z4005570 */ 00065320
         {                                               /* Z4005570 */ 00065330
            if (prev2) DEQ(prev, prev2);                 /* Z4005570 */ 00065340
            else DEQ0(prev2);                            /* Z4005570 */ 00065350
*/ D 65500
*/ I 67800 $ 67810 10
         {                                               /* Z4005570 */
#else                                                    /* Z4005570 */
         {                                               /* Z4005570 */
            if (prev) DEQ(fblk, prev);                   /* Z4005570 */
            else DEQ0(fblk);                             /* Z4005570 */
*/ D 68000