diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-03 15:04:46 +0100 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-03 15:04:46 +0100 |
commit | f67fbc3c26510ac95b1c957b1b288e25f0fc4a31 (patch) | |
tree | 294c26f2c029cd716496d4ad81b18b04fd3fc510 /backend | |
parent | 760300e972f4c4b3eb14d90e79580bb1f2632197 (diff) | |
parent | 8675997219a5883ca639429639b2ab0edff16aa2 (diff) | |
download | compcert-kvx-f67fbc3c26510ac95b1c957b1b288e25f0fc4a31.tar.gz compcert-kvx-f67fbc3c26510ac95b1c957b1b288e25f0fc4a31.zip |
Merge ../kvx-work into kvx_fp_division
Diffstat (limited to 'backend')
-rw-r--r-- | backend/IRC.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/IRC.ml b/backend/IRC.ml index d9e4651e..21ee0799 100644 --- a/backend/IRC.ml +++ b/backend/IRC.ml @@ -906,10 +906,10 @@ let location_of_var g v = (* The exported interface *) let add_interf g v1 v2 = - addEdge g (nodeOfVar g v1) (nodeOfVar g v2) + let n1 = nodeOfVar g v1 in let n2 = nodeOfVar g v2 in addEdge g n1 n2 let add_pref g v1 v2 = - addMovePref g (nodeOfVar g v1) (nodeOfVar g v2) + let n1 = nodeOfVar g v1 in let n2 = nodeOfVar g v2 in addMovePref g n1 n2 let coloring g = initialNodePartition g; |