let swap_variables v1 v2 =
let reg1 = v1.var_reg
and def1 = v1.var_def
and spilled1 = v1.var_spilled
and to_spill1 = v1.var_to_spill
in
v1.var_reg <- v2.var_reg;
v1.var_def <- v2.var_def;
v1.var_spilled <- v2.var_spilled;
v1.var_to_spill <- v2.var_to_spill;
v2.var_reg <- reg1;
v2.var_def <- def1;
v2.var_spilled <- spilled1;
v2.var_to_spill <- to_spill1