drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.12.0.2

Browse Source
This commit is contained in:
Landon Curt Noll
2006-06-03 15:54:31 -07:00
parent 23a5fc3ede
commit 9d62873a02
23 changed files with 229 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
matfunc.c
View File

@@ -17,8 +17,8 @@
* received a copy with calc; if not, write to Free Software Foundation, Inc.
* 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*
* @(#) $Revision: 29.6 $
* @(#) $Id: matfunc.c,v 29.6 2006/05/20 08:43:55 chongo Exp $
* @(#) $Revision: 29.7 $
* @(#) $Id: matfunc.c,v 29.7 2006/06/02 10:24:09 chongo Exp $
* @(#) $Source: /usr/local/src/cmd/calc/RCS/matfunc.c,v $
*
* Under source code control: 1990/02/15 01:48:18
@@ -1606,8 +1606,8 @@ matsort(MATRIX *m)
{
VALUE *a, *b, *next, *end;
VALUE *buf, *p;
VALUE *S[32];
long len[32];
VALUE *S[LONG_BITS];
long len[LONG_BITS];
long i, j, k;
buf = (VALUE *) malloc(m->m_size * sizeof(VALUE));
@@ -1617,7 +1617,7 @@ matsort(MATRIX *m)
}
next = m->m_table;
end = next + m->m_size;
for (k = 0; next; k++) {
for (k = 0; next && k < LONG_BITS; k++) {
S[k] = next++; /* S[k] is start of a run */
len[k] = 1;
if (next == end)
@@ -1665,6 +1665,11 @@ matsort(MATRIX *m)
}
}
free(buf);
if (k >= LONG_BITS) {
/* this should never happen */
math_error("impossible k overflow in matsort!");
/*NOTREACHED*/
}
}
void