Skip to content

Commit cb0d158

Browse files
committed
revert spill fix
1 parent c68c20c commit cb0d158

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

backend/spill.ml

+3-4
Original file line numberDiff line numberDiff line change
@@ -98,6 +98,9 @@ let cache_reload_result nfail before handler after_handler env =
9898
in
9999
reload_cache := Numbers.Int.Map.add nfail entry !reload_cache
100100

101+
let reset_cache () =
102+
reload_cache := Numbers.Int.Map.empty
103+
101104
let spill_reg env r =
102105
try
103106
env, Reg.Map.find r env.spill_env
@@ -614,10 +617,6 @@ let rec spill :
614617
| Iraise _ ->
615618
k i env.at_raise
616619

617-
let reset_cache () =
618-
reload_cache := Numbers.Int.Map.empty;
619-
spill_cache := Numbers.Int.Map.empty
620-
621620
(* Entry point *)
622621

623622
let fundecl f =

0 commit comments

Comments
 (0)