merge first pass into main loop in span calculation.

having one copy will cut nacl changes in half.

R=ken
OCL=34815
CL=34815

src/cmd/8l/span.c

@@ -65,27 +65,9 @@ span(void)
 		}
 	}
 	n = 0;
-
 start:
-	if(debug['v'])
-		Bprint(&bso, "%5.2f span\n", cputime());
-	Bflush(&bso);
-	c = INITTEXT;
-	for(p = firstp; p != P; p = p->link) {
-		if(p->as == ATEXT)
-			curtext = p;
-		if(p->to.type == D_BRANCH)
-			if(p->back)
-				p->pc = c;
-		asmins(p);
-		p->pc = c;
-		m = andptr-and;
-		p->mark = m;
-		c += m;
-	}
-
-loop:
-	n++;
+	do{
+		again = 0;
 		if(debug['v'])
 			Bprint(&bso, "%5.2f span %d\n", cputime(), n);
 		Bflush(&bso);
@@ -93,28 +75,27 @@ loop:
 			print("span must be looping\n");
 			errorexit();
 		}
-	again = 0;
 		c = INITTEXT;
 		for(p = firstp; p != P; p = p->link) {
 			if(p->as == ATEXT)
 				curtext = p;
-		if(p->to.type == D_BRANCH) {
+			if(p->to.type == D_BRANCH)
 				if(p->back)
 					p->pc = c;
+			if(n == 0 || p->to.type == D_BRANCH) {
 				asmins(p);
 				m = andptr-and;
-			if(m != p->mark) {
 				p->mark = m;
-				again++;
-			}
 			}
+			if(c != p->pc)
+				again = 1;
 			p->pc = c;
 			c += p->mark;
 		}
-	if(again) {
 		textsize = c;
-		goto loop;
-	}
+		n++;
+	}while(again);
+	
 	if(INITRND) {
 		INITDAT = rnd(c, INITRND);
 		if(INITDAT != idat) {