X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=src%2Fent%2Fent-gaussian.c;h=be9dc141bca774b83e05b82c5df55f661d589c26;hb=0cfb00120c7ae337b69084b5625fbeb40a840689;hp=ea8e8efc3397eb8b7931ad7307e4e0cd93ab5f2c;hpb=b282c934958783ec39f9e021bd480e3279ad5a2f;p=sxemacs diff --git a/src/ent/ent-gaussian.c b/src/ent/ent-gaussian.c index ea8e8ef..be9dc14 100644 --- a/src/ent/ent-gaussian.c +++ b/src/ent/ent-gaussian.c @@ -26,6 +26,9 @@ along with this program. If not, see . */ #include "lisp.h" #include "sysproc.h" /* For qxe_getpid */ +#include "ent.h" +#include "ent-float.h" +#include "ent-mpfr.h" #include "ent-gaussian.h" #ifdef HAVE_MPC #include "ent-mpc.h" @@ -135,7 +138,7 @@ Bufbyte *bigg_to_string(bigg g, int base) Bufbyte *intg_str; Bufbyte *imag_str; int intg_len, imag_len; - int sign, neg; + int sign, neg; intg_str = (Bufbyte*)bigz_to_string(bigg_re(g), base); imag_str = (Bufbyte*)bigz_to_string(bigg_im(g), base); @@ -205,7 +208,7 @@ void bigg_set_bigz_bigz(bigg g, bigz z1, bigz z2) /* void bigc_set_bigg(bigc c, bigg g) * { - * bigc_set_bigfr_bigfr(bigg_re(g), z1); + * bigc_set_bigfr_bigfr(bigg_re(g), z1); * } */ @@ -454,7 +457,7 @@ Lisp_Object read_bigg_string(char *cp) /* jump over a leading minus */ cp++; } - + while ((*cp >= '0' && *cp <= '9')) cp++;