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