Custom Query (1030 matches)

See ticket:697#comment:2

(defcallback foo (:double-float a 
                  :double-float b 
                  :double-float c 
                  :double-float d 
                  :double-float e
                  :double-float f
                  :double-float g 
                  :double-float)
  (format t "~&~s" (list a b c d e f g))
  (+ a b c d e f g))

(ff-call foo :double-float 1.0d0 :double-float 2.0d0 :double-float 3.0d0 :double-float 4.0d0 :double-float 5.0d0 :double-float 6.0d0 :double-float 7.0d0 :double-float) 

prints and returns:

(1.0D0 2.0D0 3.0D0 4.0D0 1.398752D-316 0.0D0 1.3987457D-316)
10.0D0

I'm fairly sure that the caller's putting arguments (after the first 4) in the wrong place (e.g., that the callback's right and the bug's in FF-CALL.)

The trunk version of Clozure CL kernel crashes on Ubuntu 10.04 (​Linux kernel 2.6.32-24.41).

% ./lx86cl
zsh: segmentation fault (core dumped)  ./lx86cl
% gdb ./lx86cl core
GNU gdb (GDB) 7.1-ubuntu
Copyright (C) 2010 Free Software Foundation, Inc.
... snip ...
Core was generated by `./lx86cl'.
Program terminated with signal 11, Segmentation fault.
#0  find_foreign_rsp (tcr=0x2ada70, handler=0x80634f0, signum=7, 
    info=0x2acc1c, context=0x2acc9c, return_address=9712656)
    at ../x86-exceptions.c:1549
1549	  if (((BytePtr)rsp < foreign_area->low) ||
(gdb) bt
#0  find_foreign_rsp (tcr=0x2ada70, handler=0x80634f0, signum=7, 
    info=0x2acc1c, context=0x2acc9c, return_address=9712656)
    at ../x86-exceptions.c:1549
#1  handle_signal_on_foreign_stack (tcr=0x2ada70, handler=0x80634f0, signum=7, 
    info=0x2acc1c, context=0x2acc9c, return_address=9712656)
    at ../x86-exceptions.c:1624
#2  0x08061cae in altstack_signal_handler (signum=7, info=0x2acc1c, 
    context=0x2acc9c) at ../x86-exceptions.c:1703
#3  <signal handler called>
#4  create_stack (size=1159168) at ../thread_manager.c:1611
#5  0x080592b2 in allocate_lisp_stack (useable=1048576, softsize=102400, 
    hardsize=4096, softkind=kVSPsoftguard, hardkind=kVSPhardguard, 
    h_p=0x2ad038, base_p=0x2ad03c, softp=0x2ad034, hardp=0x2ad030)
    at ../pmcl-kernel.c:223
#6  0x0805947c in allocate_lisp_stack_area (stack_type=AREA_VSTACK, 
    usable=1048576, softsize=102400, hardsize=4096, softkind=kVSPsoftguard, 
    hardkind=kVSPhardguard) at ../pmcl-kernel.c:279
#7  0x08059565 in allocate_vstack_holding_area_lock (usable=3674112)
    at ../pmcl-kernel.c:326
#8  0x0806529e in new_tcr (vstack_size=1048576, tstack_size=524288)
    at ../thread_manager.c:1342
#9  0x08065bb5 in lisp_thread_entry (param=0xbfcbe390)
    at ../thread_manager.c:1686
#10 0x0057e96e in start_thread () from /lib/tls/i686/cmov/libpthread.so.0
#11 0x00d9aa4e in clone () from /lib/tls/i686/cmov/libc.so.6
(gdb) 

On ​Linux kernel 2.6.32-23.37, it works fine.