qbe

commit bbf944c6e7687ee7cb7c398c0e4a9c6f5832d7f0
parent 31abfbfa6d62cd4946599935e2184cfe936c586c
Author: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date:   Thu, 22 Jan 2015 12:00:55 -0500

release also non-register locations

Diffstat:
M
lo2.ml
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lo2.ml b/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