gmmproc: Use an environment variable for the return mismatches.

	* tools/gmmproc.in: Check for the GMMPROC_RETURN_MISMATCHES
	environment variable and use its value as the default for the internal
	boolean '$main::return_mismatches' variable which when true makes
	gmmproc report if the return type in a _WRAP_METHOD() does not match
	the C function return type.

1 files changed, 7 insertions, 7 deletions

diff --git a/tools/gmmproc.in b/tools/gmmproc.in
index eb9b35f7..8b576539 100644
--- a/tools/gmmproc.in
+++ b/tools/gmmproc.in
@@ -60,13 +60,13 @@ use Output;
 use WrapParser;
 
 # initialize globals 
-@main::macrodirs = ();
-$main::srcdir    = '.';
-$main::defsdir   = '.';
-$main::source    = '';
-$main::unwrapped = 1;
-$main::return_mismatches = 0;
-$main::debug     = (exists $ENV{'GMMPROC_DEBUG'}) ? $ENV{'GMMPROC_DEBUG'} : '';
+@main::macrodirs         = ();
+$main::srcdir            = '.';
+$main::defsdir           = '.';
+$main::source            = '';
+$main::unwrapped         = 1;
+$main::return_mismatches = (exists $ENV{'GMMPROC_RETURN_MISMATCHES'}) ? $ENV{'GMMPROC_RETURN_MISMATCHES'} : 0;
+$main::debug             = (exists $ENV{'GMMPROC_DEBUG'}) ? $ENV{'GMMPROC_DEBUG'} : '';
 
 # prototypes
 sub parse_command_line_args();