blob: 98b5f5b0f3e141e1fdd5ede31254e85043903f51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(**************************************************************************)
(* *)
(* OCaml *)
(* *)
(* Xavier Leroy, projet Gallium, INRIA Rocquencourt *)
(* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. *)
(* *)
(* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file LICENSE. *)
(* *)
(**************************************************************************)
(* Common subexpression elimination by value numbering over extended
basic blocks. *)
type op_class =
| Op_pure (* pure, produce one result *)
| Op_checkbound (* checkbound-style: no result, can raise an exn *)
| Op_load (* memory load *)
| Op_store of bool (* memory store, false = init, true = assign *)
| Op_other (* anything else that does not allocate nor store in memory *)
class cse_generic : object
(* The following methods can be overriden to handle processor-specific
operations. *)
method class_of_operation: Mach.operation -> op_class
method is_cheap_operation: Mach.operation -> bool
(* Operations that are so cheap that it isn't worth factoring them. *)
(* The following method is the entry point and should not be overridden *)
method fundecl: Mach.fundecl -> Mach.fundecl
end
|
