Minimize overhead in the (sadly needed) body of the loop.

If the body of the loop is removed, the foreach() is optimized away.
Also, the assignment of the global counter is removed as well in the
versions that use a global variable, which is really a bug.

lib/modules/Tools.pmod/Shoot.pmod/Foreach.pike

@@ -9,10 +9,8 @@ int n;
 void perform()
 {
     int res;
-
     foreach( const, int i )
-        res ++;
-
+        res=1;
     n=sizeof(const);
 }
 

lib/modules/Tools.pmod/Shoot.pmod/Foreach2.pike

@@ -9,10 +9,8 @@ int n;
 void perform()
 {
     int res;
-
     foreach( const;int ind; int i )
-        res ++;
-
+        res=1;
     n=sizeof(const);
 }
 

lib/modules/Tools.pmod/Shoot.pmod/Foreach3.pike

@@ -10,7 +10,7 @@ void perform()
 {
     int res;
     foreach( const;;n )
-        res ++;
+        res=1;
     n++;
 }
 

lib/modules/Tools.pmod/Shoot.pmod/Foreach4.pike

@@ -10,7 +10,7 @@ void perform()
 {
     int res;
     foreach( const;int ind;n )
-        res ++;
+        res=1;
     n++;
 }