Block sorting to keep loop bodies together
authorAndy Wingo <wingo@pobox.com>
Sat, 5 Jul 2014 13:46:48 +0000 (15:46 +0200)
committerAndy Wingo <wingo@pobox.com>
Sat, 5 Jul 2014 13:46:48 +0000 (15:46 +0200)
commit6d7b6a171e2eafd1dd48424f39f5796a67e73ad4
treea2c56c5d2bc8247d19c70eae17af4050fdd966be
parent9243902a9dec3696e4a6a280b72927be4cf5d508
Block sorting to keep loop bodies together

* module/language/cps/renumber.scm (compute-new-labels-and-vars):
  (compute-tail-path-lengths, sort-conts): Arrange to visit successors
  in such a way that if branches are unsorted, the longest path length
  will appear first.  This keeps loop bodies together.
module/language/cps/renumber.scm