[Openmcl-devel] Elephant and CCL (Linux, 32-bit)

[Ian Eslick]

I've had no problem running CCL and Elephant on 64-bit systems and Elephant and SBCL on 32-bit systems.  I haven't had the occasion to do much testing on 32-bit systems until now.  There is some sort of pointer shenanigans happening in the FFI-based serializer.

CCL 1.3 release:

Read error between positions 3064 and 6299 in /home/eslick/lisp-dist/libs/uffi-1.8.6/src/strings.lisp.
> Error: Reader error: No external symbol named "ENCODE-STRING-TO-OCTETS" in package #<Package "CCL"> .
> While executing: CCL::%PARSE-TOKEN, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Use the internal symbol CCL::ENCODE-STRING-TO-OCTETS
> Type :? for other options.

Missing API call that Elephant depends on:


CCL 1.4 release:

> Error: Fault during read of memory address #x-471FE404
> While executing: CCL::EQ-HASH-FIND, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b    
*(3AEA58) : 0 (EQ-HASH-FIND #<HASH-TABLE :TEST EQ size 892/199404 #x152B0AB6> #<BOGUS object @ #x10C839>) 584
 (3AEA94) : 1 (GETHASH #<BOGUS object @ #x10C839> #<HASH-TABLE :TEST EQ size 892/199404 #x152B0AB6> NIL) 279
 (3AEABC) : 2 (FUNCALL #'#<(:INTERNAL ELEPHANT-SERIALIZER2::%SERIALIZE ELEPHANT-SERIALIZER2::SERIALIZE)> #<BOGUS object @ #x10C839>) 2007
 (3AEADC) : 3 (SERIALIZE #<BOGUS object @ #x10C839> #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Foreign Pointer #xB76148D0> :SIZE 1 ...) #<BDB-STORE-CONTROLLER /home/eslick/lisp-dist/libs/elephant-1.0/tests/testdb/>) 343
 (3AEAF8) : 4 (SERIALIZE #<BOGUS object @ #x10C839> #S(ELEPHANT-MEMUTIL:BUFFER-STREAM :BUFFER #<A Foreign Pointer #xB76148D0> :SIZE 1 ...) #<BDB-STORE-CONTROLLER /home/eslick/lisp-dist/libs/elephant-1.0/tests/testdb/>) 247
 (3AEB30) : 5 (FUNCALL #'#<Anonymous Function #x15491B2E> (#<BOGUS object @ #x10C839>)) 279


CCL 1.5 current:

> Error: Fault during read of memory address #x194B3AEC
> While executing: CCL::%BIGNUM-SIGN, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1> :b
*(53EAE8) : 0 (%BIGNUM-SIGN ???) 12
 (53EB2C) : 1 (FUNCALL #'#<(:INTERNAL GEN-INTEGER)>) 159
 (53EB3C) : 2 (FUNCALL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL GEN-INTEGER) #x18CB21A6>) 175
 (53EB54) : 3 (PERFORM-RANDOM-TESTING/RUN-ONCE (#<CCL:COMPILED-LEXICAL-CLOSURE # #x18CB21A6>) #<Anonymous Function #x18CB2736>) 231
 (53EB84) : 4 (PERFORM-RANDOM-TESTING (#<CCL:COMPILED-LEXICAL-CLOSURE # #x18CB21A6>) #<Anonymous Function #x18CB2736>) 319
 (53EBA4) : 5 (FUNCALL #'#<(:INTERNAL IT.BESE.FIVEAM::RUN-IT (IT.BESE.FIVEAM::RUN-TEST-LAMBDA (IT.BESE.FIVEAM::TEST-CASE)))>) 1239

Help in tracking this down would be helpful.

Thank you,
Ian