From 59ec687725274ed72b85c19662fd79b8eeb692f2 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Mon, 4 Sep 2000 02:16:17 +0000
Subject: [PATCH] Fixed pointer to function bug.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@825 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/SWIG1.1/parser.yxx | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Source/SWIG1.1/parser.yxx b/Source/SWIG1.1/parser.yxx
index 99fdb6505..48d79f9cf 100644
--- a/Source/SWIG1.1/parser.yxx
+++ b/Source/SWIG1.1/parser.yxx
@@ -1095,7 +1095,8 @@ statement      : INCLUDE STRING LBRACE {
 		 p = $7;
 		 while (p) {
 		   if (strcmp($3,typemap_lang) == 0) {
-		     Swig_typemap_clear($5,Gettype(p->p),Getname(p->p));
+	             Printf(stderr,"%s:%d. Warning. Typemap deletion is temporary disabled in this release.\n", input_file, line_number);
+/*		     Swig_typemap_clear($5,Gettype(p->p),Getname(p->p)); */
 		   }
 		   p = p->next;
 		 }
@@ -1113,7 +1114,8 @@ statement      : INCLUDE STRING LBRACE {
 		   TMParm *p;
 		   p = $5;
 		   while (p) {
-		     Swig_typemap_clear($3,Gettype(p->p),Getname(p->p));
+	             Printf(stderr,"%s:%d. Warning. Typemap deletion is temporary disabled in this release.\n", input_file, line_number);
+/*		     Swig_typemap_clear($3,Gettype(p->p),Getname(p->p)); */
 		     p = p->next;
 		   }
 		 }
@@ -1175,7 +1177,8 @@ statement      : INCLUDE STRING LBRACE {
 		 TMParm *p;
 		 p = $2;
 		 while (p) {
-		   Swig_typemap_clear_apply(Gettype(p->p), Getname(p->p));
+		  Printf(stderr,"%s:%d. Warning. %%clear directive is temporarily disabled in this release. Ignored.\n", input_file, line_number);
+/*		   Swig_typemap_clear_apply(Gettype(p->p), Getname(p->p)); */
 		   p = p->next;
 		 }
                }
@@ -1502,7 +1505,6 @@ parm_type      : type pname {
 		  free($3);
 		}
                 | type LPAREN stars pname RPAREN LPAREN parms RPAREN {
-		  FatalError();
 		  $$ = NewParm($1,$4);
 		  SwigType *pt = Gettype($$);
 		  DOHList *l = typelist($7);