CbC/old/device: mc-codegen.c comparison

global offset, parallel_rassign fix, save_stack fix.

comparison

equal deleted inserted replaced

-:4efbb07f556b
+:be56772ab12a
 //  target = list3(target_regnum,next,source_regnum);
 extern void
 parallel_rassign(int assigns)
 {
-int free,tmp,tmp_target,remains,t0,t2,src;
+int free,tmp,remains,t0,t2,src;
 tmp = 0;
 for(;;) {
 	remains = 0;
 	// find free target
 	for(free=assigns;free;free=cadr(free)) {
 	    if (src==0) {
 		break;                      // free is a free target
 	    }
 	}
 	if (remains==0) {
-	    if (tmp) {
+	    return;
-		code_rlvar(tmp,tmp_target);
+	}
+	if (free) {  // free target
+	    if (t0!=caddr(free)) {
+		if (caddr(free)>=0) {
+		    code_assign_register(t0,0,caddr(free));
+		} else {
+		    code_rlvar(caddr(free),t0);
+		}
 	    }
-	    return;
+	    caddr(free)=0;       // mark it done
-	}
-	if (free) {  // free target
-	    if (t0!=caddr(free))
-		code_assign_register(t0,0,caddr(free));
 	} else {  // no free target
 	    for(free=assigns;free;free=cadr(free)) {
 		if (caddr(free)) break; // not yet done
 	    }
 	    if (!free) error(-1);
 	    tmp = new_lvar(size_of_int);
-	    tmp_target = car(free);
+	    if (tmp>0) error(-1);
 	    code_assign_lvar(tmp,caddr(free),0);
-	}
+	    caddr(free) = tmp;
-	caddr(free)=0;       // mark it done
+	}
 }
 }
 /* goto arguments list                                      */
 /* target         list4(list2(tag,disp),cdr,ty,source_expr) */

Mercurial > hg > CbC > old > device