[CM] RT-Stalin

[Charles Turner]

Hi Kjetil-

I moved on from rollendurchmesserzeitsammler to cvs-Snd built 
--with-rt. When I run Snd, I load:

generators.scm
rt-compiler.scm
rt-stalin.scm

Then try the test code you published in your announce: (load-from-path 
"test-stalin.scm")

(<rt-stalin>
  (let loop ()
    (spawn :wait (irandom 30):-ms
      (loop)
      (define osc (make-oscil :frequency (ibetween 50 2000)))
      (define duration (ibetween 400 2000):-ms)
      (define e (make-env '(0 0 0.5 0.05 1 0) :end duration))
      (block :dur duration :cont #f
        (out (* (env e)
                (oscil osc)))))))

It aborts, and it looks like the unbound variable, fix-stalin-c-source, 
goes back to the compilation of rt-stalin.scm, along with a similar 
issue with init_rollendurchmesserzeitsammler.

What's my next step here?

Many thanks! Charles


cturner at xenakis:/usr/local/src/cvs-snd$ ./snd
snd> (load-from-path "generators.scm")
snd> (load-from-path "rt-compiler.scm")
WARNING: (guile-user): `every' imported from both (ice-9 common-list) 
and (srfi srfi-1)
WARNING: (guile-user): `reduce' imported from both (ice-9 common-list) 
and (srfi srfi-1)
WARNING: (guile-user): `every' imported from both (ice-9 common-list) 
and (srfi srfi-1)
WARNING: (guile-user): `reduce' imported from both (ice-9 common-list) 
and (srfi srfi-1)
Linking /home/cturner/snd-eval-c-cache/cache.o8JLKt.so
linking /home/cturner/snd-eval-c-cache/cache.kmjiWd.so das_init
linking /home/cturner/snd-eval-c-cache/cache.mdLdd1.so das_init
linking /home/cturner/snd-eval-c-cache/cache.k831tQ.so das_init
linking /home/cturner/snd-eval-c-cache/cache.OtoYXH.so das_init
Compiling /tmp/fileVU5sBT.c
/tmp/fileVU5sBT.c: In function ‘jack_port_name_eval_c_helper’:
/tmp/fileVU5sBT.c:287: warning: initialization discards qualifiers from 
pointer target type
/tmp/fileVU5sBT.c: In function ‘jack_port_short_name_eval_c_helper’:
/tmp/fileVU5sBT.c:296: warning: initialization discards qualifiers from 
pointer target type
/tmp/fileVU5sBT.c: In function ‘jack_port_type_eval_c_helper’:
/tmp/fileVU5sBT.c:314: warning: initialization discards qualifiers from 
pointer target type
linking /tmp/fileVU5sBT.c.so das_init
linking /home/cturner/snd-eval-c-cache/cache.QoybJT.so das_init
linking /home/cturner/snd-eval-c-cache/cache.yrb2h9.so das_init
linking /home/cturner/snd-eval-c-cache/cache.EextLr.so das_init
linking /home/cturner/snd-eval-c-cache/cache.GZjbcO.so das_init
linking /home/cturner/snd-eval-c-cache/cache.8LBz3i.so das_init
linking /home/cturner/snd-eval-c-cache/cache.MuLR9V.so das_init
num-inports: 8
<jack-rt-driver>: starting!
linking /home/cturner/snd-eval-c-cache/cache.83esfE.so das_init
linking /home/cturner/snd-eval-c-cache/cache.oAJxpH.so das_init
linking /home/cturner/snd-eval-c-cache/cache.8zb8GP.so das_init
linking /home/cturner/snd-eval-c-cache/cache.8HqfU1.so das_init
Alsa library loaded.
linking /home/cturner/snd-eval-c-cache/cache.Qi7Prl.so das_init
linking /home/cturner/snd-eval-c-cache/cache.qfW9fL.so das_init
linking /home/cturner/snd-eval-c-cache/cache.mFNDvf.so das_init
linking /home/cturner/snd-eval-c-cache/cache.Yq5j5N.so das_init
linking /home/cturner/snd-eval-c-cache/cache.8Dldjq.so das_init
linking /home/cturner/snd-eval-c-cache/cache.iL0e54.so das_init
linking /home/cturner/snd-eval-c-cache/cache.M0vpLN.so das_init
linking /home/cturner/snd-eval-c-cache/cache.EKVEPz.so das_init
linking /home/cturner/snd-eval-c-cache/cache.KDt4Un.so das_init
#:RT-Compiler loaded successfully...
snd> (load-from-path "rt-stalin.scm")
linking /home/cturner/snd-eval-c-cache/cache.yHJTao.so das_init
Handle null (/home/cturner/snd-eval-c-cache/cache.yHJTao.so: undefined 
symbol: init_rollendurchmesserzeitsammler)
Handle null ((null))
func null ((null))
linking /home/cturner/snd-eval-c-cache/cache.o0iBDW.so das_init
Handle null (/home/cturner/snd-eval-c-cache/cache.o0iBDW.so: undefined 
symbol: fix_stalin_c_source)
Handle null ((null))
func null ((null))
linking /home/cturner/snd-eval-c-cache/cache.o6Z9B1.so das_init
linking /home/cturner/snd-eval-c-cache/cache.GvGzv8.so das_init
snd> (load-from-path "stalin-test.scm")
stalin -On -clone-size-limit 0 -c /tmp/filer6PD2s.scm
In [inside LOOP 313]
Argument to STRUCTURE-REF might not be a structure of the correct type

Backtrace:
In unknown file:
   ?:  0* [primitive-load-path "stalin-test.scm"]
In /usr/local/src/cvs-snd/stalin-test.scm:
   1:  1* (<rt-stalin> (let loop () ...))
   1:  2  (begin (set! *rt-local-stalin-code-environment* #) 
(<rt-stalin-do> #))
In /usr/local/src/cvs-snd/rt-stalin.scm:
    ...
3439:  3  [catch compilation-error #<procedure #f (() (let* () #))> ...]
In unknown file:
   ?:  4* [#<procedure #f (() (let* () #))>]
In /usr/local/src/cvs-snd/rt-stalin.scm:
3441:  5* (fix-defines (define generated #) (define funcs #) (if funcs 
# #f))
3441:  6  (let* () (let* (# #) (set! generated #) (set! funcs #) ...))
In unknown file:
   ?:  7  (let* (# #) (set! generated #) (set! funcs #) ...)
   ?:  8* (set! funcs (link-stalin-file (get-stalin-c-file #) 
generated))
   ?:  9  (set! funcs (link-stalin-file (get-stalin-c-file #) 
generated))
   ?: 10* [link-stalin-file ...
   ?: 11*  [get-stalin-c-file "/tmp/filer6PD2s"]
In /usr/local/src/cvs-snd/rt-stalin.scm:
3126: 12   (let* (# # #) (delete-at-exit outname) ...)
3130: 13*  (fix-stalin-c-source inname outname)

/usr/local/src/cvs-snd/rt-stalin.scm:3130:5: In expression 
(fix-stalin-c-source inname outname):
/usr/local/src/cvs-snd/rt-stalin.scm:3130:5: Unbound variable: 
fix-stalin-c-source
ABORT: (unbound-variable)
snd>