From 3ac9536a8320e4b80e79ffab877a80a4f1ce60bc Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Sun, 17 Oct 2004 11:36:03 +0000
Subject: [PATCH] fix long long + apply

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6412 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/tcl/tcl8.swg | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/Lib/tcl/tcl8.swg b/Lib/tcl/tcl8.swg
index f8575da47..c2a778abe 100644
--- a/Lib/tcl/tcl8.swg
+++ b/Lib/tcl/tcl8.swg
@@ -139,13 +139,13 @@
 
 %typemap(out) long long {
   char temp[256]; 
-  sprintf(temp,"%lld", $1);
+  sprintf(temp,"%lld", (long long) $1);
   Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
 }
 
 %typemap(out) unsigned long long {
   char temp[256]; 
-  sprintf(temp,"%llu", $1);
+  sprintf(temp,"%llu", (unsigned long long) $1);
   Tcl_SetObjResult(interp,Tcl_NewStringObj(temp,-1));
 }
 
@@ -376,11 +376,9 @@
 }
 
 %typemap(varin) SWIGTYPE * {
-  void *temp;
-  if (SWIG_ConvertPtr($input,&temp,$1_descriptor, SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK) {
+  if (SWIG_ConvertPtr($input,(void **)&$1,$1_descriptor, SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK) {
     return (char*)"Type error. Expected $1_ltype";
   }
-  $1 = ($1_type) temp;
 }
 
 %typemap(varin) void * {