bugKawa - Bugs: bug #36039, inlining problem

 
 

bug #36039: inlining problem

Submitter:  Helmut Eller <ellerh>
Submitted:  Fri 30 Mar 2012 07:01:59 AM UTC
   
 
Category:  None Severity:  3 - Normal
Item Group:  None Status:  Fixed
Privacy:  Public Assigned to:  bothner
Open/Closed:  Closed
* Mandatory Fields

Add a New Comment Rich Markup
   

Sat 05 May 2012 09:01:45 PM UTC, comment #2: 

Thanks!  I checked in a fix and testcase.

Per Bothner <bothner>
Group administrator
Fri 30 Mar 2012 07:04:59 AM UTC, comment #1: 

The compiler has problems with this code:



(module-export find)

(define (find x list)
  (find-if list
           (lambda (y)
             (equal? x y))
           #f))

(define (find-if (i java.lang.Iterable) test default)
  (let ((iter (invoke i 'iterator))
        (found #f))
    (do ()
        ((or found (not (invoke iter 'has-next))))
      (let ((e (invoke iter 'next)))
        (when (test e)
          (set! found #t)
          (set! default e))))
    default))



shell> kawa --version -C x.scm
Kawa 1.12 (revision 7201M)
Copyright (C) 2011 Per Bothner
(compiling x.scm to x)
x.scm:6:15: static find-if references non-static x
[Exit 255]


Helmut Eller <ellerh>
Fri 30 Mar 2012 07:01:59 AM UTC, original submission:  


Helmut Eller <ellerh>

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by bothner (Posted a comment)
  • -email is unavailable- added by ellerh (Submitted the item)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 3 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2012-05-05 bothner StatusNone Fixed
        Assigned toNone bothner
        Open/ClosedOpen Closed

    Back to the top

    Powered by Savane 3.13-aa77.
    Corresponding source code