From 078fffaadabc3bfa3d02358ec87be2b59e5588f7 Mon Sep 17 00:00:00 2001 From: Dave Beazley Date: Wed, 2 Feb 2000 04:36:31 +0000 Subject: [PATCH] Minor changes git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@178 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Source/Modules1.1/tcl8.cxx | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/SWIG/Source/Modules1.1/tcl8.cxx b/SWIG/Source/Modules1.1/tcl8.cxx index 13d3b5ebb..6ac698d6d 100644 --- a/SWIG/Source/Modules1.1/tcl8.cxx +++ b/SWIG/Source/Modules1.1/tcl8.cxx @@ -395,29 +395,6 @@ void TCL8::get_pointer(char *iname, char *srcname, char *src, char *dest, else f << "SWIGTYPE" << t->print_mangle() << ")) == TCL_ERROR) { return TCL_ERROR; }\n"; - // Now emit code according to the level of strictness desired -#ifdef OLD - switch(TypeStrict) { - case 0: // No type checking - f << tab4 << "}\n"; - break; - case 1: // Warning message only - f << tab8 << "fprintf(stderr,\"Warning : type mismatch in " << srcname - << " of " << iname << ". Expected " << t->print_mangle() - << ", received %s\\n\", rettype);\n" - << tab4 << "}\n"; - case 2: // Super strict mode. - f << tab8 << "Tcl_SetResult(interp, \"Type error in " << srcname << " of " << iname - << ". Expected " << t->print_mangle() << ", received \", TCL_STATIC);\n" - << tab8 << "Tcl_AppendElement(interp, rettype);\n" - << tab8 << ret << ";\n" - << tab4 << "}\n"; - break; - default : - fprintf(stderr,"Unknown strictness level\n"); - break; - } -#endif }