[Chicken-janitors] #1226: This code will trigger an inlining loop

[Chicken Trac]

#1226: This code will trigger an inlining loop
---------------------+---------------------
 Reporter:  ckeen    |      Owner:
     Type:  defect   |     Status:  new
 Priority:  major    |  Milestone:  someday
Component:  unknown  |    Version:  4.9.x
 Keywords:           |
---------------------+---------------------
 When compiling the following code with -O3 it will trigger an inlining
 loop observable with -debug i

 {{{
 (define (main-loop renderer)
   (main-loop renderer))

 (when (zero? 0)
   (let ()
     (when #t
       (when #t
         (main-loop renderer)))))
 }}}

 {{{
 ...
 inlining: "(t.scm:2) main-loop" f_193 14
 inlining: "(t.scm:2) main-loop" f_193 14
 ...
 }}}

--
Ticket URL: <http://bugs.call-cc.org/ticket/1226>
CHICKEN Scheme <http://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.