Changeset 1580 for Deliverables/D2.2/8051/src/RTL
- Timestamp:
- Dec 1, 2011, 2:50:27 PM (8 years ago)
- Location:
- Deliverables/D2.2/8051/src/RTL
- Files:
-
- 4 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Deliverables/D2.2/8051/src/RTL/RTLPrinter.ml
r1572 r1580 129 129 130 130 131 let print_graph n c =131 let print_graph n c entry = 132 132 let f lbl stmt s = 133 133 Printf.sprintf "%s%s: %s\n%s" … … 136 136 (print_statement stmt) 137 137 s in 138 Label.Map.fold f c "" 138 let module U = GraphUtilities.Util(RTLGraph) in 139 U.dfs_fold f c entry "" 139 140 140 141 … … 156 157 (n_spaces (n+2)) 157 158 def.RTL.f_exit 158 (print_graph (n+2) def.RTL.f_graph )159 (print_graph (n+2) def.RTL.f_graph def.RTL.f_entry) 159 160 160 161 -
Deliverables/D2.2/8051/src/RTL/RTLPrinter.mli
r486 r1580 1 1 2 2 (** This module provides a function to print [RTL] programs. *) 3 val print_statement : RTL.statement -> string 3 4 4 5 val print_program : RTL.program -> string
Note: See TracChangeset
for help on using the changeset viewer.