- Jan 10, 2004
-
-
toy authored
as good as non-gencgc on sparc with Eric Marsden's cl-bench tests.
-
toy authored
This shows up in deriving the type of (abs (the (double-float 0d0))), which was (double-float 0d0), but should have been (or (member 0d0) (double-float (0d0)). o In TWO-ARG-DERIVE-TYPE, use our own same-leaf-ref-p in place of the real same-leaf-ref-p. We don't care if the leaf is not constant, only that they are the same leaf. This shows up in Eric Marsden's cl-bench where CMUCL was not able to deduce that z^2 is positive in mandelbrot/dfloat.
-
toy authored
we don't have to call abs at all.
-
- Jan 09, 2004
-
-
toy authored
-
toy authored
-
toy authored
-
toy authored
*DEFAULT-PATHNAME-DEFAULTS*
-
toy authored
to method parameters which are assigned to. This fixes a bug that shows up in McCLIM. (From Gerd, on cmucl-imp.)
-
toy authored
o Increase the max heap space to 2816 MB from 2048 MB. (This is about as much as we can do, since some space is needed for the C stack located at high memory.)
-
toy authored
current-region-free-pointer. Cross compile may be needed, but I'm not sure. I only used cross-compiling to do this change. sparc/macros.lisp: o Update the allocation macro appropriately for alloc-tn holding the current-region-free-pointer. lisp/gencgc.c: o Define macros for setting and getting *current-region-free-oointer* and *current-region-end-addr* so sparc can use alloc-tn. *current-region-free-pointer* isn't used anymore, but is still a static symbol. It's been replaced by alloc-tn. o On sparc, set_alloc_pointer doesn't need to do anything anymore. o Don't need to call update_dynamic_space_free_pointer anymore. o The assertion that *current-region-free-pointer* is a fixnum is no longer valid on sparc because that is alloc-tn which contains the pseudo-atomic bits. lisp/sparc-arch.c: o The allocation trap instruction is now preceeded by a SUB instruction. Handle that correctly. Keep support for the OR instruction for now, but should be removed. o Set alloc-tn from current_dynamic_space_free_pointer.
-
toy authored
there's only one place (Lisp) to maintain the space-start values. new-genesis.lisp: o Any constants ending with "-SPACE-START" are dumped to internals.h sparc/parms.lisp: o Make target-read-only-space-start, target-static-space-start, target-dynamic-space-start, and target-foreign-linkage-space-start defconstants instead of defparameters so that internals.h will have the values for use in C code.
-
toy authored
(non-local entry, call-site, etc.) flag of the code-locations. From Helmut Eller on cmucl-imp, 2003-12-09
-
toy authored
because there is no dynamic_1 space with GENCGC. This was causing CMUCL to segfault when using more than 512 MB of heap.
-
toy authored
the static space and the control stack so we can print them out with ROOM.
-
toy authored
PCL, because it needed PCL's walker code. Fix this by always building with PCL's walker, which is independent of PCL: code/fwrappers.lisp: o Always use the PCL version, assuming PCL walker is included. pcl/defsys.lisp: o Don't build walk.lisp here, because it's built as a part of CMUCL. o Fix up dependencies. tools/worldcom.lisp: o Compile up pcl/walk.lisp tools/worldload.lisp: o Load up pcl/walk.lisp
-
toy authored
(for information purposes).
-
toy authored
(expt <rational> <rational>). The result can be a rational, a float, or a complex single-float.
-
toy authored
in CLHS. That was twice as slow as the old algorithm.
-
toy authored
*DEFAULT-PATHNAME-DEFAULTS*
-
- Dec 03, 2003
- Dec 02, 2003
-
-
toy authored
DYNAMIC-SPACE-OVERFLOW-ERROR if the :heap-overflow-check is not defined. (This was breaking sparc/non-gencgc builds.)
-
toy authored
o PARSE-INTEGER note removed o rehash-threshold silently set to a minimum of 0.1 o Sparc port with Cheney GC is deprecated and will go away after the next release. o Some typo fixes.
-
toy authored
previously. Allow them.
-
- Dec 01, 2003
-
-
toy authored
prevents division by zero or overflow errors if the rehash-threshold is too small.
-
- Nov 25, 2003
- Nov 24, 2003
-
-
toy authored
behavior back to the old way where the parse is terminated as soon as possible, treating trailing whitespace as terminating characters.
-
- Nov 21, 2003
-
-
toy authored
foreign functions in the backtrace. I slightly frobbed the order of the displayed info to display the function first. Suggestions welcome for a nicer arrangement.
-
- Nov 14, 2003
-
-
cracauer authored
From Ed Wang.
-
- Nov 12, 2003
-
-
toy authored
silently revert to initializing to the random state from the current time. From Ole Rohne via cmucl-imp. This works around a problem on one of his machines where /dev/urandom isn't what we think it is. We still lose if /dev/urandom returns words that aren't random enough. Oh well.
-
- Nov 11, 2003
-
-
toy authored
report this page. From Harald Hanche-Olsen on cmucl-imp.
-
- Nov 08, 2003
-
-
gerd authored
(require :gray-streams) (defclass my-in-stream (ext:fundamental-character-input-stream) ((last-char :initarg :last-char))) (let ((string " a ") (i 0)) (defmethod ext:stream-read-char ((s my-in-stream)) (with-input-from-string (s "b") (read s)) (with-slots (last-char) s (cond (last-char (prog1 last-char (setf last-char nil))) (t (prog1 (aref string i) (setq i (mod (1+ i) (length string))))))))) (defmethod ext:stream-unread-char ((s my-in-stream) char) (setf (slot-value s 'last-char) char) nil) (setq x (make-instance 'my-in-stream :last-char nil)) (read x) => b, instead of a * src/code/reader.lisp: Use a new read buffer for each call to read or read-preserving-whitespace, instead of using one global buffer. From Helmut Eller.
-
- Nov 06, 2003
- Nov 05, 2003
-
-
gerd authored
(defmethod name :before ((data data))) (name (make-instance 'data)) => too few args in a call to a method function This is caused by standard-reader/writer methods having a fast-function, but that's not the one that we should funcall if pcl::*inline-methods-in-emfs* is true. Use the fast-method-call mechanism for such methods instead. * src/pcl/combin.lisp (inlinable-method-p): New function. (make-direct-calls): Removed. (memf-test-converter): Add a local function method-key for determining the function generator key. (memf-code-converter): Add local functions make-call and make-calls. Generate direct calls if inlinable-method-p returns true.
-
gerd authored
as last change, which fixed write-char etc. only.
-
toy authored
o Gather some of the sparc-specific symbols into one spot. o Export unix::check to get rid of a warning. (Not exactly sure where this comes from.)
-
toy authored
imaginary part wasn't getting returned, and the real part was actually the imaginary part.
-
- Nov 04, 2003
-
-
gerd authored
dependency, which I don't have to time to debug right now. Redefining a function like this: (defun foo ()) (let ((foo #'foo)) (declare (function foo)) (defun foo () (funcall foo))) leads to infinite recursion because the funcall uses FOO's fdefn object instead of the local variable's value. * src/compiler/ir1tran.lisp (ir1-convert-variable): Don't record DFO dependency.
-