Re: [Chicken-janitors] #981: entropy-unix from srfi-27 pegs the CPU after /dev/urandom is accessed

[Chicken Trac]

#981: entropy-unix from srfi-27 pegs the CPU after /dev/urandom is accessed
----------------------+-----------------------------------------------------
  Reporter:  andyjpb  |       Owner:  kon     
      Type:  defect   |      Status:  assigned
  Priority:  major    |   Milestone:  someday 
 Component:  unknown  |     Version:  4.8.x   
Resolution:           |    Keywords:          
----------------------+-----------------------------------------------------
Changes (by kon):

  * status:  new => assigned


Comment:

 I cannot reproduce:
 #492 $ csi -n

 CHICKEN
 (c) 2008-2013, The Chicken Team
 (c) 2000-2007, Felix L. Winkelmann
 Version 4.8.2 (rev 2967383)
 macosx-unix-clang-x86-64 [ 64bit manyargs dload ptables ]
 compiled 2013-02-06 on miyajima (Darwin)

 #;1> (use srfi-27 entropy-unix)
 ; loading /usr/local/lib/chicken/7/srfi-27.import.so ...
 ; loading /usr/local/lib/chicken/7/chicken.import.so ...
 ; loading /usr/local/lib/chicken/7/data-structures.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-4.import.so ...
 ; loading /usr/local/lib/chicken/7/miscmacros.import.so ...
 ; loading /usr/local/lib/chicken/7/type-checks.import.so ...
 ; loading /usr/local/lib/chicken/7/type-errors.import.so ...
 ; loading /usr/local/lib/chicken/7/foreign.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-4-checks.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-4-errors.import.so ...
 ; loading /usr/local/lib/chicken/7/random-source.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-1.import.so ...
 ; loading /usr/local/lib/chicken/7/entropy-source.import.so ...
 ; loading /usr/local/lib/chicken/7/entropy-clock.import.so ...
 ; loading /usr/local/lib/chicken/7/entropy-support.import.so ...
 ; loading /usr/local/lib/chicken/7/extras.import.so ...
 ; loading /usr/local/lib/chicken/7/lolevel.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-27-vector-support.import.so ...
 ; loading /usr/local/lib/chicken/7/vector-lib.import.so ...
 ; loading /usr/local/lib/chicken/7/mrg32k3a.import.so ...
 ; loading /usr/local/lib/chicken/7/numbers.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-27-numbers.import.so ...
 ; loading /usr/local/lib/chicken/7/entropy-unix.import.so ...
 ; loading /usr/local/lib/chicken/7/entropy-port.import.so ...
 ; loading /usr/local/lib/chicken/7/timed-resource.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-18.import.so ...
 ; loading /usr/local/lib/chicken/7/synch.import.so ...
 ; loading /usr/local/lib/chicken/7/thread-utils.import.so ...
 ; loading /usr/local/lib/chicken/7/thread-reaper.import.so ...
 ; loading /usr/local/lib/chicken/7/record-variants.import.so ...
 ; loading /usr/local/lib/chicken/7/srfi-27.so ...
 ; loading /usr/local/lib/chicken/7/random-source.so ...
 ; loading /usr/local/lib/chicken/7/type-checks.so ...
 ; loading /usr/local/lib/chicken/7/type-errors.so ...
 ; loading /usr/local/lib/chicken/7/entropy-source.so ...
 ; loading /usr/local/lib/chicken/7/mrg32k3a.so ...
 ; loading /usr/local/lib/chicken/7/numbers.so ...
 ; loading /usr/local/lib/chicken/7/srfi-27-numbers.so ...
 ; loading /usr/local/lib/chicken/7/entropy-clock.so ...
 ; loading /usr/local/lib/chicken/7/entropy-support.so ...
 ; loading /usr/local/lib/chicken/7/srfi-27-vector-support.so ...
 ; loading /usr/local/lib/chicken/7/vector-lib.so ...
 ; loading /usr/local/lib/chicken/7/srfi-4-checks.so ...
 ; loading /usr/local/lib/chicken/7/srfi-4-errors.so ...
 ; loading /usr/local/lib/chicken/7/entropy-unix.so ...
 ; loading /usr/local/lib/chicken/7/entropy-port.so ...
 ; loading /usr/local/lib/chicken/7/timed-resource.so ...
 ; loading /usr/local/lib/chicken/7/synch.so ...
 ; loading /usr/local/lib/chicken/7/thread-utils.so ...
 ; loading /usr/local/lib/chicken/7/thread-reaper.so ...
 #;2> (define (make-secret-generator)
   (let ((source (make-entropy-source-urandom-device)))
     (lambda (byte-width)
        (entropy-source-u8vector source byte-width))))
 #;3> ((make-secret-generator) 12)
 #u8(56 118 21 36 202 100 135 10 39 214 15 110)
 #;4> ,q

 & the compiled cpu-peg-csc.scm just prints 'x'

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/981#comment:2>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.