diff options
| author | Graydon Hoare <[email protected]> | 2010-10-12 12:16:35 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-10-12 12:16:35 -0700 |
| commit | 76f7b043bc7c5084a6b4b3c900d51e2e66202c93 (patch) | |
| tree | 44760e8faad2cf69931b21d2b7d40e181bc18503 /src/boot/be | |
| parent | rustc: Add the tuple type to the AST (diff) | |
| download | rust-76f7b043bc7c5084a6b4b3c900d51e2e66202c93.tar.xz rust-76f7b043bc7c5084a6b4b3c900d51e2e66202c93.zip | |
Changes to make rustboot compile on OCaml 3.12
Diffstat (limited to 'src/boot/be')
| -rw-r--r-- | src/boot/be/ra.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/be/ra.ml b/src/boot/be/ra.ml index 12ec11ea..3b3e8b92 100644 --- a/src/boot/be/ra.ml +++ b/src/boot/be/ra.ml @@ -132,7 +132,7 @@ let kill_redundant_moves (cx:ctxt) : unit = let quad_jump_target_labels (q:quad) : Il.label list = match q.Il.quad_body with - Il.Jmp { Il.jmp_targ = Il.CodeLabel lab } -> [ lab ] + Il.Jmp { Il.jmp_targ = Il.CodeLabel lab; _ } -> [ lab ] | _ -> [] ;; @@ -172,7 +172,7 @@ let quad_defined_vregs (q:quad) : Il.vreg list = let quad_is_unconditional_jump (q:quad) : bool = match q.Il.quad_body with - Il.Jmp { jmp_op = Il.JMP } -> true + Il.Jmp { jmp_op = Il.JMP; _ } -> true | Il.Ret -> true | _ -> false ;; |