X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/ae747c9bab929bc794ddad9f59c381657d347d1f..6a7dce9165a4a707382e49877334353618fcad9a:/gfx.c

diff --git a/gfx.c b/gfx.c
index 97320f9..b1bdd51 100644
--- a/gfx.c
+++ b/gfx.c
@@ -1,13 +1,13 @@
 /* -*-c-*-
  *
- * $Id: gfx.c,v 1.1 2000/10/08 15:49:37 mdw Exp $
+ * $Id$
  *
  * Low-level arithmetic on binary polynomials
  *
  * (c) 2000 Straylight/Edgeware
  */
 
-/*----- Licensing notice --------------------------------------------------* 
+/*----- Licensing notice --------------------------------------------------*
  *
  * This file is part of Catacomb.
  *
@@ -15,26 +15,18 @@
  * it under the terms of the GNU Library General Public License as
  * published by the Free Software Foundation; either version 2 of the
  * License, or (at your option) any later version.
- * 
+ *
  * Catacomb is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU Library General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU Library General Public
  * License along with Catacomb; if not, write to the Free
  * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: gfx.c,v $
- * Revision 1.1  2000/10/08 15:49:37  mdw
- * First glimmerings of binary polynomial arithmetic.
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 #include <assert.h>
@@ -194,12 +186,12 @@ void gfx_mul(mpw *dv, mpw *dvl, const mpw *av, const mpw *avl,
 /* --- @gfx_div@ --- *
  *
  * Arguments:	@mpw *qv, *qvl@ = quotient vector base and limit
- *              @mpw *rv, *rvl@ = dividend/remainder vector base and limit
- *              @const mpw *dv, *dvl@ = divisor vector base and limit
+ *		@mpw *rv, *rvl@ = dividend/remainder vector base and limit
+ *		@const mpw *dv, *dvl@ = divisor vector base and limit
  *
- * Returns:     ---
+ * Returns:	---
  *
- * Use:         Performs division on polynomials over %$\gf{2}$%.
+ * Use:		Performs division on polynomials over %$\gf{2}$%.
  */
 
 void gfx_div(mpw *qv, mpw *qvl, mpw *rv, mpw *rvl,
@@ -284,7 +276,7 @@ void gfx_div(mpw *qv, mpw *qvl, mpw *rv, mpw *rvl,
 } while (0)
 
 #define MAX(x, y) ((x) > (y) ? (x) : (y))
-  
+
 static void dumpmp(const char *msg, const mpw *v, const mpw *vl)
 {
   fputs(msg, stderr);
@@ -310,14 +302,14 @@ static int vadd(dstr *v)
   gfx_add(d, dl, a, al, b, bl);
   if (!mpx_ueq(d, dl, c, cl)) {
     fprintf(stderr, "\n*** vadd failed\n");
-    dumpmp("       a", a, al);
-    dumpmp("       b", b, bl);
+    dumpmp("	   a", a, al);
+    dumpmp("	   b", b, bl);
     dumpmp("expected", c, cl);
     dumpmp("  result", d, dl);
     ok = 0;
   }
 
-  free(a); free(b); free(c); free(d);
+  xfree(a); xfree(b); xfree(c); xfree(d);
   return (ok);
 }
 
@@ -337,14 +329,14 @@ static int vmul(dstr *v)
   gfx_mul(d, dl, a, al, b, bl);
   if (!mpx_ueq(d, dl, c, cl)) {
     fprintf(stderr, "\n*** vmul failed\n");
-    dumpmp("       a", a, al);
-    dumpmp("       b", b, bl);
+    dumpmp("	   a", a, al);
+    dumpmp("	   b", b, bl);
     dumpmp("expected", c, cl);
     dumpmp("  result", d, dl);
     ok = 0;
   }
 
-  free(a); free(b); free(c); free(d);
+  xfree(a); xfree(b); xfree(c); xfree(d);
   return (ok);
 }
 
@@ -375,7 +367,7 @@ static int vdiv(dstr *v)
     ok = 0;
   }
 
-  free(a); free(b); free(r); free(q); free(qq);
+  xfree(a); xfree(b); xfree(r); xfree(q); xfree(qq);
   return (ok);
 }