Use the DOH String instead of a static char array.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9297 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Source/Modules/cffi.cxx

@@ -325,7 +325,6 @@ int CFFI :: functionWrapper(Node *n) {
   ParmList *parms = Getattr(n,"parms");
   String  *iname = Getattr(n,"sym:name");
   Wrapper *wrap = NewWrapper();
-  char    wname[256];
 
   String *raw_return_type = Swig_typemap_lookup_new("ctype",n,"",0);
   SwigType *return_type = Swig_cparse_type(raw_return_type);
@@ -348,11 +347,9 @@ int CFFI :: functionWrapper(Node *n) {
       return SWIG_ERROR;
   }
 
-  String *nw = Swig_name_wrapper(iname);
-  strcpy(wname,Char(nw));
-  Delete(nw);
+  String *wname = Swig_name_wrapper(iname);
   if (overname) {
-    strcat(wname,Char(overname));
+    StringAppend(wname, overname);
   }
 
   // Emit all of the local variables for holding arguments.
@@ -449,6 +446,8 @@ int CFFI :: functionWrapper(Node *n) {
   //     }
   //   }
 
+  Delete(wname);
+
   return SWIG_OK;
 }
 

SWIG/Source/Modules/guile.cxx

@@ -1211,7 +1211,6 @@ public:
     SwigType *t = Getattr(n,"type");
     
     String *proc_name;
-    char  var_name[256];
     Wrapper *f;
     String  *tm;
     
@@ -1219,9 +1218,9 @@ public:
     
     f = NewWrapper();
     // evaluation function names
-    
-    strcpy(var_name, Char(Swig_name_wrapper(iname))); 
-    
+
+    String *var_name = Swig_name_wrapper(iname);
+
     // Build the name for scheme.
     proc_name = NewString(iname);
     Replaceall(proc_name,"_", "-");
@@ -1409,6 +1408,7 @@ public:
       Swig_warning(WARN_TYPEMAP_VAR_UNDEF, input_file, line_number,
 		   "Unsupported variable type %s (ignored).\n", SwigType_str(t,0));
     }
+    Delete(var_name);
     Delete(proc_name);
     DelWrapper(f);
     return SWIG_OK;
@@ -1429,18 +1429,17 @@ public:
 
     
     String *proc_name;
-    char   var_name[256];
+    String *var_name;
     String *rvalue;
     Wrapper *f;
     SwigType *nctype;
     String   *tm;
     
     f = NewWrapper();
-    
+
     // Make a static variable;
-    
-    sprintf (var_name, "%sconst_%s", prefix, iname);
-    
+    var_name = NewStringf("%sconst_%s", prefix, iname);
+
     // Strip const qualifier from type if present
     
     nctype = NewString(type);
@@ -1455,6 +1454,7 @@ public:
     if ((SwigType_type(nctype) == T_USER) && (!is_a_pointer(nctype))) {
       Swig_warning(WARN_TYPEMAP_CONST_UNDEF, input_file, line_number,
 		   "Unsupported constant value.\n");
+      Delete(var_name);
       return SWIG_NOWRAP;
     }
     
@@ -1491,6 +1491,7 @@ public:
       variableWrapper(n);
       Delete(n);
     }
+    Delete(var_name);
     Delete(nctype);
     Delete(proc_name);
     Delete(rvalue);

SWIG/Source/Modules/mzscheme.cxx

@@ -513,7 +513,6 @@ public:
     SwigType *t = Getattr(n,"type");
     
     String *proc_name = NewString("");
-    char  var_name[256];
     String *tm;
     String *tm2 = NewString("");;
     String *argnum = NewString("0");
@@ -523,11 +522,10 @@ public:
     if (!addSymbol(iname,n)) return SWIG_ERROR;
     
     f = NewWrapper();
-    
+
     // evaluation function names
-    
-    strcpy(var_name, Char(Swig_name_wrapper(iname)));
-    
+    String *var_name = Swig_name_wrapper(iname);
+
     // Build the name for scheme.
     Printv(proc_name, iname,NIL);
     Replaceall(proc_name, "_", "-");
@@ -593,6 +591,7 @@ public:
       Swig_warning(WARN_TYPEMAP_VAR_UNDEF, input_file, line_number,
 		   "Unsupported variable type %s (ignored).\n", SwigType_str(t,0));
     }
+    Delete(var_name);
     Delete(proc_name);
     Delete(argnum);
     Delete(arg);

SWIG/Source/Modules/ocaml.cxx

@@ -833,7 +833,6 @@ public:
 	SwigType *t = Getattr(n,"type");
 	
 	String *proc_name = NewString("");
-	char  var_name[256];
 	String *tm;
 	String *tm2 = NewString("");;
 	String *argnum = NewString("0");
@@ -854,8 +853,8 @@ public:
 	f = NewWrapper();
 
 	// evaluation function names
-	strcpy(var_name, Char(Swig_name_wrapper(iname)));
-	
+	String *var_name = Swig_name_wrapper(iname);
+
 	// Build the name for scheme.
 	Printv(proc_name, iname, NIL);
 	
@@ -931,6 +930,7 @@ public:
 		    mname, var_name );
 	}
 
+	Delete(var_name);
 	Delete(proc_name);
 	Delete(argnum);
 	Delete(arg);

SWIG/Source/Modules/python.cxx

@@ -1591,7 +1591,6 @@ public:
 
     Parm    *p;
     int     i;
-    char    wname[256];
     char    source[64];
     Wrapper *f;
     String *parse_args;
@@ -1657,11 +1656,9 @@ public:
 	((num_arguments == 1) && (num_required == 1) && Getattr(l,"self"))) allow_kwargs = 0;
     varargs = emit_isvarargs(l);
 
-    String *nw = Swig_name_wrapper(iname);
-    strcpy(wname,Char(nw));
-    Delete(nw);
+    String *wname = Swig_name_wrapper(iname);
     if (overname) {
-      strcat(wname,Char(overname));
+      Append(wname, overname);
     }
 
     if (!allow_kwargs || Getattr(n,"sym:overloaded")) {
@@ -2176,6 +2173,7 @@ public:
     Delete(cleanup);
     Delete(outarg);
     Delete(kwargs);
+    Delete(wname);
     DelWrapper(f);
     return SWIG_OK;
   }