[Ecls-list] floats and uffi

[Maurice]

Hi,

I have a problem with ecl's uffi. The float value gets corrupted:

--- lib.c
  #include <stdio.h>
  
  void test (float x) { fprintf(stderr, "%f\n", x); }
  
--- test.lisp
  (uffi:load-foreign-library "./lib.so")
  
  (uffi:def-function "test"
      ((a :float))
    :returning :void)
    
  (test 12.3)
  
---

  % gcc -shared -fPIC lib.c -o lib.so
  
  ecl> (compile-file "test.lisp" :system-p t)
  ecl> (c:build-program "prog" :lisp-files '("test"))
  
  % ./prog
  -0.000000   
  
I tried the current CVS version.
Is this my fault or is this a bug?

Thank you.