11:17am moussor:src/ ghco -iHBlas:HLAPack HLAPack/TestDGEEV.hs
ghc-5.04: chasing modules from: HLAPack/TestDGEEV.hs
Skipping StdDIS (
/nfs/isd/hdaume/projects/green-card/StdDIS.hs,
/nfs/isd/hdaume/projects/green-card/StdDIS.sun4.o )
Compiling DIS ( HBlas/DIS.hs, HBlas/DIS.sun4.o )
Skipping HBlas.PrivateTypes ( HBlas/PrivateTypes.hs,
HBlas/PrivateTypes.sun4.o )
Compiling HLAPack.HLAPackGC ( HLAPack/HLAPackGC.hs,
HLAPack/HLAPackGC.sun4.o )
ghc-5.04: panic! (the `impossible' happened, GHC version 5.04):
process_casm: non-void result not assigned while processing _casm_
"do {int jobvl; int jobvr; int ua; int ma; int na; double * a; int
vnwr; double * wr; int vnwi; double * wi; int uvl; int mvl; int
nvl; double * vl; int uvr; int mvr; int nvr; double * vr;
jobvl = (int)%0; jobvr = (int)%1; ua = (int)%2; ma =
(int)%3; na = (int)%4; a = (double *)%5; vnwr = (int)%6; wr = (double
*)%7; vnwi = (int)%8; wi = (double *)%9; uvl = (int)%10; mvl =
(int)%11; nvl = (int)%12; vl = (double *)%13; uvr = (int)%14; mvr =
(int)%15; nvr = (int)%16; vr = (double *)%17;
do { double* work = malloc(4 * ma * sizeOf(double)); //
todo: fix this
int info;
int result_variable;
char jobvlc = jobvl ? 'V' : 'N';
char jobvrc = jobvr ? 'V' : 'N';
result_variable = dgeev_(&jobvlc, &jobvrc, &na, a, &ma, wr, wi, vl,
&mvl, vr, &mvr, work, &lwork, &info);
result_variable = info;
free(work);
} while(0);} while(0);"
(Try changing result type to IO ()
Please report it as a compiler bug to [EMAIL PROTECTED],
or http://sourceforge.net/projects/ghc/.
--
Hal Daume III
"Computer science is no more about computers | [EMAIL PROTECTED]
than astronomy is about telescopes." -Dijkstra | www.isi.edu/~hdaume
_______________________________________________
Glasgow-haskell-bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
