Clean warning and fix windows 'cdecl' issue

Author: sethrj

Source/Modules/fortran.cxx

@@ -131,7 +131,7 @@ bool is_fortran_intexpr(String *s) {
  */
 int fix_fortran_dims(Node *n, const char *tmap_name, String *typemap) {
   String *key = NewStringf("tmap:%s:checkdim", tmap_name);
-  bool is_checkdims = GetFlag(n, key);
+  bool is_checkdims = static_cast<bool>(GetFlag(n, key));
   Delete(key);
   if (!is_checkdims)
     return SWIG_OK;
@@ -242,7 +242,7 @@ String *make_import_string(String *imtype) {
     ++end;
 
   // Create a substring and convert to lowercase
-  String* result = NewStringWithSize(start, end - start);
+  String* result = NewStringWithSize(start, static_cast<int>(end - start));
   for (char* c = Char(result); *c != '\0'; ++c)
     *c = tolower(*c);
 
@@ -293,7 +293,7 @@ String *shorten_identifier(String *inp, int maxlen, int warning) {
   while (hash > 0) {
     unsigned long rem = hash % 36;
     hash = hash / 36;
-    *dst-- = (rem < 10 ? '0' + rem : ('A' + rem - 10));
+    *dst-- = static_cast<char>(rem < 10 ? '0' + rem : ('A' + rem - 10));
   }
 
   if (warning != WARN_NONE && !Getmeta(inp, "already_warned")) {
@@ -1072,7 +1072,7 @@ int FORTRAN::moduleDirective(Node *n) {
  *  - static functions
  */
 int FORTRAN::functionWrapper(Node *n) {
-  const bool member = GetFlag(n, "fortran:ismember");
+  const bool member = static_cast<bool>(GetFlag(n, "fortran:ismember"));
   bool generic = false;
 
   // >>> SET UP WRAPPER NAME
@@ -1292,7 +1292,7 @@ int FORTRAN::functionWrapper(Node *n) {
 
   // >>> GENERATE CODE FOR MODULE INTERFACE
 
-  bool fprivate = GetFlag(n, "fortran:private");
+  bool fprivate = static_cast<bool>(GetFlag(n, "fortran:private"));
   if (member) {
     // Wrapping a member function
     ASSERT_OR_PRINT_NODE(!this->is_bindc_struct(), n);
@@ -2396,7 +2396,7 @@ int FORTRAN::classHandler(Node *n) {
     }
   }
 
-  const bool bindc = GetFlag(n, "feature:fortran:bindc");
+  const bool bindc = static_cast<bool>(GetFlag(n, "feature:fortran:bindc"));
   if (bindc && base_fsymname) {
     // Disallow inheritance for BIND(C) types
     Swig_error(input_file, line_number,
@@ -3323,7 +3323,7 @@ int FORTRAN::classDirectorDefaultConstructor(Node *n) {
  *  - "directorout" converts "ctype" to actual C++ type
  */
 int FORTRAN::classDirectorMethod(Node *n, Node *classn, String *super) {
-  bool ignored = GetFlag(n, "feature:ignore");
+  bool ignored = static_cast<bool>(GetFlag(n, "feature:ignore"));
   bool pure_virtual = is_pure_virtual(n);
   if (ignored && !pure_virtual)
     return SWIG_NOWRAP;
@@ -3563,9 +3563,9 @@ int FORTRAN::classDirectorMethod(Node *n, Node *classn, String *super) {
 
     // Create local variables that become arguments to fortran
     {
-      String *cdecl = SwigType_lstr(ctype, imarg);
-      Wrapper_add_localv(cppfunc, imarg, cdecl, NULL);
-      Delete(cdecl);
+      String *argcdecl = SwigType_lstr(ctype, imarg);
+      Wrapper_add_localv(cppfunc, imarg, argcdecl, NULL);
+      Delete(argcdecl);
     }
 
     // Add C++ -> C conversion typemaps for input args