Modified code for CIDER simulator.

2003-08-14 11:46:55 +00:00 · 2003-08-14 11:46:55 +00:00 · b8cece5fba
parent 9cb7e22d6f
commit b8cece5fba
1 changed files with 2 additions and 1 deletions
--- a/src/maths/sparse/spalloc.c
+++ b/src/maths/sparse/spalloc.c
@ -137,8 +137,9 @@ spCreate(int Size, int Complex, int *pError)
        return NULL;
    }

+
+#if 0  /* pn: skipped for cider */
    /* Test for valid type. */
-#if !REAL
    if (!Complex) {
 	*pError = spPANIC;
 	return NULL;