- Some cleanup writes, e.g. making initalisation code order correspond

to struct field order.

src/arachne.c

@@ -73,7 +73,7 @@ arachneInit (const System mysys)
     rd = NULL;
     r->next = INTRUDER->roles;
     INTRUDER->roles = r;
-    compute_role_variables (sys, INTRUDER, r);
+    // compute_role_variables (sys, INTRUDER, r);
     return r;
   }
 
@@ -160,6 +160,9 @@ iterate_role_sends (int (*func) ())
 	    {
 	      if (rd->type == SEND)
 		{
+		  int x;
+
+		  x = 1;
 		  if (!func (p, r, rd, index))
 		    return 0;
 		}

src/role.c

@@ -191,10 +191,10 @@ roleCreate (Term name)
 
   r = memAlloc (sizeof (struct role));
   r->nameterm = name;
-  r->next = NULL;
+  r->roledef = NULL;
   r->locals = NULL;
   r->variables = NULL;
-  r->roledef = NULL;
+  r->next = NULL;
   return r;
 }
 

src/system.c

@@ -798,10 +798,10 @@ protocolCreate (Term name)
 
   p = memAlloc (sizeof (struct protocol));
   p->nameterm = name;
-  p->rolenames = NULL;
-  p->next = NULL;
   p->roles = NULL;
+  p->rolenames = NULL;
   p->locals = NULL;
+  p->next = NULL;
   return p;
 }