Re: Alignment of cleanup routines

[Camm Maguire <camm@enhanced.com>]

Greetings!  I'm trying to chase down the level 2 anomaly, but so far
can't get the latest tree to build successfully.  I think this patch
is needed to tune/blas/gemm/emit_mm.c:

--- ATLAS/tune/blas/gemm/emit_mm.c	Fri Nov 17 23:53:26 2000
+++ atlas-3.1.4D/tune/blas/gemm/emit_mm.c	Mon Nov 27 11:20:26 2000
@@ -2684,9 +2684,9 @@
    if (cp0->fixed == 1)
    {
       NBs[0] = cp0->imult;
-      istop = cp->nb;
+      istop = cp0->nb;
       while (istop % cp0->imult) istop--;
-      if (istop == cp->nb) istop -= cp0->imult;
+      if (istop == cp0->nb) istop -= cp0->imult;
       for (cp=cp0->next; cp; cp->next)
       {
          if (cp->imult % cp0->imult == 0 && cp->fixed != 2)
@@ -2701,7 +2701,7 @@
          if (!CompMultHandled(cp0->next, i)) NBs[n++] = i;
       }
    }
-   else if (cp0->fixed) NBs[0] = cp->imult;
+   else if (cp0->fixed) NBs[0] = cp0->imult;
    else NBs[0] = 0;
 
    ip = malloc(n * sizeof(int));
@@ -3103,8 +3103,9 @@
       fprintf(fp, "      %s,\n", funcp[i]);
       free(funcp[i]);
    }
-   free(funcp);
    fprintf(fp, "      %s\n   };\n\n", funcp[nb-1]);
+   free(funcp[nb-1]);
+   free(funcp);
 
    fprintf(fp, "   mmfunc[%c]%s;\n", cw, MMARGS);
 

Take care,


-- 
Camm Maguire			     			camm@enhanced.com
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah