cast ptrdiff_t to int for ANSI

mach/proto/cg/codegen.c

@@ -462,7 +462,7 @@ if (Debug > 1) fprintf(stderr, "cost after coercions: %u\n", t);
 		do {
 			npos=exactmatch=0;
 			for(rpp=reglist[propno];rp= *rpp; rpp++)
-				if (getrefcount(rp-machregs, FALSE)==0) {
+				if (getrefcount((int)(rp-machregs), FALSE)==0) {
 					pos[npos++] = rp-machregs;
 					if (eqtoken(&rp->r_contents,&token))
 						exactmatch++;

mach/proto/cg/move.c

@@ -57,7 +57,7 @@ move(tp1,tp2,ply,toplevel,maxcost) token_p tp1,tp2; unsigned maxcost; {
 			for (i=0;i<TOKENSIZE;i++)
 				if (tdp->t_type[i] == EV_REG &&
 				    clash(rp->r_contents.t_att[i].ar,tp2->t_att[0].ar)) {
-					erasereg(rp-machregs);
+					erasereg((int)(rp-machregs));
 					break;
 				}
 		}

mach/proto/cg/reg.c

@@ -78,7 +78,7 @@ erasereg(regno) {
 			rp->r_contents.t_token = 0;
 			for (i=0;i<TOKENSIZE;i++)
 				rp->r_contents.t_att[i].aw = 0;
-			awayreg(rp-machregs);
+			awayreg((int)(rp-machregs));
 		}
 #endif
 }
@@ -94,13 +94,13 @@ awayreg(regno) {
 	for (rp=machregs;rp<machregs+NREGS;rp++) {
 		if (rp->r_contents.t_token == -1) {
 			if (rp->r_contents.t_att[0].ar == regno)
-				erasereg(rp-machregs);
+				erasereg((int)(rp-machregs));
 		} else if (rp->r_contents.t_token > 0) {
 			tdp= & tokens[rp->r_contents.t_token];
 			for (i=0;i<TOKENSIZE;i++)
 				if (tdp->t_type[i] == EV_REG && 
 				    rp->r_contents.t_att[i].ar == regno) {
-					erasereg(rp-machregs);
+					erasereg((int)(rp-machregs));
 					break;
 				}
 		}

mach/proto/cg/subr.c

@@ -432,7 +432,7 @@ unsigned stackupto(limit,ply,toplevel) token_p limit; {
 				if (cp->c1_prop>=0) {
 					for (rpp=reglist[cp->c1_prop];
 					       (rp = *rpp)!=0 &&
-					       getrefcount(rp-machregs, TRUE)!=0;
+					       getrefcount((int)(rp-machregs), TRUE)!=0;
 						  rpp++)
 						;
 					if (rp==0)