[hcoop/debian/mlton.git] / runtime / gdtoa.hide-private-fns.patch

diff -Naur gdtoa.2/gdtoa.h gdtoa.3/gdtoa.h
--- gdtoa.2/gdtoa.h	2018-01-25 20:53:55.000000000 +0000
+++ gdtoa.3/gdtoa.h	2018-01-25 21:04:48.000000000 +0000
@@ -34,6 +34,7 @@
 
 #include "arith.h"
 #include <stddef.h> /* for size_t */
+#include "../export.h"
 
 #ifndef Long
 #define Long int
diff -Naur gdtoa.2/gdtoaimp.h gdtoa.3/gdtoaimp.h
--- gdtoa.2/gdtoaimp.h	2018-01-25 20:50:09.000000000 +0000
+++ gdtoa.3/gdtoaimp.h	2018-01-25 21:05:34.000000000 +0000
@@ -577,55 +577,55 @@
 #define trailz trailz_D2A
 #define ulp ulp_D2A
 
- extern char *add_nanbits ANSI((char*, size_t, ULong*, int));
- extern char *dtoa_result;
- extern CONST double bigtens[], tens[], tinytens[];
- extern unsigned char hexdig[];
- extern const char *InfName[6], *NanName[3];
+ PRIVATE extern char *add_nanbits ANSI((char*, size_t, ULong*, int));
+ PRIVATE extern char *dtoa_result;
+ PRIVATE extern CONST double bigtens[], tens[], tinytens[];
+ PRIVATE extern unsigned char hexdig[];
+ PRIVATE extern const char *InfName[6], *NanName[3];
 
- extern Bigint *Balloc ANSI((int MTd));
- extern void Bfree ANSI((Bigint* MTd));
- extern void ULtof ANSI((ULong*, ULong*, Long, int));
- extern void ULtod ANSI((ULong*, ULong*, Long, int));
- extern void ULtodd ANSI((ULong*, ULong*, Long, int));
- extern void ULtoQ ANSI((ULong*, ULong*, Long, int));
- extern void ULtox ANSI((UShort*, ULong*, Long, int));
- extern void ULtoxL ANSI((ULong*, ULong*, Long, int));
- extern ULong any_on ANSI((Bigint*, int));
- extern double b2d ANSI((Bigint*, int*));
- extern int cmp ANSI((Bigint*, Bigint*));
- extern void copybits ANSI((ULong*, int, Bigint*));
- extern Bigint *d2b ANSI((double, int*, int* MTd));
- extern void decrement ANSI((Bigint*));
- extern Bigint *diff ANSI((Bigint*, Bigint* MTd));
- extern char *dtoa ANSI((double d, int mode, int ndigits,
+ PRIVATE extern Bigint *Balloc ANSI((int MTd));
+ PRIVATE extern void Bfree ANSI((Bigint* MTd));
+ PRIVATE extern void ULtof ANSI((ULong*, ULong*, Long, int));
+ PRIVATE extern void ULtod ANSI((ULong*, ULong*, Long, int));
+ PRIVATE extern void ULtodd ANSI((ULong*, ULong*, Long, int));
+ PRIVATE extern void ULtoQ ANSI((ULong*, ULong*, Long, int));
+ PRIVATE extern void ULtox ANSI((UShort*, ULong*, Long, int));
+ PRIVATE extern void ULtoxL ANSI((ULong*, ULong*, Long, int));
+ PRIVATE extern ULong any_on ANSI((Bigint*, int));
+ PRIVATE extern double b2d ANSI((Bigint*, int*));
+ PRIVATE extern int cmp ANSI((Bigint*, Bigint*));
+ PRIVATE extern void copybits ANSI((ULong*, int, Bigint*));
+ PRIVATE extern Bigint *d2b ANSI((double, int*, int* MTd));
+ PRIVATE extern void decrement ANSI((Bigint*));
+ PRIVATE extern Bigint *diff ANSI((Bigint*, Bigint* MTd));
+ PRIVATE extern char *dtoa ANSI((double d, int mode, int ndigits,
 			int *decpt, int *sign, char **rve));
- extern char *g__fmt ANSI((char*, char*, char*, int, ULong, size_t));
- extern int gethex ANSI((CONST char**, CONST FPI*, Long*, Bigint**, int MTd));
- /* extern void hexdig_init ANSI((Void)); */
- extern int hexnan ANSI((CONST char**, CONST FPI*, ULong*));
- extern int hi0bits_D2A ANSI((ULong));
- extern Bigint *i2b ANSI((int MTd));
- extern Bigint *increment ANSI((Bigint* MTd));
- extern int lo0bits ANSI((ULong*));
- extern Bigint *lshift ANSI((Bigint*, int MTd));
- extern int match ANSI((CONST char**, char*));
- extern Bigint *mult ANSI((Bigint*, Bigint* MTd));
- extern Bigint *multadd ANSI((Bigint*, int, int MTd));
- extern char *nrv_alloc ANSI((char*, char **, int MTd));
- extern Bigint *pow5mult ANSI((Bigint*, int MTd));
- extern int quorem ANSI((Bigint*, Bigint*));
- extern double ratio ANSI((Bigint*, Bigint*));
- extern void rshift ANSI((Bigint*, int));
- extern char *rv_alloc ANSI((int MTd));
- extern Bigint *s2b ANSI((CONST char*, int, int, ULong, int MTd));
- extern Bigint *set_ones ANSI((Bigint*, int MTd));
- extern char *strcp ANSI((char*, const char*));
- extern int strtoIg ANSI((CONST char*, char**, CONST FPI*, Long*, Bigint**, int*));
- extern double strtod ANSI((const char *s00, char **se));
- extern Bigint *sum ANSI((Bigint*, Bigint* MTd));
- extern int trailz ANSI((Bigint*));
- extern double ulp ANSI((U*));
+ PRIVATE extern char *g__fmt ANSI((char*, char*, char*, int, ULong, size_t));
+ PRIVATE extern int gethex ANSI((CONST char**, CONST FPI*, Long*, Bigint**, int MTd));
+ /* PRIVATE extern void hexdig_init ANSI((Void)); */
+ PRIVATE extern int hexnan ANSI((CONST char**, CONST FPI*, ULong*));
+ PRIVATE extern int hi0bits_D2A ANSI((ULong));
+ PRIVATE extern Bigint *i2b ANSI((int MTd));
+ PRIVATE extern Bigint *increment ANSI((Bigint* MTd));
+ PRIVATE extern int lo0bits ANSI((ULong*));
+ PRIVATE extern Bigint *lshift ANSI((Bigint*, int MTd));
+ PRIVATE extern int match ANSI((CONST char**, char*));
+ PRIVATE extern Bigint *mult ANSI((Bigint*, Bigint* MTd));
+ PRIVATE extern Bigint *multadd ANSI((Bigint*, int, int MTd));
+ PRIVATE extern char *nrv_alloc ANSI((char*, char **, int MTd));
+ PRIVATE extern Bigint *pow5mult ANSI((Bigint*, int MTd));
+ PRIVATE extern int quorem ANSI((Bigint*, Bigint*));
+ PRIVATE extern double ratio ANSI((Bigint*, Bigint*));
+ PRIVATE extern void rshift ANSI((Bigint*, int));
+ PRIVATE extern char *rv_alloc ANSI((int MTd));
+ PRIVATE extern Bigint *s2b ANSI((CONST char*, int, int, ULong, int MTd));
+ PRIVATE extern Bigint *set_ones ANSI((Bigint*, int MTd));
+ PRIVATE extern char *strcp ANSI((char*, const char*));
+ PRIVATE extern int strtoIg ANSI((CONST char*, char**, CONST FPI*, Long*, Bigint**, int*));
+ PRIVATE extern double strtod ANSI((const char *s00, char **se));
+ PRIVATE extern Bigint *sum ANSI((Bigint*, Bigint* MTd));
+ PRIVATE extern int trailz ANSI((Bigint*));
+ PRIVATE extern double ulp ANSI((U*));
 
 #ifdef __cplusplus
 }
Commit	Line	Data
7f918cf1 CE	1	diff -Naur gdtoa.2/gdtoa.h gdtoa.3/gdtoa.h
	2	--- gdtoa.2/gdtoa.h 2018-01-25 20:53:55.000000000 +0000
	3	+++ gdtoa.3/gdtoa.h 2018-01-25 21:04:48.000000000 +0000
	4	@@ -34,6 +34,7 @@
	5
	6	#include "arith.h"
	7	#include <stddef.h> /* for size_t */
	8	+#include "../export.h"
	9
	10	#ifndef Long
	11	#define Long int
	12	diff -Naur gdtoa.2/gdtoaimp.h gdtoa.3/gdtoaimp.h
	13	--- gdtoa.2/gdtoaimp.h 2018-01-25 20:50:09.000000000 +0000
	14	+++ gdtoa.3/gdtoaimp.h 2018-01-25 21:05:34.000000000 +0000
	15	@@ -577,55 +577,55 @@
	16	#define trailz trailz_D2A
	17	#define ulp ulp_D2A
	18
	19	- extern char add_nanbits ANSI((char, size_t, ULong*, int));
	20	- extern char *dtoa_result;
	21	- extern CONST double bigtens[], tens[], tinytens[];
	22	- extern unsigned char hexdig[];
	23	- extern const char InfName[6], NanName[3];
	24	+ PRIVATE extern char add_nanbits ANSI((char, size_t, ULong*, int));
	25	+ PRIVATE extern char *dtoa_result;
	26	+ PRIVATE extern CONST double bigtens[], tens[], tinytens[];
	27	+ PRIVATE extern unsigned char hexdig[];
	28	+ PRIVATE extern const char InfName[6], NanName[3];
	29
	30	- extern Bigint *Balloc ANSI((int MTd));
	31	- extern void Bfree ANSI((Bigint* MTd));
	32	- extern void ULtof ANSI((ULong, ULong, Long, int));
	33	- extern void ULtod ANSI((ULong, ULong, Long, int));
	34	- extern void ULtodd ANSI((ULong, ULong, Long, int));
	35	- extern void ULtoQ ANSI((ULong, ULong, Long, int));
	36	- extern void ULtox ANSI((UShort, ULong, Long, int));
	37	- extern void ULtoxL ANSI((ULong, ULong, Long, int));
	38	- extern ULong any_on ANSI((Bigint*, int));
	39	- extern double b2d ANSI((Bigint, int));
	40	- extern int cmp ANSI((Bigint, Bigint));
	41	- extern void copybits ANSI((ULong, int, Bigint));
	42	- extern Bigint d2b ANSI((double, int, int* MTd));
	43	- extern void decrement ANSI((Bigint*));
	44	- extern Bigint diff ANSI((Bigint, Bigint* MTd));
	45	- extern char *dtoa ANSI((double d, int mode, int ndigits,
	46	+ PRIVATE extern Bigint *Balloc ANSI((int MTd));
	47	+ PRIVATE extern void Bfree ANSI((Bigint* MTd));
	48	+ PRIVATE extern void ULtof ANSI((ULong, ULong, Long, int));
	49	+ PRIVATE extern void ULtod ANSI((ULong, ULong, Long, int));
	50	+ PRIVATE extern void ULtodd ANSI((ULong, ULong, Long, int));
	51	+ PRIVATE extern void ULtoQ ANSI((ULong, ULong, Long, int));
	52	+ PRIVATE extern void ULtox ANSI((UShort, ULong, Long, int));
	53	+ PRIVATE extern void ULtoxL ANSI((ULong, ULong, Long, int));
	54	+ PRIVATE extern ULong any_on ANSI((Bigint*, int));
	55	+ PRIVATE extern double b2d ANSI((Bigint, int));
	56	+ PRIVATE extern int cmp ANSI((Bigint, Bigint));
	57	+ PRIVATE extern void copybits ANSI((ULong, int, Bigint));
	58	+ PRIVATE extern Bigint d2b ANSI((double, int, int* MTd));
	59	+ PRIVATE extern void decrement ANSI((Bigint*));
	60	+ PRIVATE extern Bigint diff ANSI((Bigint, Bigint* MTd));
	61	+ PRIVATE extern char *dtoa ANSI((double d, int mode, int ndigits,
	62	int decpt, int sign, char **rve));
	63	- extern char g__fmt ANSI((char, char, char, int, ULong, size_t));
	64	- extern int gethex ANSI((CONST char*, CONST FPI, Long, Bigint*, int MTd));
65	- /* extern void hexdig_init ANSI((Void)); */
66	- extern int hexnan ANSI((CONST char*, CONST FPI, ULong*));
67	- extern int hi0bits_D2A ANSI((ULong));
68	- extern Bigint *i2b ANSI((int MTd));
69	- extern Bigint increment ANSI((Bigint MTd));
70	- extern int lo0bits ANSI((ULong*));
71	- extern Bigint lshift ANSI((Bigint, int MTd));
72	- extern int match ANSI((CONST char*, char));
73	- extern Bigint mult ANSI((Bigint, Bigint* MTd));
74	- extern Bigint multadd ANSI((Bigint, int, int MTd));
75	- extern char nrv_alloc ANSI((char, char **, int MTd));
76	- extern Bigint pow5mult ANSI((Bigint, int MTd));
77	- extern int quorem ANSI((Bigint, Bigint));
78	- extern double ratio ANSI((Bigint, Bigint));
79	- extern void rshift ANSI((Bigint*, int));
80	- extern char *rv_alloc ANSI((int MTd));
81	- extern Bigint s2b ANSI((CONST char, int, int, ULong, int MTd));
82	- extern Bigint set_ones ANSI((Bigint, int MTd));
83	- extern char strcp ANSI((char, const char*));
84	- extern int strtoIg ANSI((CONST char, char, CONST FPI, Long, Bigint, int));
85	- extern double strtod ANSI((const char s00, char *se));
86	- extern Bigint sum ANSI((Bigint, Bigint* MTd));
87	- extern int trailz ANSI((Bigint*));
88	- extern double ulp ANSI((U*));
89	+ PRIVATE extern char g__fmt ANSI((char, char, char, int, ULong, size_t));
90	+ PRIVATE extern int gethex ANSI((CONST char*, CONST FPI, Long, Bigint*, int MTd));
91	+ /* PRIVATE extern void hexdig_init ANSI((Void)); */
92	+ PRIVATE extern int hexnan ANSI((CONST char*, CONST FPI, ULong*));
93	+ PRIVATE extern int hi0bits_D2A ANSI((ULong));
94	+ PRIVATE extern Bigint *i2b ANSI((int MTd));
95	+ PRIVATE extern Bigint increment ANSI((Bigint MTd));
96	+ PRIVATE extern int lo0bits ANSI((ULong*));
97	+ PRIVATE extern Bigint lshift ANSI((Bigint, int MTd));
98	+ PRIVATE extern int match ANSI((CONST char*, char));
99	+ PRIVATE extern Bigint mult ANSI((Bigint, Bigint* MTd));
100	+ PRIVATE extern Bigint multadd ANSI((Bigint, int, int MTd));
101	+ PRIVATE extern char nrv_alloc ANSI((char, char **, int MTd));
102	+ PRIVATE extern Bigint pow5mult ANSI((Bigint, int MTd));
103	+ PRIVATE extern int quorem ANSI((Bigint, Bigint));
104	+ PRIVATE extern double ratio ANSI((Bigint, Bigint));
105	+ PRIVATE extern void rshift ANSI((Bigint*, int));
106	+ PRIVATE extern char *rv_alloc ANSI((int MTd));
107	+ PRIVATE extern Bigint s2b ANSI((CONST char, int, int, ULong, int MTd));
108	+ PRIVATE extern Bigint set_ones ANSI((Bigint, int MTd));
109	+ PRIVATE extern char strcp ANSI((char, const char*));
110	+ PRIVATE extern int strtoIg ANSI((CONST char, char, CONST FPI, Long, Bigint, int));
111	+ PRIVATE extern double strtod ANSI((const char s00, char *se));
112	+ PRIVATE extern Bigint sum ANSI((Bigint, Bigint* MTd));
113	+ PRIVATE extern int trailz ANSI((Bigint*));
114	+ PRIVATE extern double ulp ANSI((U*));
115
116	#ifdef __cplusplus
117	}