[Openmcl-devel] %GET-SIGNED-WORD bug in CVS version?

[James Bielman]

After upgrading to CVS to do ARM hacking I ran the CFFI testsuite and
started getting thrown into the kernel debugger when accessing foreign
shorts.  I narrowed things down to:

(in-package :ccl)

(%stack-block ((x 2))
  (setf (%get-signed-word x) -32767)
  (%get-signed-word x))    ;; this guy is the culprit!
                           ;; %GET-UNSIGNED-WORD works ok...

Welcome to OpenMCL Version (Beta: DarwinPPC32) 0.14.3-050709!

Unhandled exception 11 at 0x64142ec, context->regs at #xf01356f8
Read operation to unmapped address 0x4
 While executing: #<Anonymous Function #x06414306>
? for help
[2620] OpenMCL kernel debugger: b

(The backtrace doesn't seem particularly helpful...)

(#xF0135BE0) #x0210E300 : #<Function LOAD-FROM-STREAM #x060d673e> + 220
(#xF0135BF0) #x0210E994 : #<Function %LOAD #x060d6b6e> + 1328
(#xF0135C00) #x0210E8F8 : #<Function %LOAD #x060d6b6e> + 1172
(#xF0135C10) #x00005E54 : (subprimitive _ret1valn)
(#xF0135C20) #x0210ED08 : #<Function LOAD #x060d721e> + 636
(#xF0135C30) #x0210ED64 : #<Function LOAD #x060d721e> + 728
(#xF0135C40) #x0213913C : #<Function STARTUP-CCL #x0611fb6e> + 848
(#xF0135C50) #x02139164 : #<Function STARTUP-CCL #x0611fb6e> + 888
(#xF0135C60) #x02118314 : #<Anonymous Function #x060e47be> + 56
(#xF0135C70) #x00005E54 : (subprimitive _ret1valn)
(#xF0135C80) #x02143F00 : #<Anonymous Function #x0612c2ae> + 612
(#xF0135C90) #x02143CEC : #<Anonymous Function #x0612c2ae> + 80
(#xF0135CA0) #x02116724 : #<Function RUN-PROCESS-INITIAL-FORM #x060e01ee> + 400
(#xF0135CB0) #x02116760 : #<Function RUN-PROCESS-INITIAL-FORM #x060e01ee> + 460
(#xF0135CC0) #x02116874 : #<Function RUN-PROCESS-INITIAL-FORM #x060e01ee> + 736
(#xF0135CD0) #x00005E54 : (subprimitive _ret1valn)
(#xF0135CE0) #x021169F4 : #<Anonymous Function #x060e0326> + 152
(#xF0135CF0) #x021169DC : #<Anonymous Function #x060e0326> + 128
(#xF0135D00) #x0210B9E8 : #<Anonymous Function #x060d38d6> + 172
(#xF0135D10) #x000092D8 : (subprimitive toplevel_loop)
(#xF0135D20) #x000092E4 : (subprimitive toplevel_loop)
(#xf0135d30) #x000093F4 : _start_lisp + 248
(#xf0135df0) #x0001BAA8 : _lisp_thread_entry + 240
(#xf0135e50) #x9002C3D4 : __pthread_body + 96
(#xf0135f00) #x00000000 : (null) + 0

(Apologies if this gets sent twice, mail server is acting weird...)

James