Custom Query (1030 matches)

CCL does not start for me on 32bit FreeBSD, running in VMware 6.5.1-build126130 hosted on Windows Vista/x64.

dentinox 8_> uname -a
FreeBSD dentinox.huebner.org 6.3-RELEASE FreeBSD 6.3-RELEASE #0: Wed Jan 16 04:1
8:52 UTC 2008     root@dessler.cse.buffalo.edu:/usr/obj/usr/src/sys/GENERIC  i38
6
dentinox 9_> svn info .
Path: .
URL: http://svn.clozure.com/publicsvn/openmcl/trunk/freebsdx86/ccl
Repository Root: http://svn.clozure.com/publicsvn/openmcl
Repository UUID: 8bdb8f1d-59ce-db11-9e41-0016172a54ae
Revision: 11462
Node Kind: directory
Schedule: normal
Last Changed Author: gb
Last Changed Rev: 11404
Last Changed Date: 2008-11-18 21:55:55 +0000 (Tue, 18 Nov 2008)

dentinox 10_> ./fx86cl
Unhandled exception 11 at 0x805613d, context->regs at #xbfbfe410
? for help
[2652] OpenMCL kernel debugger: b
current thread: tcr = 0x48098240, native thread ID = 0x806b000, interrupts disab
led

document get-fpu-mode and set-fpu-mode

Running "Version 1.3-dev-r11488M-trunk (LinuxX8632)",

(coerce #(127 0 0 256) '(simple-array (unsigned-byte 8) (*)))

signals a SIMPLE-ERROR instead of a TYPE-ERROR.

Error:

256 doesn't match array element type of #(127 0 0 0).
   [Condition of type SIMPLE-ERROR]

Backtrace:
  0: (CCL::INIT-UVECTOR-CONTENTS #(127 0 0 0) 3 4 #(127 0 0 256))
      Locals:
        CCL::VECT = #(127 0 0 0)
        CCL::OFFSET = 3
        CCL::DIMS = 4
        CCL::CONTENTS = #(127 0 0 256)
        CCL::LEN = 4
        CCL::I = 3
  1: (CCL::MAKE-UARRAY-1 207 4 NIL NIL NIL NIL #(127 0 0 256) T NIL 4)
      Locals:
        CCL::SUBTYPE = 207
        CCL::DIMS = 4
        CCL::ADJUSTABLE = NIL
        FILL-POINTER = NIL
        CCL::INITIAL-ELEMENT = NIL
        CCL::INITIAL-ELEMENT-P = NIL
        CCL::INITIAL-CONTENTS = #(127 0 0 256)
        CCL::INITIAL-CONTENTS-P = T
        CCL::TEMPORARY = NIL
        CCL::SIZE = 4
        VECTOR = #(127 0 0 0)
  2: (CCL::CALL-CHECK-REGS COERCE #(127 0 0 256) (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)))
      Locals:
        CCL::FN = COERCE
        CCL::ARGS = (#(127 0 0 256) (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)))
        CCL::OLD-REGS = NIL