From 057fbc7d83b465f9a44baafd8b4cc7684fb77cb6 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Sun, 19 Mar 2000 03:16:54 +0000
Subject: [PATCH] Fixed bool handling.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@346 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/Modules1.1/tcl8.cxx | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Source/Modules1.1/tcl8.cxx b/Source/Modules1.1/tcl8.cxx
index 49bfc0ca9..57618d1b1 100644
--- a/Source/Modules1.1/tcl8.cxx
+++ b/Source/Modules1.1/tcl8.cxx
@@ -513,13 +513,22 @@ void TCL8::create_function(char *name, char *iname, DataType *d, ParmList *l)
 	    
 	    // Signed Integers
 	  
-	  case T_BOOL:
 	  case T_INT:
 	  case T_SINT:
 	  case T_UINT:
 	    argstr << "i";
 	    args << ",&" << target;
 	    break;
+	  case T_BOOL:
+	    argstr << "i";
+	    {
+	      char tb[32];
+	      sprintf(tb,"tempb%d",i);
+	      f.add_local("int",tb);
+	      args << ",&" << tb;
+	      incode << tab4 << target << " = (bool) " << tb << ";\n";
+	    }
+	    break;
 	  case T_SHORT:
 	  case T_SSHORT:
 	  case T_USHORT: