chiark / gitweb /
Fix licence text. Change to matinv to mark inputs as constants.
[storin] / matrix.c
index 88f4cb7..c164275 100644 (file)
--- a/matrix.c
+++ b/matrix.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: matrix.c,v 1.1 2000/05/21 11:28:30 mdw Exp $
+ * $Id: matrix.c,v 1.2 2000/07/02 15:22:07 mdw Exp $
  *
  * Matrix arithmetic mod %$2^{24}$%
  *
@@ -30,7 +30,7 @@
  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN
- * NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+ * NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
@@ -49,6 +49,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: matrix.c,v $
+ * Revision 1.2  2000/07/02 15:22:07  mdw
+ * Fix licence text.  Change to matinv to mark inputs as constants.
+ *
  * Revision 1.1  2000/05/21 11:28:30  mdw
  * Initial check-in.
  *
@@ -99,7 +102,7 @@ void matmul(uint24 *d, const uint24 *a, const uint24 *b,
 /* --- @matinv@ --- *
  *
  * Arguments:  @uint24 *d@ = pointer to destination matrix
- *             @uint24 *a@ = pointer to operand matrix
+ *             @const uint24 *a@ = pointer to operand matrix
  *             @unsigned x, y@ = dimensions of operand matrix
  *
  * Returns:    Zero if the matrix was successfully inverted, %$-1$% if the
@@ -108,7 +111,7 @@ void matmul(uint24 *d, const uint24 *a, const uint24 *b,
  * Use:                Computes the mod %$2^{24}$% inverse of a square matrix.
  */
 
-int matinv(uint24 *d, uint24 *a, unsigned x, unsigned y)
+int matinv(uint24 *d, const uint24 *a, unsigned x, unsigned y)
 {
   unsigned i, j, k;
   uint24 *aa;