release also non-register locations
This commit is contained in:
parent
31abfbfa6d
commit
bbf944c6e7
1 changed files with 1 additions and 1 deletions
2
lo2.ml
2
lo2.ml
|
@ -128,7 +128,7 @@ let regalloc (p: iprog) =
|
|||
let kill ir =
|
||||
match H.find act ir with
|
||||
| LReg r -> H.remove act ir; free := r :: !free
|
||||
| _ -> () in
|
||||
| _ -> H.remove act ir in
|
||||
|
||||
let loc ir =
|
||||
match H.find act ir with
|
||||
|
|
Loading…
Add table
Reference in a new issue