| author | Francesco Abbate <francesco.bbt@gmail.com> | 2009年11月21日 17:44:08 +0000 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2009年11月21日 17:44:08 +0000 |
| commit | 67e863fa3eef8e476507d58b7a21e7018ed56a28 (patch) | |
| tree | 56d3db3de177f1472c0a6c3586d1ddacb532c643 /lua/src | |
| parent | b2d5b7d64100164e40e3141094736f2ac010a69f (diff) | |
| download | gsl-shell-67e863fa3eef8e476507d58b7a21e7018ed56a28.tar.gz | |
| -rw-r--r-- | lua/src/lnum.h | 3 |
diff --git a/lua/src/lnum.h b/lua/src/lnum.h index ba3db44a..2690d6c0 100644 --- a/lua/src/lnum.h +++ b/lua/src/lnum.h @@ -83,7 +83,8 @@ int br_int= (int)br; - if ( ai!=0 && bi==0 && br_int==br && br_int!=0 && br_int!=INT_MIN ) { +// if ( ai!=0 && bi==0 && br_int==br && br_int!=0 && br_int!=INT_MIN ) { + if ( ar==0 && ai!=0 && bi==0 && br_int==br && br_int!=0 && br_int!=INT_MIN ) { /* (a+bi)^N, N = { +-1,+-2, ... +-INT_MAX } */ lua_Number k= luai_numpow( _LF(sqrt) (ar*ar + ai*ai), br ); |