diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-20 15:58:35 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-20 15:58:35 +0100 |
| commit | cfed53ffe9ce572e3a4f54d30bcb97c2044bcb5b (patch) | |
| tree | 40f1fbc8523ed9da0f8039e1a990604b0426356e /backend/IRC.ml | |
| parent | 69ee85006f81571a7a5cf5d13a38078f07be07c4 (diff) | |
| download | compcert-kvx-cfed53ffe9ce572e3a4f54d30bcb97c2044bcb5b.tar.gz compcert-kvx-cfed53ffe9ce572e3a4f54d30bcb97c2044bcb5b.zip | |
Revert "Better fix for register allocation?"
This reverts commit 5ad25465f77c3009eaff7e9a124c254c1e9f33cd.
Diffstat (limited to 'backend/IRC.ml')
| -rw-r--r-- | backend/IRC.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/backend/IRC.ml b/backend/IRC.ml index fc9fc456..43955897 100644 --- a/backend/IRC.ml +++ b/backend/IRC.ml @@ -355,13 +355,12 @@ let interfere g n1 n2 = let recordInterf n1 n2 = match n2.color with | None | Some (R _) -> - (* FIXME - HACK K1C disabled the if *) - (* if n1.regclass = n2.regclass then *) begin + if n1.regclass = n2.regclass then begin n1.adjlist <- n2 :: n1.adjlist; n1.degree <- 1 + n1.degree - end (* else begin + end else begin n1.extra_adj <- n2 :: n1.extra_adj - end *) + end | Some (S _) -> (*i printf "extra adj %s to %s\n" (name_of_node n1) (name_of_node n2); *) n1.extra_adj <- n2 :: n1.extra_adj |