[Openmcl-devel] OpenMCL for Linux x86-64 available for testing

[Gary Byers]

Thanks.

The problem actually seems to be that callbacks that don't receive
arguments can't return values (or at least can't return them without
trying to store the return value relative to a null pointer.)

Something that takes an argument and returns a value seems to be
ff-callable:

? (defcallback return-1+-int (:int x :int) (1+ x))
RETURN-1+-INT
? (ff-call return-1+-int :int 11 :int)
12

(This was related to the problem you found yesterday; and I only fixed
half of that problem.)

This seems to be fixed in CVS now.


On Thu, 4 May 2006, James Bielman wrote:

> Hi,
>
> The CFFI test suite uses FF-CALL to call callbacks, which results in
> the following:
>
> Welcome to OpenMCL Version 1.1-pre-060503 (Alpha: LinuxX8664)!
> ? (defcallback return-int (:int) 100)
> RETURN-INT
> ? (ff-call return-int :int)
> Unhandled exception 11 at 0x300004c2da58, context->regs at #x402306e8
> ? for help
> [17809] OpenMCL kernel debugger: b
> current thread: tcr = 0x40231800,  psn = 1, native thread ID = 0x4591, interrupts enabled
>
>
> (#x00002AAAABA55A00) #x0000300004119B8C : #<Function %PASCAL-FUNCTIONS% #x0000300004119a2f> + 349
> (#x00002AAAABA55A68) #x0000300004005E6C : #<Function %DO-FF-CALL #x0000300004005e1f> + 77
> (#x00002AAAABA55AD0) #x000030000400691C : #<Function %FF-CALL #x0000300004005eff> + 2589
> (#x00002AAAABA55B50) #x00003000043A90B4 : #<Function CALL-CHECK-REGS #x00003000043a8fcf> + 229
> (#x00002AAAABA55B88) #x00003000043A174C : #<Function TOPLEVEL-EVAL #x00003000043a159f> + 429
> (#x00002AAAABA55BD8) #x00003000043A359C : #<Function READ-LOOP #x00003000043a2e6f> + 1837
> (#x00002AAAABA55DE0) #x00003000043A8A5C : #<Function TOPLEVEL-LOOP #x00003000043a898f> + 205
> (#x00002AAAABA55E10) #x000030000436C284 : #<Anonymous Function #x000030000436c1ff> + 133
> (#x00002AAAABA55E28) #x00003000044329CC : #<Anonymous Function #x000030000443232f> + 1693
> (#x00002AAAABA55EC8) #x000030000435C20C : #<Function RUN-PROCESS-INITIAL-FORM #x000030000435bf7f> + 653
> (#x00002AAAABA55F48) #x000030000435CACC : #<Anonymous Function #x000030000435c93f> + 397
> (#x00002AAAABA55F98) #x0000300004348B6C : #<Anonymous Function #x00003000043489ff> + 365
>
> James
>
>