shithub: femtolisp

Info  •  Files  •  Log

mpint -> bignum

--- a/cvalues.c

+++ b/cvalues.c

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

 #endif

 value_t int8sym, uint8sym, int16sym, uint16sym, int32sym, uint32sym;

-value_t int64sym, uint64sym, mpintsym;

+value_t int64sym, uint64sym, bignumsym;

 value_t longsym, ulongsym, bytesym, wcharsym;

 value_t floatsym, doublesym;

 value_t gftypesym, stringtypesym, wcstringtypesym;

@@ -338,7 +338,7 @@

 	return 0;

 }

-/* */ BUILTIN("mpint", mpint)

+BUILTIN("bignum", bignum)

 {

 	if(nargs == 0){

 		PUSH(fixnum(0));

@@ -350,6 +350,7 @@

 	return cv;

 }

+

 value_t

 mk_mpint(mpint *n)

 {

@@ -1629,8 +1630,8 @@

 	mk_primtype(float, float);

 	mk_primtype(double, double);

-	ctor_cv_intern(mpint, T_MPINT, mpint*);

-	mpinttype = get_type(mpintsym);

+	ctor_cv_intern(bignum, T_MPINT, mpint*);

+	mpinttype = get_type(bignumsym);

 	mpinttype->init = cvalue_mpint_init;

 	mpinttype->vtable = &mpint_vtable;

--- a/print.c

+++ b/print.c

@@ -716,7 +716,7 @@

 			HPOS += ios_printf(f, "%"PRIu64, ui64);

 		else

 			HPOS += ios_printf(f, "#%s(%"PRIu64")", symbol_name(type), ui64);

-	}else if(type == mpintsym){

+	}else if(type == bignumsym){

 		mpint *i = *(mpint**)data;

 		char *s = mptoa(i, 10, nil, 0);

 		if(weak || print_princ)