shithub: femtolisp

Info  •  Files  •  Log  •  Branches

don't use ulong, use uint32_t

--- a/3rd/mp/mpfmt.c

+++ b/3rd/mp/mpfmt.c

@@ -48,9 +48,9 @@

 }

 static char*

-modbillion(int rem, ulong r, char *out, char *buf)

+modbillion(int rem, uint32_t r, char *out, char *buf)

 {

-	ulong rr;

+	uint32_t rr;

 	int i;

 	for(i = 0; i < 9; i++){

--- a/3rd/mp/strtomp.c

+++ b/3rd/mp/strtomp.c

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

 	return next;

 }

-static ulong mppow10[] = {

+static uint32_t mppow10[] = {

 	1, 10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000

 };

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

 static char*

 from10(char *a, mpint *b)

 {

-	ulong x, y;

+	uint32_t x, y;

 	mpint *pow, *r;

 	int i;

--- a/3rd/mp/u64.c

+++ b/3rd/mp/u64.c

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

 int

 dec64x(uchar *out, int lim, char *in, int n, int (*chr)(int))

 {

-	ulong b24;

+	uint32_t b24;

 	uchar *start = out;

 	uchar *e = out + lim;

 	int i, c;

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

 enc64x(char *out, int lim, uchar *in, int n, int (*chr)(int))

 {

 	int i;

-	ulong b24;

+	uint32_t b24;

 	char *start = out;

 	char *e = out + lim;

--- a/posix/mp.h

+++ b/posix/mp.h

@@ -2,7 +2,6 @@

 typedef uint32_t mpdigit;

 typedef uint8_t uchar;

-typedef uint32_t ulong;

 typedef uint32_t u32int;

 typedef unsigned int uint;

 typedef int64_t vlong;