shithub: mc

Info  •  Files  •  Log  •  Branches

Set the type class for float64 properly.

    We were setting the 1th index, instead of the 0th. That made
    us think there were no cstrs on it.

--- a/parse/type.c

+++ b/parse/type.c

@@ -422,7 +422,7 @@

     /* <floats> :: tcnum */

     tycstrs[Tyfloat32][0] = cstrtab[Tcnum];

-    tycstrs[Tyfloat64][1] = cstrtab[Tcnum];

+    tycstrs[Tyfloat64][0] = cstrtab[Tcnum];

     /* @a* :: tctest[0] = tcslice */

     tycstrs[Typtr][0] = cstrtab[Tctest];