gcc-4.0 warning fixes

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

Source/DOH/base.c

@@ -230,6 +230,8 @@ DohFirst(DOH *obj) {
   iter.object  = 0;
   iter.item    = 0;
   iter.key     = 0;
+  iter._current= 0;
+  iter._index  = 0;
   return iter;
 }
 

Source/DOH/dohint.h

@@ -105,11 +105,11 @@ typedef struct {
   void       *data;                 /* Data pointer */
   DohObjInfo *type;             
   void       *meta;                 /* Meta data */
-  int        flag_intern   : 1;        /* Interned object */
-  int        flag_marked   : 1;        /* Mark flag. Used to avoid recursive loops in places */
-  int        flag_user     : 1;        /* User flag */
-  int        flag_usermark : 1;        /* User marked */
-  int        refcount      : 28;       /* Reference count (max 16 million) */
+  unsigned int flag_intern   : 1;   /* Interned object */
+  unsigned int flag_marked   : 1;   /* Mark flag. Used to avoid recursive loops in places */
+  unsigned int flag_user     : 1;   /* User flag */
+  unsigned int flag_usermark : 1;   /* User marked */
+  unsigned int refcount      : 28;  /* Reference count (max 16 million) */
 } DohBase;
 
 /* Macros for decrefing and increfing (safe for null objects). */

Source/DOH/list.c

@@ -199,6 +199,7 @@ List_first(DOH *lo) {
   List *l = (List *) ObjData(lo);
   iter.object = lo;
   iter._index = 0;
+  iter._current = 0;
   iter.key = 0;
   if (l->nitems > 0) {
     iter.item = l->items[0];

Source/Modules/allegrocl.cxx

@@ -16,6 +16,11 @@ public:
 static File *f_cl=0;
 static File *f_null=0;
 
+static struct {
+  int count;
+  String **entries;
+} defined_foreign_types;
+
 const char *identifier_converter="identifier-convert-null";
 
 int any_varargs(ParmList *pl) {
@@ -95,11 +100,6 @@ String *convert_literal(String *num_param, String *type) {
 	return res;
 }
 
-struct {
-  int count;
-  String **entries;
-} defined_foreign_types;
-
 void add_defined_foreign_type(String *type) {
   if (!defined_foreign_types.count) {
     /* Make fresh */