Fix unused function argument warnings.

37 files changed, 53 insertions, 4 deletions

diff --git a/src/PJ_august.c b/src/PJ_august.c
index 4e6dab98..496fc3c3 100644
--- a/src/PJ_august.c
+++ b/src/PJ_august.c
@@ -4,6 +4,7 @@ PROJ_HEAD(august, "August Epicycloidal") "\n\tMisc Sph, no inv.";
 #define M 1.333333333333333
 FORWARD(s_forward); /* spheroid */
 	double t, c1, c, x1, x12, y1, y12;
+	(void) P;
 
 	t = tan(.5 * lp.phi);
 	c1 = sqrt(1. - t * t);
diff --git a/src/PJ_boggs.c b/src/PJ_boggs.c
index 48fdc9ab..b22a25ff 100644
--- a/src/PJ_boggs.c
+++ b/src/PJ_boggs.c
@@ -11,6 +11,7 @@ PROJ_HEAD(boggs, "Boggs Eumorphic") "\n\tPCyl., no inv., Sph.";
 FORWARD(s_forward); /* spheroid */
 	double theta, th1, c;
 	int i;
+	(void) P;
 
 	theta = lp.phi;
 	if (fabs(fabs(lp.phi) - HALFPI) < EPS)
diff --git a/src/PJ_cc.c b/src/PJ_cc.c
index be1191b6..0f573929 100644
--- a/src/PJ_cc.c
+++ b/src/PJ_cc.c
@@ -11,6 +11,7 @@ FORWARD(s_forward); /* spheroid */
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.phi = atan(xy.y);
 	lp.lam = xy.x;
 	return (lp);
diff --git a/src/PJ_collg.c b/src/PJ_collg.c
index ca389a63..871dfc97 100644
--- a/src/PJ_collg.c
+++ b/src/PJ_collg.c
@@ -5,6 +5,7 @@ PROJ_HEAD(collg, "Collignon") "\n\tPCyl, Sph.";
 #define FYC	1.77245385090551602729
 #define ONEEPS	1.0000001
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	if ((xy.y = 1. - sin(lp.phi)) <= 0.)
 		xy.y = 0.;
 	else
diff --git a/src/PJ_crast.c b/src/PJ_crast.c
index 5351a390..3f251ac6 100644
--- a/src/PJ_crast.c
+++ b/src/PJ_crast.c
@@ -8,12 +8,14 @@ PROJ_HEAD(crast, "Craster Parabolic (Putnins P4)")
 #define RYM	0.32573500793527994772
 #define THIRD	0.333333333333333333
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	lp.phi *= THIRD;
 	xy.x = XM * lp.lam * (2. * cos(lp.phi + lp.phi) - 1.);
 	xy.y = YM * sin(lp.phi);
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.phi = 3. * asin(xy.y * RYM);
 	lp.lam = xy.x * RXM / (2. * cos((lp.phi + lp.phi) * THIRD) - 1);
 	return (lp);
diff --git a/src/PJ_denoy.c b/src/PJ_denoy.c
index 8b800318..b1a6fe80 100644
--- a/src/PJ_denoy.c
+++ b/src/PJ_denoy.c
@@ -7,6 +7,7 @@ PROJ_HEAD(denoy, "Denoyer Semi-Elliptical") "\n\tPCyl., no inv., Sph.";
 #define D1	0.9
 #define D5	0.03
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.y = lp.phi;
 	xy.x = lp.lam;
 	lp.lam = fabs(lp.lam);
diff --git a/src/PJ_eck1.c b/src/PJ_eck1.c
index 9b31b095..b0b43da5 100644
--- a/src/PJ_eck1.c
+++ b/src/PJ_eck1.c
@@ -4,11 +4,13 @@ PROJ_HEAD(eck1, "Eckert I") "\n\tPCyl., Sph.";
 #define FC	.92131773192356127802
 #define RP	.31830988618379067154
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = FC * lp.lam * (1. - RP * fabs(lp.phi));
 	xy.y = FC * lp.phi;
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.phi = xy.y / FC;
 	lp.lam = xy.x / (FC * (1. - RP * fabs(lp.phi)));
 	return (lp);
diff --git a/src/PJ_eck2.c b/src/PJ_eck2.c
index f8e0154e..08b65595 100644
--- a/src/PJ_eck2.c
+++ b/src/PJ_eck2.c
@@ -6,6 +6,7 @@ PROJ_HEAD(eck2, "Eckert II") "\n\tPCyl. Sph.";
 #define C13	0.33333333333333333333
 #define ONEEPS	1.0000001
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = FXC * lp.lam * (xy.y = sqrt(4. - 3. * sin(fabs(lp.phi))));
 	xy.y = FYC * (2. - xy.y);
 	if ( lp.phi < 0.) xy.y = -xy.y;
diff --git a/src/PJ_eck4.c b/src/PJ_eck4.c
index f90267dd..0bedbbc9 100644
--- a/src/PJ_eck4.c
+++ b/src/PJ_eck4.c
@@ -11,6 +11,7 @@ PROJ_HEAD(eck4, "Eckert IV") "\n\tPCyl, Sph.";
 FORWARD(s_forward); /* spheroid */
 	double p, V, s, c;
 	int i;
+	(void) P;
 
 	p = C_p * sin(lp.phi);
 	V = lp.phi * lp.phi;
diff --git a/src/PJ_eck5.c b/src/PJ_eck5.c
index 3eeb3326..029c18e0 100644
--- a/src/PJ_eck5.c
+++ b/src/PJ_eck5.c
@@ -6,11 +6,13 @@ PROJ_HEAD(eck5, "Eckert V") "\n\tPCyl, Sph.";
 #define YF	0.88202554344910296438
 #define RYF	1.13375401361911319568
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = XF * (1. + cos(lp.phi)) * lp.lam;
 	xy.y = YF * lp.phi;
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.lam = RXF * xy.x / (1. + cos( lp.phi = RYF * xy.y));
 	return (lp);
 }
diff --git a/src/PJ_fahey.c b/src/PJ_fahey.c
index 93e9b38d..007fc906 100644
--- a/src/PJ_fahey.c
+++ b/src/PJ_fahey.c
@@ -3,11 +3,13 @@
 PROJ_HEAD(fahey, "Fahey") "\n\tPcyl, Sph.";
 #define TOL 1e-6
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.y = 1.819152 * ( xy.x = tan(0.5 * lp.phi) );
 	xy.x = 0.819152 * lp.lam * asqrt(1 - xy.x * xy.x);
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.phi = 2. * atan(xy.y /= 1.819152);
 	lp.lam = fabs(xy.y = 1. - xy.y * xy.y) < TOL ? 0. :
 		xy.x / (0.819152 * sqrt(xy.y));
diff --git a/src/PJ_gall.c b/src/PJ_gall.c
index 3c507bd0..1acd7d09 100644
--- a/src/PJ_gall.c
+++ b/src/PJ_gall.c
@@ -6,11 +6,13 @@ PROJ_HEAD(gall, "Gall (Gall Stereographic)") "\n\tCyl, Sph";
 #define RYF	0.58578643762690495119
 #define RXF	1.41421356237309504880
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = XF * lp.lam;
 	xy.y = YF * tan(.5 * lp.phi);
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.lam = RXF * xy.x;
 	lp.phi = 2. * atan(xy.y * RYF);
 	return (lp);
diff --git a/src/PJ_gins8.c b/src/PJ_gins8.c
index 0747d761..b7f38ad9 100644
--- a/src/PJ_gins8.c
+++ b/src/PJ_gins8.c
@@ -6,6 +6,7 @@ PROJ_HEAD(gins8, "Ginsburg VIII (TsNIIGAiK)") "\n\tPCyl, Sph., no inv.";
 #define	C12 0.08333333333333333
 FORWARD(s_forward); /* spheroid */
 	double t = lp.phi * lp.phi;
+	(void) P;
 
 	xy.y = lp.phi * (1. + t * C12);
 	xy.x = lp.lam * (1. - Cp * t);
diff --git a/src/PJ_hatano.c b/src/PJ_hatano.c
index 8e0ff5ce..7516ba6e 100644
--- a/src/PJ_hatano.c
+++ b/src/PJ_hatano.c
@@ -17,6 +17,7 @@ PROJ_HEAD(hatano, "Hatano Asymmetrical Equal Area") "\n\tPCyl, Sph.";
 FORWARD(s_forward); /* spheroid */
 	double th1, c;
 	int i;
+	(void) P;
 
 	c = sin(lp.phi) * (lp.phi < 0. ? CS : CN);
 	for (i = NITER; i; --i) {
diff --git a/src/PJ_healpix.c b/src/PJ_healpix.c
index 2cc918bb..f42357a5 100644
--- a/src/PJ_healpix.c
+++ b/src/PJ_healpix.c
@@ -466,6 +466,7 @@ static XY combine_caps(double x, double y, int north_square, int south_square,
     }
 }
 FORWARD(s_healpix_forward); /* sphere  */
+    (void) P;
     (void) xy;
     return healpix_sphere(lp);
 }
diff --git a/src/PJ_isea.c b/src/PJ_isea.c
index c68861d9..3fc508a3 100644
--- a/src/PJ_isea.c
+++ b/src/PJ_isea.c
@@ -59,7 +59,7 @@ int hex_iso(struct hex *h) {
 }
 
 ISEA_STATIC
-int hexbin2(int horizontal, double width, double x, double y,
+int hexbin2(double width, double x, double y,
                 int *i, int *j) {
 	double z, rx, ry, rz;
 	double abs_dx, abs_dy, abs_dz;
@@ -735,7 +735,7 @@ isea_dddi_ap3odd(struct isea_dgg *g, int quad, struct isea_pt *pt, struct isea_p
 	maxcoord = (int) (sidelength * 2.0 + 0.5);
 
 	v = *pt;
-	hexbin2(0, hexwidth, v.x, v.y, &h.x, &h.y);
+	hexbin2(hexwidth, v.x, v.y, &h.x, &h.y);
 	h.iso = 0;
 	hex_iso(&h);
 
@@ -813,7 +813,7 @@ isea_dddi(struct isea_dgg *g, int quad, struct isea_pt *pt, struct isea_pt *di)
 
 	v = *pt;
 	isea_rotate(&v, -30.0);
-	hexbin2(0, hexwidth, v.x, v.y, &h.x, &h.y);
+	hexbin2(hexwidth, v.x, v.y, &h.x, &h.y);
 	h.iso = 0;
 	hex_iso(&h);
 
diff --git a/src/PJ_larr.c b/src/PJ_larr.c
index 5bab2b09..118bef00 100644
--- a/src/PJ_larr.c
+++ b/src/PJ_larr.c
@@ -4,6 +4,7 @@
 PROJ_HEAD(larr, "Larrivee") "\n\tMisc Sph, no inv.";
 #define SIXTH .16666666666666666
 FORWARD(s_forward); /* sphere */
+	(void) P;
 	xy.x = 0.5 * lp.lam * (1. + sqrt(cos(lp.phi)));
 	xy.y = lp.phi / (cos(0.5 * lp.phi) * cos(SIXTH * lp.lam));
 	return (xy);
diff --git a/src/PJ_lask.c b/src/PJ_lask.c
index 05e80a19..797b580d 100644
--- a/src/PJ_lask.c
+++ b/src/PJ_lask.c
@@ -14,6 +14,7 @@ PROJ_HEAD(lask, "Laskowski") "\n\tMisc Sph, no inv.";
 #define	b05	-0.0491032
 FORWARD(s_forward); /* sphere */
 	double l2, p2;
+	(void) P;
 
 	l2 = lp.lam * lp.lam;
 	p2 = lp.phi * lp.phi;
diff --git a/src/PJ_mbt_fps.c b/src/PJ_mbt_fps.c
index 57a96e72..3cd5e674 100644
--- a/src/PJ_mbt_fps.c
+++ b/src/PJ_mbt_fps.c
@@ -12,6 +12,7 @@ PROJ_HEAD(mbt_fps, "McBryde-Thomas Flat-Pole Sine (No. 2)") "\n\tCyl., Sph.";
 FORWARD(s_forward); /* spheroid */
 	double k, V, t;
 	int i;
+	(void) P;
 
 	k = C3 * sin(lp.phi);
 	for (i = MAX_ITER; i ; --i) {
diff --git a/src/PJ_mbtfpp.c b/src/PJ_mbtfpp.c
index 9549a23a..433d3c8f 100644
--- a/src/PJ_mbtfpp.c
+++ b/src/PJ_mbtfpp.c
@@ -8,6 +8,7 @@ PROJ_HEAD(mbtfpp, "McBride-Thomas Flat-Polar Parabolic") "\n\tCyl., Sph.";
 #define C13	.33333333333333333333
 #define ONEEPS	1.0000001
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	lp.phi = asin(CS * sin(lp.phi));
 	xy.x = FXC * lp.lam * (2. * cos(C23 * lp.phi) - 1.);
 	xy.y = FYC * sin(C13 * lp.phi);
diff --git a/src/PJ_mbtfpq.c b/src/PJ_mbtfpq.c
index 3298db4f..0d343fad 100644
--- a/src/PJ_mbtfpq.c
+++ b/src/PJ_mbtfpq.c
@@ -13,6 +13,7 @@ PROJ_HEAD(mbtfpq, "McBryde-Thomas Flat-Polar Quartic") "\n\tCyl., Sph.";
 FORWARD(s_forward); /* spheroid */
 	double th1, c;
 	int i;
+	(void) P;
 
 	c = C * sin(lp.phi);
 	for (i = NITER; i; --i) {
diff --git a/src/PJ_mill.c b/src/PJ_mill.c
index 03c35598..c4cee7f5 100644
--- a/src/PJ_mill.c
+++ b/src/PJ_mill.c
@@ -2,11 +2,13 @@
 # include	<projects.h>
 PROJ_HEAD(mill, "Miller Cylindrical") "\n\tCyl, Sph";
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = lp.lam;
 	xy.y = log(tan(FORTPI + lp.phi * .4)) * 1.25;
 	return (xy);
 }
 INVERSE(s_inverse); /* spheroid */
+	(void) P;
 	lp.lam = xy.x;
 	lp.phi = 2.5 * (atan(exp(.8 * xy.y)) - FORTPI);
 	return (lp);
diff --git a/src/PJ_natearth.c b/src/PJ_natearth.c
index f83a3ffd..0f283415 100644
--- a/src/PJ_natearth.c
+++ b/src/PJ_natearth.c
@@ -36,6 +36,7 @@ PROJ_HEAD(natearth, "Natural Earth") "\n\tPCyl., Sph.";
 
 FORWARD(s_forward); /* spheroid */
 	double phi2, phi4;
+	(void) P;
 
 	phi2 = lp.phi * lp.phi;
 	phi4 = phi2 * phi2;
@@ -45,6 +46,7 @@ FORWARD(s_forward); /* spheroid */
 }
 INVERSE(s_inverse); /* spheroid */
 	double yc, tol, y2, y4, f, fder;
+	(void) P;
 
         /* make sure y is inside valid range */
 	if (xy.y > MAX_Y) {
diff --git a/src/PJ_nell.c b/src/PJ_nell.c
index dd41b468..77983de8 100644
--- a/src/PJ_nell.c
+++ b/src/PJ_nell.c
@@ -6,6 +6,7 @@ PROJ_HEAD(nell, "Nell") "\n\tPCyl., Sph.";
 FORWARD(s_forward); /* spheroid */
 	double k, V;
 	int i;
+	(void) P;
 
 	k = 2. * sin(lp.phi);
 	V = lp.phi * lp.phi;
diff --git a/src/PJ_nell_h.c b/src/PJ_nell_h.c
index 670dea88..22061ea9 100644
--- a/src/PJ_nell_h.c
+++ b/src/PJ_nell_h.c
@@ -4,6 +4,7 @@ PROJ_HEAD(nell_h, "Nell-Hammer") "\n\tPCyl., Sph.";
 #define NITER 9
 #define EPS 1e-7
 FORWARD(s_forward); /* spheroid */
+	(void) P;
 	xy.x = 0.5 * lp.lam * (1. + cos(lp.phi));
 	xy.y = 2.0 * (lp.phi - tan(0.5 *lp.phi));
 	return (xy);
@@ -11,6 +12,7 @@ FORWARD(s_forward); /* spheroid */
 INVERSE(s_inverse); /* spheroid */
 	double V, c, p;
 	int i;
+	(void) P;
 
 	p = 0.5 * xy.y;
 	for (i = NITER; i ; --i) {
diff --git a/src/PJ_nocol.c b/src/PJ_nocol.c
index f129eb25..2b005e1d 100644
--- a/src/PJ_nocol.c
+++ b/src/PJ_nocol.c
@@ -3,6 +3,8 @@
 PROJ_HEAD(nicol, "Nicolosi Globular") "\n\tMisc Sph, no inv.";
 #define EPS	1e-10
 FORWARD(s_forward); /* spheroid */
+	(void) P;
+
 	if (fabs(lp.lam) < EPS) {
 		xy.x = 0;
 		xy.y = lp.phi;
diff --git a/src/PJ_putp2.c b/src/PJ_putp2.c
index 33bc67ae..d6fcaea0 100644
--- a/src/PJ_putp2.c
+++ b/src/PJ_putp2.c
@@ -10,6 +10,7 @@ PROJ_HEAD(putp2, "Putnins P2") "\n\tPCyl., Sph.";
 FORWARD(s_forward); /* spheroid */
 	double p, c, s, V;
 	int i;
+	(void) P;
 
 	p = C_p * sin(lp.phi);
 	s = lp.phi * lp.phi;
diff --git a/src/PJ_robin.c b/src/PJ_robin.c
index 39513e2a..e8572ae4 100644
--- a/src/PJ_robin.c
+++ b/src/PJ_robin.c
@@ -69,6 +69,7 @@ static const struct COEFS Y[] = {
 FORWARD(s_forward); /* spheroid */
 	int i;
 	double dphi;
+	(void) P;
 
 	i = floor((dphi = fabs(lp.phi)) * C1);
 	if (i >= NODES) i = NODES - 1;
diff --git a/src/PJ_vandg4.c b/src/PJ_vandg4.c
index d6705031..0229042b 100644
--- a/src/PJ_vandg4.c
+++ b/src/PJ_vandg4.c
@@ -5,6 +5,7 @@ PROJ_HEAD(vandg4, "van der Grinten IV") "\n\tMisc Sph, no inv.";
 #define TWORPI	0.63661977236758134308
 FORWARD(s_forward); /* spheroid */
 	double x1, t, bt, ct, ft, bt2, ct2, dt, dt2;
+	(void) P;
 
 	if (fabs(lp.phi) < TOL) {
 		xy.x = lp.lam;
diff --git a/src/PJ_wag7.c b/src/PJ_wag7.c
index 5f6f1bb1..db29ffb1 100644
--- a/src/PJ_wag7.c
+++ b/src/PJ_wag7.c
@@ -3,6 +3,7 @@
 PROJ_HEAD(wag7, "Wagner VII") "\n\tMisc Sph, no inv.";
 FORWARD(s_forward); /* sphere */
 	double theta, ct, D;
+	(void) P;
 
 	theta = asin(xy.y = 0.90630778703664996 * sin(lp.phi));
 	xy.x = 2.66723 * (ct = cos(theta)) * sin(lp.lam /= 3.);
diff --git a/src/pj_apply_gridshift.c b/src/pj_apply_gridshift.c
index a9441b5e..521db709 100644
--- a/src/pj_apply_gridshift.c
+++ b/src/pj_apply_gridshift.c
@@ -119,6 +119,7 @@ int pj_apply_gridshift_3( projCtx ctx, PJ_GRIDINFO **tables, int grid_count,
 {
     int  i;
     static int debug_count = 0;
+    (void) z;
 
     if( tables == NULL || grid_count == 0 )
     {
diff --git a/src/pj_gauss.c b/src/pj_gauss.c
index c852c097..d9051943 100644
--- a/src/pj_gauss.c
+++ b/src/pj_gauss.c
@@ -66,6 +66,7 @@ pj_gauss_ini(double e, double phi0, double *chi, double *rc) {
 	LP
 pj_gauss(projCtx ctx, LP elp, const void *en) {
 	LP slp;
+	(void) ctx;
 
 	slp.phi = 2. * atan( EN->K *
 		pow(tan(.5 * elp.phi + FORTPI), EN->C) *
diff --git a/src/pj_gc_reader.c b/src/pj_gc_reader.c
index 1845fca0..8707975c 100644
--- a/src/pj_gc_reader.c
+++ b/src/pj_gc_reader.c
@@ -155,6 +155,8 @@ static int pj_gc_read_csv_line( projCtx ctx, PAFile fid,
 
 double pj_gc_parsedate( projCtx ctx, const char *date_string )
 {
+    (void) ctx;
+
     if( strlen(date_string) == 10 
         && date_string[4] == '-' && date_string[7] == '-' ) 
     {
diff --git a/src/pj_geocent.c b/src/pj_geocent.c
index e94e6e5b..fa5add3a 100644
--- a/src/pj_geocent.c
+++ b/src/pj_geocent.c
@@ -37,11 +37,13 @@ PJ_CVSID("$Id$");
 PROJ_HEAD(geocent, "Geocentric")  "\n\t";
 
 FORWARD(forward);
+	(void) P;
         xy.x = lp.lam;
         xy.y = lp.phi;
         return xy;
 }
 INVERSE(inverse);
+	(void) P;
         lp.phi = xy.y;
         lp.lam = xy.x;
         return lp;
diff --git a/src/pj_gridcatalog.c b/src/pj_gridcatalog.c
index 76f52c85..62b43b94 100644
--- a/src/pj_gridcatalog.c
+++ b/src/pj_gridcatalog.c
@@ -43,8 +43,9 @@ static PJ_GridCatalog *grid_catalog_list = NULL;
 /************************************************************************/
 
 void pj_gc_unloadall( projCtx ctx )
-
 {
+    (void) ctx;
+
     while( grid_catalog_list != NULL )
     {
         int i;
@@ -105,6 +106,7 @@ int pj_gc_apply_gridshift( PJ *defn, int inverse,
 
 {
     int i;
+    (void) z;
 
     if( defn->catalog == NULL ) 
     {
diff --git a/src/pj_log.c b/src/pj_log.c
index 630a3cfe..b7a22018 100644
--- a/src/pj_log.c
+++ b/src/pj_log.c
@@ -40,6 +40,8 @@ PJ_CVSID("$Id$");
 void pj_stderr_logger( void *app_data, int level, const char *msg )
 
 {
+    (void) app_data;
+    (void) level;
     fprintf( stderr, "%s\n", msg );
 }
 
diff --git a/src/pj_pr_list.c b/src/pj_pr_list.c
index e14b20d9..2861aacf 100644
--- a/src/pj_pr_list.c
+++ b/src/pj_pr_list.c
@@ -59,6 +59,7 @@ char *pj_get_def( PJ *P, int options )
     int l;
     char *definition;
     int  def_max = 10;
+    (void) options;
 
     definition = (char *) pj_malloc(def_max);
     definition[0] = '\0';