Clean up dead stores

Does not change optimized code (gcc -O).

Spotted by the Clang Static Analyzer.

src/lib/commands/bomb.c

@@ -520,7 +520,6 @@ ship_bomb(struct emp_qelem *list, struct sctstr *target)
 		continue;
 	}
 
-	dam = 0;
 	if (nuk_on_plane(&plp->plane) >= 0)
 	    hitchance = 100;
 	else {
@@ -624,7 +623,6 @@ plane_bomb(struct emp_qelem *list, struct sctstr *target)
 	    continue;
 	if (changed_plane_aborts(plp))
 	    continue;
-	dam = 0;
 	if (nuk_on_plane(&plp->plane) >= 0)
 	    hitchance = 100;
 	else {
@@ -735,7 +733,6 @@ land_bomb(struct emp_qelem *list, struct sctstr *target)
 		continue;
 	}
 
-	dam = 0;
 	if (nuk_on_plane(&plp->plane) >= 0)
 	    hitchance = 100;
 	else {

src/lib/commands/comm.c

@@ -51,7 +51,6 @@ comm(void)
 	return RET_SYN;
     prdate();
     (void)strcpy(dirstr, ".      $");
-    n = 1;
     for (n = 1; n <= 6; n++)
 	dirstr[n] = dirch[n];
     nsect = 0;

src/lib/commands/cuto.c

@@ -49,7 +49,6 @@ cuto(void)
 	return RET_SYN;
     prdate();
     (void)strcpy(dirstr, ".      $");
-    n = 1;
     for (n = 1; n <= 6; n++)
 	dirstr[n] = dirch[n];
     nsect = 0;

src/lib/commands/dump.c

@@ -54,7 +54,6 @@ dump(void)
 	return RET_SYN;
     prdate();
     (void)strcpy(dirstr, ".      $");
-    n = 1;
     for (n = 1; n <= 6; n++)
 	dirstr[n] = dirch[n];
     nsect = 0;

src/lib/commands/head.c

@@ -105,7 +105,7 @@ head(void)
     for (n = 0; n < 5; n++) {
 	if ((scoop = head_findscoop(hist, maxcnum, &actor, &victim)) < 10)
 	    break;
-	severity = head_printscoop(hist, actor, victim);
+	head_printscoop(hist, actor, victim);
 	hp = &hist[actor][victim];
 	severity = hp->h_recent - hp->h_past;
 	if (severity <= -scoop / 2 || severity >= scoop / 2) {

src/lib/commands/mfir.c

@@ -72,7 +72,6 @@ multifire(void)
     coord fy;
     coord x;
     coord y;
-    int mil;
     int dam;
     int totaldefdam = 0;
     int vshipno;
@@ -265,7 +264,7 @@ multifire(void)
 		    continue;
 		}
 	    }
-	    if ((mil = fship.shp_item[I_MILIT]) < 1) {
+	    if (fship.shp_item[I_MILIT] < 1) {
 		pr("Not enough military for firing crew.\n");
 		continue;
 	    }

src/lib/commands/newe.c

@@ -79,7 +79,6 @@ newe(void)
 		if (twork > bwork) {
 		    twork = bwork;
 		}
-		work -= twork;
 		bwork -= twork;
 		eff -= twork * 4;
 		if (eff <= 0) {
@@ -103,7 +102,6 @@ newe(void)
 		    if (twork > hcms)
 			twork = hcms;
 		}
-		work -= twork;
 		eff += twork;
 	    } else if (eff < 100) {
 		twork = 100 - eff;
@@ -122,7 +120,6 @@ newe(void)
 		    if (twork > hcms)
 			twork = hcms;
 		}
-		work -= twork;
 		eff += twork;
 	    }
 	} else {

src/lib/commands/orde.c

@@ -60,7 +60,7 @@ int
 orde(void)
 {
     int diffeachship = 0;
-    int orders, sub, level;
+    int sub, level;
     int scuttling = 0;
     struct nstr_item nb;
     struct shpstr ship;
@@ -121,7 +121,6 @@ orde(void)
 	    ship.shp_autonav &= ~AN_STANDBY;
 	    break;
 	case 'd':		/* declare path */
-	    orders = 0;
 	    scuttling = 0;
 	    /* Need location */
 	    p = getstarg(player->argp[3], "Destination? ", buf);
@@ -132,14 +131,10 @@ orde(void)
 	    p1x = p0x;
 	    p1y = p0y;
 
-
-
-	    if (!orders) {
 	    p = getstarg(player->argp[4], "Second dest? ", buf);
 	    if (!p)
 		return RET_FAIL;
 	    if (!*p || !strcmp(p, "-")) {
-		    orders = 1;
 		pr("A one-way order has been accepted.\n");
 	    } else if (!strncmp(p, "s", 1)) {
 		if (opt_TRADESHIPS) {
@@ -158,7 +153,6 @@ orde(void)
 		    return RET_SYN;
 		pr("A circular order has been accepted.\n");
 	    }
-	    }
 
 	    /*
 	     *  Set new destination and trade type fields.
@@ -200,9 +194,7 @@ orde(void)
 	    sub = sub - 1;;
 
 	    if (ship.shp_autonav & AN_AUTONAV) {
-		orders = 1;
 		dest = getstarg(player->argp[4], "Start or End? ", buf);
-		if (orders) {	/* before dest check */
 		if (!dest)
 		    break;
 		switch (*dest) {
@@ -250,7 +242,6 @@ orde(void)
 		    pr("Order Set \n");
 		    break;
 		}
-		}
 	    } else
 		pr("You need to 'declare' a ship path first, see 'info order'\n");
 

src/lib/commands/sell.c

@@ -57,7 +57,6 @@ sell(void)
     struct ichrstr *ip;
     struct comstr comm;
     int number_set;
-    int number_sub;
     int totalcom;
     int amt;
     int com;
@@ -99,7 +98,6 @@ sell(void)
 	pr("Sectors need at least 1 mobility to sell goods.\n");
 	return RET_FAIL;
     }
-    number_sub = 0;
     p = getstarg(player->argp[3], "Quantity: ", buf);
     if (!p || !*p)
 	return RET_SYN;

src/lib/commands/work.c

@@ -127,7 +127,6 @@ buildeff(struct sctstr *sp, int work, double *money)
     int n, hcms, lcms;
     int effdone = 0;
 
-    work_cost = 0;
     if (sp->sct_type != sp->sct_newtype) {
 	/*
 	 * Tear down existing sector.

src/lib/common/bestpath.c

@@ -125,7 +125,6 @@ bestownedpath(char *bpath, char *bigmap,
 
     routelen = 0;		/* path length is now 0 */
     mapindex[x][y] = 0;		/* mark starting spot   */
-    markedsectors = 1;		/* source sector marked */
     minx = x - 2;		/* set X scan bounds    */
     maxx = x + 2;
     miny = y - 1;		/* set Y scan bounds    */

src/lib/subs/aircombat.c

@@ -420,7 +420,6 @@ ac_airtoair(struct emp_qelem *att_list, struct emp_qelem *int_list)
     struct plist *interceptor;
     struct emp_qelem *att;
     struct emp_qelem *in;
-    int nplanes;
     int more_att;
     int more_int;
     struct emp_qelem *att_next;
@@ -439,9 +438,6 @@ ac_airtoair(struct emp_qelem *att_list, struct emp_qelem *int_list)
 	att_next = att->q_forw;
 	attacker = (struct plist *)att;
 	interceptor = (struct plist *)in;
-	nplanes = attacker->plane.pln_effic;
-	if (nplanes > interceptor->plane.pln_effic)
-	    nplanes = interceptor->plane.pln_effic;
 	ac_dog(attacker, interceptor);
 	in = in_next;
 	att = att_next;
@@ -751,8 +747,6 @@ ac_fireflak(struct emp_qelem *list, natid from, int guns)
     struct emp_qelem *next;
     char msg[255];
 
-    plp = (struct plist *)list->q_forw;
-
     for (qp = list->q_forw; qp != list; qp = next) {
 	next = qp->q_forw;
 	plp = (struct plist *)qp;

src/lib/subs/aswplnsubs.c

@@ -99,7 +99,6 @@ print_shiplist(struct shiplist *head)
 {
     struct shiplist *s;
     int first;
-    struct mchrstr *mp;
     struct shpstr ship;
 
     s = head;
@@ -107,7 +106,6 @@ print_shiplist(struct shiplist *head)
 
     while (s != NULL) {
 	getship(s->uid, &ship);
-	mp = &mchr[(int)ship.shp_type];
 	if (first) {
 	    pr(" #          player->owner           eff        type\n");
 	    first = 0;

src/lib/subs/border.c

@@ -54,7 +54,7 @@ blankfill(char *ptr, struct range *range, int size)
 	p = ptr;
 	while (--col >= 0)
 	    *p++ = ' ';
-	*p++ = 0;
+	*p = 0;
 	ptr += MAPWIDTH(size);
     }
 }

src/lib/subs/lndsub.c

@@ -178,10 +178,9 @@ lnd_take_casualty(int combat_mode, struct ulist *llp, int cas)
 
     taken = llp->unit.land.lnd_item[I_MILIT];
     /* Spies always die */
-    if (((struct lchrstr *)llp->chrp)->l_flags & L_SPY) {
+    if (((struct lchrstr *)llp->chrp)->l_flags & L_SPY)
-	eff_eq = 100;
 	llp->unit.land.lnd_effic = 0;
-    } else {
+    else {
 	eff_eq = ldround(cas * 100.0 /
 	    ((struct lchrstr *)llp->chrp)->l_item[I_MILIT], 1);
 	llp->unit.land.lnd_effic -= eff_eq;
@@ -1054,7 +1053,6 @@ lnd_mar_one_sector(struct emp_qelem *list, int dir, natid actor,
 	/* move survivors to done */
 	for (qp = cur.q_back; qp != &cur; qp = next) {
 	    next = qp->q_back;
-	    llp = (struct ulist *)qp;
 	    emp_remque(qp);
 	    emp_insque(qp, &done);
 	}

src/lib/subs/maps.c

@@ -175,7 +175,6 @@ draw_map(int bmap, char origin, int map_flags, struct nstr_sect *nsp)
 	switch (bmap) {
 	default:
 	    CANT_REACH();
-	    bmap = 'b';
 	    /* fall through */
 	case 'b':
 	    while (bmnxtsct(nsp) && !player->aborted) {

src/lib/subs/mission.c

@@ -1075,7 +1075,6 @@ air_damage(struct emp_qelem *bombers, coord x, coord y, int mission,
 	if (!plp->load)
 	    continue;
 
-	newdam = 0;
 	if (plp->pcp->pl_flags & P_A) {
 	    if (roll(100) > pln_identchance(pp, hardtarget, EF_SHIP)) {
 		wu(0, pp->pln_own,

src/lib/subs/mslsub.c

@@ -216,7 +216,6 @@ msl_intercept(struct plnstr *msl, struct sctstr *sp, int sublaunch,
 	      int news_item)
 {
     struct plnstr *pp;
-    struct plchrstr *pcp;
     struct emp_qelem *intlist;
     struct emp_qelem intfoo;
     struct emp_qelem *qp;
@@ -236,7 +235,6 @@ msl_intercept(struct plnstr *msl, struct sctstr *sp, int sublaunch,
 	pp = &ip->plane;
 	if (pp->pln_own != sp->sct_own)
 	    continue;
-	pcp = ip->pcp;
 	if (mission_pln_equip(ip, NULL, 'i') < 0) {
 	    emp_remque(qp);
 	    free(qp);
@@ -255,7 +253,6 @@ msl_intercept(struct plnstr *msl, struct sctstr *sp, int sublaunch,
 	next = qp->q_forw;
 	ip = (struct plist *)qp;
 	pp = &ip->plane;
-	pcp = ip->pcp;
 	if (mission_pln_equip(ip, NULL, 'i') < 0) {
 	    emp_remque(qp);
 	    free(qp);
@@ -287,7 +284,6 @@ msl_intercept(struct plnstr *msl, struct sctstr *sp, int sublaunch,
 	qp = intlist->q_forw;
 	ip = (struct plist *)qp;
 	pp = &ip->plane;
-	pcp = ip->pcp;
 
 	mpr(msl->pln_own, "%s %s launched in defense!\n",
 	    cname(pp->pln_own), def_name);

src/lib/subs/retreat.c

@@ -145,7 +145,6 @@ retreat_ship1(struct shpstr *sp, char code, int orig)
     if (sp->shp_own == 0)
 	return 0;
 
-    n = 0;
     if (sp->shp_effic < SHIP_MINEFF) {
 	wu(0, sp->shp_own,
 	   "%s %s,\nbut it died in the attack, and so couldn't retreat!\n",
@@ -405,7 +404,6 @@ retreat_land1(struct lndstr *lp, char code, int orig)
     if (lp->lnd_own == 0)
 	return 0;
 
-    n = 0;
     if (lp->lnd_effic < LAND_MINEFF) {
 	wu(0, lp->lnd_own,
 	   "%s %s,\nbut it died in the attack, and so couldn't retreat!\n",

src/lib/subs/takeover.c

@@ -130,7 +130,6 @@ takeover(struct sctstr *sp, natid newown)
      * n: random number from -25:75 + (50 - loyalty)
      */
     n = (50 - sp->sct_loyal) + ((random() % 100) - 25);
-    che_count = 0;
     if (n > 0 && sp->sct_own == sp->sct_oldown) {
 	che_count = (civ * n / 3000) + 5;
 	if (che_count * 2 > civ)

src/lib/update/deliver.c

@@ -50,7 +50,6 @@ deliver(struct sctstr *from, struct ichrstr *ip, int dir,
     int amt_dst;
     int mobility;
     double mcost;
-    struct dchrstr *dp;
     int n;
 
     if (dir <= 0 || dir > DIR_UL)
@@ -73,7 +72,6 @@ deliver(struct sctstr *from, struct ichrstr *ip, int dir,
 	   ip->i_name, ownxy(from));
 	return 0;
     }
-    dp = &dchr[from->sct_type];
     vtype = ip->i_uid;
     mobility = from->sct_mobil / 2;
     if (vtype == I_CIVIL) {

src/lib/update/nav_ship.c

@@ -272,8 +272,6 @@ nav_ship(struct shpstr *sp)
     mlp->mobil = sp->shp_mobil;
     emp_insque(&mlp->queue, &ship_list);
 
-    quit = 1;			/* setup loop, we want to check it 1 time. */
-
     do {
 	if ((sp->shp_mobil > 0) && (!(sp->shp_autonav & AN_LOADING)) &&
 	    (!(sp->shp_autonav & AN_STANDBY))) {

src/lib/update/revolt.c

@@ -62,7 +62,6 @@ revolt(struct sctstr *sp)
     if (che > (civ + uw) * 3)
 	return;
     che_uw = 0;
-    che_civ = 0;
     /* che due to civilian unrest */
     n = 10 - (random() % 20);
     che_civ = 3 + (civ * n / 500);
@@ -254,7 +253,6 @@ guerrilla(struct sctstr *sp)
 	 * guerrillas have to resort to blowing things up.
 	 * Note this disrupts work in the sector.
 	 */
-	n = 0;
 	n = (random() % 10) + (random() % che);
 	if (n > 100)
 	    n = 100;

src/lib/update/ship.c

@@ -275,7 +275,6 @@ shiprepair(struct shpstr *ship, struct natstr *np, struct bp *bp, int etus)
 	    return;
     }
 
-    wf = 0;
     /* only military can work on a military boat */
     if (mp->m_glim != 0)
 	wf = etus * ship->shp_item[I_MILIT] / 2;

src/util/fairland.c

@@ -1166,7 +1166,6 @@ write_newcap_script(void)
 	fprintf(script, "newcap %d %d,%d\n", c + 1, capx[c], capy[c]);
     }
     fprintf(script, "add %d visitor visitor v i\n", c + 1);
-    ++c;
     fclose(script);
     return 0;
 }