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

Gary Byers gb at clozure.com
Thu May 4 10:15:34 PDT 2006


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
>
>



More information about the Openmcl-devel mailing list