diff options
Diffstat (limited to 'asmcomp/schedgen.ml')
| -rw-r--r-- | asmcomp/schedgen.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/asmcomp/schedgen.ml b/asmcomp/schedgen.ml index 440fe2f0f8..c640f7f7c8 100644 --- a/asmcomp/schedgen.ml +++ b/asmcomp/schedgen.ml @@ -114,7 +114,7 @@ let rec longest_path critical_outputs node = [] -> node.length <- if is_critical critical_outputs node.instr.res - || node.instr.desc = Lreloadretaddr (* alway critical *) + || node.instr.desc = Lreloadretaddr (* always critical *) then node.delay else 0 | sons -> @@ -337,7 +337,7 @@ method private reschedule ready_queue date cont = (* Remove node from queue *) let new_queue = ref (remove_instr node ready_queue) in (* Update the start date and number of ancestors emitted of - all descendents of this node. Enter those that become ready + all descendants of this node. Enter those that become ready in the queue. *) let issue_cycles = self#instr_issue_cycles node.instr in List.iter |