diff options
| -rw-r--r-- | asmcomp/interf.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/interf.ml b/asmcomp/interf.ml index 08727c248..2d541eeee 100644 --- a/asmcomp/interf.ml +++ b/asmcomp/interf.ml @@ -37,7 +37,7 @@ let build_graph fundecl = let add_interf ri rj = if Proc.register_class ri = Proc.register_class rj then begin let i = ri.stamp and j = rj.stamp in - if i <> j && (ri.loc != Unknown || rj.loc != Unknown) then begin + if i <> j then begin let p = if i < j then (i, j) else (j, i) in if not(IntPairSet.mem p !mat) then begin mat := IntPairSet.add p !mat; |