September 2012 - cmucl-ticket - mailman3.common-lisp.net

[cmucl-ticket] [cmucl] #60: compile-file and export problem
by cmucl 22 Dec '12

22 Dec '12

#60: compile-file and export problem --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2012-05 Keywords: | --------------------+------------------------------------------------------- Put the following in a file and {{{compile-file}}}. This shouldn't cause any problems but it does. {{{ (defpackage fail (:use cl)) (in-package fail) (defvar *x* '^) (export *x*) }}} -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/60> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 2

[cmucl-ticket] [cmucl] #63: {{{VM::READ-CYCLE-COUNTER}}} destroys live values in ebx and ecx
by cmucl 26 Sep '12

26 Sep '12

#63: {{{VM::READ-CYCLE-COUNTER}}} destroys live values in ebx and ecx --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2012-09 Keywords: | --------------------+------------------------------------------------------- Consider the following code: {{{ (eval-when (:compile-toplevel :execute) (defmacro with-cycle-counter (&body body) (let ((hi0 (gensym)) (hi1 (gensym)) (lo0 (gensym)) (lo1 (gensym))) `(multiple-value-bind (,lo0 ,hi0) (vm::read-cycle-counter) (values (locally ,@body) (multiple-value-bind (,lo1 ,hi1) (vm::read-cycle-counter) (+ (ash (- ,hi1 ,hi0) 32) (- ,lo1 ,lo0))))))) ) (defun bar (x) (declare (type (and fixnum unsigned-byte) x) (optimize speed (safety 0))) (with-cycle-counter (let ((sum 0d0)) (declare (double-float sum)) (dotimes (k x) (declare (type (and fixnum unsigned-byte) k)) (incf sum k)) sum))) }}} When compiled, you get funny results like {{{ * (bar 1000000) 0.0d0 408 }}} This happens because {{{READ-CYCLE-COUNTER}}} uses the {{{CPUID}}} instruction that writes values to the eax, ebx, ecx, and edx registers, but the VOP for {{{READ-CYCLE-COUNTER}}} doesn't know that ebx and ecx are written. Thus the vop can cause any live values in the ebx and ecx registers to be destroyed, as happens in this example. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/63> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 2

[cmucl-ticket] [cmucl] #62: mk:defsystem no longer loads correctly
by cmucl 04 Sep '12

04 Sep '12

#62: mk:defsystem no longer loads correctly --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2012-06 Keywords: | --------------------+------------------------------------------------------- {{{(require 'defsystem)}}} causes errors on loading. This is very likely related to the changes to {{{EXPORT}}} and friends which were treated specially by the compiler but should not have been. Snapshot 2012-05 works but 2012-06 does not. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/62> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 1

[cmucl-ticket] [cmucl] #56: Heap overflow checking fails on darwin/x86
by cmucl 03 Sep '12

03 Sep '12

#56: Heap overflow checking fails on darwin/x86 --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2012-01 Keywords: | --------------------+------------------------------------------------------- {{{ cmulisp -dynamic-space-size 64 * (defvar *1* (make-list 10000000)) ; [GC threshold exceeded with 35,359,432 bytes in use. Commencing GC.] ; [GC completed with 21,504,336 bytes retained and 13,855,096 bytes freed.] ; [GC will next occur when at least 53,504,336 bytes are in use.] ; [GC threshold exceeded with 53,514,472 bytes in use. Commencing GC.] *A2 gc_alloc_new_region failed, nbytes=8. CMUCL has run out of dynamic heap space (64 MB). You can control heap size with the -dynamic-space-size commandline option. sigbus_handler: Real protection violation at 0xac3, PC = 0x4b3243e3 ... }}} This probably happens in older versions too, but I didn't check. Works ok on linux. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/56> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 1