jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Avoid crash in memalloc

Browse source 
Check if both variables are optmized
This commit is contained in:
Cédric Pasteur 2013-04-22 18:11:10 +02:00
parent 8497bafa2e
commit 99dc7820c7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/minils/analysis/interference.ml
View file

@ -257,7 +257,7 @@ end
(** Helper functions to work with the multiple interference graphs *)
let by_ivar def f x y =
if World.is_optimized x then (
if World.is_optimized x && World.is_optimized y then (
let igx, nodex = World.node_for_ivar x in
let igy, nodey = World.node_for_ivar y in
if igx == igy then
@ -268,7 +268,7 @@ let by_ivar def f x y =
def
let by_name def f x y =
if World.is_optimized (Ivar x) then (
if World.is_optimized (Ivar x) && World.is_optimized (Ivar y) then (
let igx, nodex = World.node_for_name x in
let igy, nodey = World.node_for_name y in
if igx == igy then