- cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][master] 2 commits: Fix #34: Handle newline character correctly
by Raymond Toy 08 Dec '16

08 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d959c164 by Raymond Toy at 2016-12-07T21:19:19-08:00 Fix #34: Handle newline character correctly The string containing #\Newline that is used to output the newline character worked on little-endian architectures because the low octet was first in memory. However on a big-endian sparc, a NUL character was output instead since the high octet is first in memory. So, create a explicit unsigned-byte 8 array containing exactly 1 octet that represents a newline character code. Tests pass on both sparc and x86/linux. - - - - - 3b4745d3 by Raymond Toy at 2016-12-08T05:20:53+00:00 Merge branch 'rtoy-fix-issue-34' into 'master' Fix #34: Handle newline character correctly The string containing #\Newline that is used to output the newline character worked on little-endian architectures because the low octet was first in memory. However on a big-endian sparc, a NUL character was output instead since the high octet is first in memory. So, create a explicit unsigned-byte 8 array containing exactly 1 octet that represents a newline character code. Tests pass on both sparc and x86/linux. See merge request !19 - - - - - 1 changed file: - src/code/run-program.lisp Changes: ===================================== src/code/run-program.lisp ===================================== --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -742,7 +742,8 @@ #o666))) (unix:unix-unlink name) (when fd - (let ((newline (string #\Newline))) + (let ((newline (make-array 1 :element-type '(unsigned-byte 8) + :initial-element (char-code #\Newline)))) (loop (multiple-value-bind (line no-cr) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/f10c6b6fbb035c89f37610fa…

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-fix-issue-34
by Raymond Toy 08 Dec '16

08 Dec '16

Raymond Toy pushed new branch rtoy-fix-issue-34 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] 2 commits: Replace unix-times usage with getrusage
by Raymond Toy 08 Dec '16

08 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 29cb2f47 by Raymond Toy at 2016-12-06T21:07:21-08:00 Replace unix-times usage with getrusage unix:unix-times was only used for #+(and sparc svr4). The existing code already supported a different function when this condition was false, so use that, which uses getrusage instead. Don't need cross-x86-sparc-bootstrap.lisp anymore either. - - - - - f10c6b6f by Raymond Toy at 2016-12-08T03:34:12+00:00 Merge branch 'rtoy-no-unix-times' into 'master' Fix #38: Replace unix-times usage with getrusage unix:unix-times was only used for #+(and sparc svr4). The existing code already supported a different function when this condition was false, so use that, which uses getrusage instead. Don't need cross-x86-sparc-bootstrap.lisp anymore either. See merge request !18 - - - - - 3 changed files: - src/code/sunos-os.lisp - src/code/time.lisp - − src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp Changes: ===================================== src/code/sunos-os.lisp ===================================== --- a/src/code/sunos-os.lisp +++ b/src/code/sunos-os.lisp @@ -58,7 +58,6 @@ ;;; ;;; Return system time, user time and number of page faults. ;;; -#-(and sparc svr4) (defun get-system-info () (multiple-value-bind (err? utime stime maxrss ixrss idrss isrss minflt majflt) @@ -70,19 +69,6 @@ (T (values utime stime majflt))))) -;;; GET-SYSTEM-INFO -- Interface -;;; -;;; Return system time, user time and number of page faults. -;;; -#+(and sparc svr4) -(defun get-system-info () - (multiple-value-bind - (err? utime stime cutime cstime) - (unix:unix-times) - (declare (ignore err? cutime cstime)) - ;; Return times in microseconds; page fault statistics not supported. - (values (* utime 10000) (* stime 10000) 0))) - ;;; GET-PAGE-SIZE -- Interface ;;; ;;; Return the system page size. ===================================== src/code/time.lisp ===================================== --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -64,7 +64,6 @@ ;;; Get-Internal-Run-Time -- Public ;;; -#-(and sparc svr4) (defun get-internal-run-time () _N"Return the run time in the internal time format. This is useful for finding CPU usage." @@ -81,20 +80,6 @@ (truncate (+ utime-usec stime-usec) micro-seconds-per-internal-time-unit))))) -;;; Get-Internal-Run-Time -- Public -;;; -#+(and sparc svr4) -(defun get-internal-run-time () - _N"Return the run time in the internal time format. This is useful for - finding CPU usage." - (declare (values (unsigned-byte 32))) - (locally (declare (optimize (speed 3) (safety 0))) - (multiple-value-bind (ignore utime stime cutime cstime) - (unix:unix-times) - (declare (ignore ignore cutime cstime) - (type (unsigned-byte 31) utime stime)) - (the (unsigned-byte 32) (+ utime stime))))) - ;;;; Encode and Decode universal times. ===================================== src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp deleted ===================================== --- a/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp +++ /dev/null @@ -1,4 +0,0 @@ -;; Cross bootstrap file for cross-compiling from x86 to sparc. -;; Use this file with the -B option for bin/cross-build-world.sh - -(export 'unix::unix-times "UNIX") \ No newline at end of file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/18dc7c123174d9f30fd34314…

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-no-unix-times
by Raymond Toy 07 Dec '16

07 Dec '16

Raymond Toy pushed new branch rtoy-no-unix-times at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] 2 commits: Set vmdir correctly for sparc64.
by Raymond Toy 04 Dec '16

04 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 9075c97e by Raymond Toy at 2016-12-04T09:06:30-08:00 Set vmdir correctly for sparc64. :sparc64 sources are in sparcv9. (Should we rename the directory?) - - - - - 18dc7c12 by Raymond Toy at 2016-12-04T09:07:43-08:00 Set up paths and *features* for sparc64. Cross-compile to sparc-32 using this finishes. (Did not actually test the result, though.) - - - - - 2 changed files: - src/tools/cross-scripts/cross-x86-sparcv9.lisp - src/tools/setup.lisp Changes: ===================================== src/tools/cross-scripts/cross-x86-sparcv9.lisp ===================================== --- a/src/tools/cross-scripts/cross-x86-sparcv9.lisp +++ b/src/tools/cross-scripts/cross-x86-sparcv9.lisp @@ -10,7 +10,8 @@ (c::new-backend "SPARC" ;; Features to add here - '(:sparc + '(:sparc ; Any sparc processor + :sparc64 ; For 64-bit sparc :sparc-v9 ; For Ultrasparc processors :complex-fp-vops ; Some slightly faster FP vops on complex numbers :linkage-table @@ -23,7 +24,7 @@ :hash-new :random-mt19937 ; MT-19937 generator :cmu ; Announce this is CMUCL - :cmu20 :cmu20b ; Current version identifier + :cmu21 :cmu21b ; Current version identifier :modular-arith ; Modular arithmetic :double-double ; Double-double float support :executable @@ -115,9 +116,9 @@ (setf (search-list "c:") '("target:compiler/")) (setf (search-list "vm:") - '("c:sparc/" "c:generic/")) + '("c:sparcv9/" "c:generic/")) (setf (search-list "assem:") - '("target:assembly/" "target:assembly/sparc/")) + '("target:assembly/" "target:assembly/sparcv9/")) ;; Load the backend of the compiler. ===================================== src/tools/setup.lisp ===================================== --- a/src/tools/setup.lisp +++ b/src/tools/setup.lisp @@ -304,6 +304,7 @@ ((c:target-featurep :sgi) "mips/") ((c:target-featurep :ppc) "ppc/") ((c:target-featurep :amd64) "amd64/") + ((c:target-featurep :sparc64) "sparcv9/") (t (error "What machine is this?"))) (make-pathname :directory (pathname-directory f))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/0082cee611d78cdfa0e9d8bc…

1 0

[Git][cmucl/cmucl][master] 2 commits: Initial Config for sparc64 build.
by Raymond Toy 04 Dec '16

04 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f9d62c05 by Raymond Toy at 2016-12-03T13:24:00-08:00 Initial Config for sparc64 build. Copy Config.sparc_sunc to Config.sparcv9_sunc, removing the -m32 option and updating ASSEM_SRC to sparcv9-assem.S. Remove that from Config.sparc_common and put it in Config.sparc_sunc. - - - - - 0082cee6 by Raymond Toy at 2016-12-04T08:42:19-08:00 Bootstrap file for x86->sparc cross-compile. Use this with the -B option of cross-build-world.sh when cross-compiling from x86 to sparc. - - - - - 4 changed files: - src/lisp/Config.sparc_common - src/lisp/Config.sparc_sunc - + src/lisp/Config.sparcv9_sunc - + src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp Changes: ===================================== src/lisp/Config.sparc_common ===================================== --- a/src/lisp/Config.sparc_common +++ b/src/lisp/Config.sparc_common @@ -43,7 +43,7 @@ CPPFLAGS += -I. -I$(PATH1) $(CC_V8PLUS) $(CPP_DEFINE_OPTIONS) CFLAGS += -g $(CC_V8PLUS) NM = $(PATH1)/solaris-nm -ASSEM_SRC = sparc-assem.S +#ASSEM_SRC = sparc-assem.S ARCH_SRC = sparc-arch.c DEPEND=$(CC) ===================================== src/lisp/Config.sparc_sunc ===================================== --- a/src/lisp/Config.sparc_sunc +++ b/src/lisp/Config.sparc_sunc @@ -20,10 +20,11 @@ include Config.sparc_common ifdef FEATURE_SPARC_V9 # For SunStudio 11, use -xarch=v8plus. For SunStudio 12, that is # deprecated; use -m32 -xarch=sparc. -CC_V8PLUS = -m32 -xarch=sparc -AS_V8PLUS = -m32 -xarch=sparc +CC_V8PLUS = -xarch=sparc +AS_V8PLUS = -xarch=sparc endif +ASSEM_SRC = sparcv9-assem.S CFLAGS += -xlibmieee -O DEPEND_FLAGS = -xM ASFLAGS = $(AS_V8PLUS) ===================================== src/lisp/Config.sparcv9_sunc ===================================== --- /dev/null +++ b/src/lisp/Config.sparcv9_sunc @@ -0,0 +1,31 @@ +# -*- Mode: makefile -*- + +# Build cmucl using Sun C compiler. We assume cc is Sun's C compiler. +# If you don't have it, why are you using this Config anyway? You're +# on your own if you use this Config without Sun C compiler available. + +include Config.sparc_common + +# For v8plus support (allows 64-bit integer support on V9 +# architectures), uncomment the definitions for CC_V8PLUS and +# AS_V8PLUS. The -Wa,xarch=v8plus option tells the assembler to +# accept v8plus instructions and generate a v8plus object files and +# executable. +# +# However, we should also make sure the binary is marked as v8plus by +# enabling AS_V8PLUS whenever we have the :sparc-v9 *feature* enabled +# because we really are a v8plus application by using some of the v9 +# instructions, even if we don't use the 64-bit registers. + +ifdef FEATURE_SPARC_V9 +# For SunStudio 11, use -xarch=v8plus. For SunStudio 12, that is +# deprecated; use -m32 -xarch=sparc. +CC_V8PLUS = -xarch=sparc +AS_V8PLUS = -xarch=sparc +endif + +ASSEM_SRC = sparcv9-assem.S +CFLAGS += -xlibmieee -O +DEPEND_FLAGS = -xM +ASFLAGS = $(AS_V8PLUS) +OS_LINK_FLAGS = -M /usr/lib/ld/map.noexstk ===================================== src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp ===================================== --- /dev/null +++ b/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp @@ -0,0 +1,4 @@ +;; Cross bootstrap file for cross-compiling from x86 to sparc. +;; Use this file with the -B option for bin/cross-build-world.sh + +(export 'unix::unix-times "UNIX") \ No newline at end of file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/41838802a3e6cbf057be72dc…

1 0

[Git][cmucl/cmucl][master] Copy cross-x86-sparc.lisp to cross-x86-sparcv9.lisp
by Raymond Toy 03 Dec '16

03 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 41838802 by Raymond Toy at 2016-12-03T13:15:43-08:00 Copy cross-x86-sparc.lisp to cross-x86-sparcv9.lisp - - - - - 1 changed file: - + src/tools/cross-scripts/cross-x86-sparcv9.lisp Changes: ===================================== src/tools/cross-scripts/cross-x86-sparcv9.lisp ===================================== --- /dev/null +++ b/src/tools/cross-scripts/cross-x86-sparcv9.lisp @@ -0,0 +1,305 @@ +;;; Cross-compile script to build a sparc core using x86 as the +;;; compiling system. This needs work! + +(in-package :cl-user) + +;;; Rename the X86 package and backend so that new-backend does the +;;; right thing. +(rename-package "X86" "OLD-X86" '("OLD-VM")) +(setf (c:backend-name c:*native-backend*) "OLD-X86") + +(c::new-backend "SPARC" + ;; Features to add here + '(:sparc + :sparc-v9 ; For Ultrasparc processors + :complex-fp-vops ; Some slightly faster FP vops on complex numbers + :linkage-table + :stack-checking ; Throw error if we run out of stack + :heap-overflow-check ; Throw error if we run out of + ; heap (This requires gencgc!) + :gencgc ; Generational GC + :relative-package-names ; Relative package names from Allegro + :conservative-float-type + :hash-new + :random-mt19937 ; MT-19937 generator + :cmu ; Announce this is CMUCL + :cmu20 :cmu20b ; Current version identifier + :modular-arith ; Modular arithmetic + :double-double ; Double-double float support + :executable + + :solaris + :svr4 + :sun4 + :sunos + :unix + ) + ;; Features to remove from current *features* here + '(:sparc-v8 :sparc-v7 ; Choose only one of :sparc-v7, :sparc-v8, :sparc-v9 + ;; Other architectures we aren't using. Particularly important + ;; to get rid of sse2 and x87 so we don't accidentally try to + ;; compile the x87/sse2 float support on sparc, which won't work. + :x86 :x86-bootstrap :sse2 :x87 :i486 + :alpha :osf1 :mips + ;; Really old stuff that should have been removed long ago. + :propagate-fun-type :propagate-float-type :constrain-float-type + ;; Other OSes were not using + :openbsd :freebsd :glibc2 :linux :mach-o :darwin :bsd + + :pentium + :long-float + :new-random + :small + :mp)) + +;;; Changes needed to bootstrap cross-compiling from x86 to sparc + +;; Set up the linkage space stuff appropriately for sparc. +(setf (c::backend-foreign-linkage-space-start c::*target-backend*) + #x0f800000 + (c::backend-foreign-linkage-entry-size c::*target-backend*) + 16) + +;; Get new fops so we can process fasls with big-endian unicode +;; strings on our little-endian compiling system. +#+unicode +(load "target:tools/cross-scripts/cross-unicode-big-endian.lisp") + +;;; End changes needed to bootstrap cross-compiling from x86 to sparc + +;;; Extern-alien-name for the new backend. +(in-package :vm) +(defun extern-alien-name (name) + (declare (type simple-string name)) + ;;(format t "extern-alien-name: ~S~%" name) + ;;(lisp::maybe-swap-string 'extern-alien-name (copy-seq name)) + name) +(export 'extern-alien-name) +#+(or) +(defun fixup-code-object (code offset fixup kind) + (declare (type index offset)) + (unless (zerop (rem offset vm::word-bytes)) + (error (intl:gettext "Unaligned instruction? offset=#x~X.") offset)) + (system:without-gcing + (let ((sap (truly-the system-area-pointer + (%primitive c::code-instructions code)))) + (ecase kind + (:call + (error (intl:gettext "Can't deal with CALL fixups, yet."))) + (:sethi + (setf (ldb (byte 22 0) (sap-ref-32 sap offset)) + (ldb (byte 22 10) fixup))) + (:add + (setf (ldb (byte 10 0) (sap-ref-32 sap offset)) + (ldb (byte 10 0) fixup))))))) +(export 'fixup-code-object) +#+(or) +(defun sanctify-for-execution (component) + (without-gcing + (alien-funcall (extern-alien "os_flush_icache" + (function void + system-area-pointer + unsigned-long)) + (code-instructions component) + (* (code-header-ref component code-code-size-slot) + word-bytes))) + nil) +(export 'sanctify-for-execution) + +;;; Compile the new backend. +(pushnew :bootstrap *features*) +(pushnew :building-cross-compiler *features*) +(load "target:tools/comcom") + +;;; Load the new backend. +(setf (search-list "c:") + '("target:compiler/")) +(setf (search-list "vm:") + '("c:sparc/" "c:generic/")) +(setf (search-list "assem:") + '("target:assembly/" "target:assembly/sparc/")) + +;; Load the backend of the compiler. + +(in-package "C") + +(load "vm:vm-macs") +(load "vm:parms") +(load "vm:objdef") +(load "vm:interr") +(load "assem:support") + +(load "target:compiler/srctran") +(load "vm:vm-typetran") +(load "target:compiler/float-tran") +(load "target:compiler/saptran") + +(load "vm:macros") +(load "vm:utils") + +(load "vm:vm") +(load "vm:insts") +(load "vm:primtype") +(load "vm:move") +(load "vm:sap") +(load "vm:system") +(load "vm:char") +(load "vm:float") + +(load "vm:memory") +(load "vm:static-fn") +(load "vm:arith") +(load "vm:cell") +(load "vm:subprim") +(load "vm:debug") +(load "vm:c-call") +(load "vm:print") +(load "vm:alloc") +(load "vm:call") +(load "vm:nlx") +(load "vm:values") +(load "vm:array") +(load "vm:pred") +(load "vm:type-vops") + +(load "assem:assem-rtns") + +(load "assem:array") +(load "assem:arith") +(load "assem:alloc") + +(load "c:pseudo-vops") + +(check-move-function-consistency) + +(load "vm:new-genesis") + +;;; OK, the cross compiler backend is loaded. + +(setf *features* (remove :building-cross-compiler *features*)) + +;;; Info environment hacks. +(macrolet ((frob (&rest syms) + `(progn ,@(mapcar #'(lambda (sym) + `(defconstant ,sym + (symbol-value + (find-symbol ,(symbol-name sym) + :vm)))) + syms)))) + (frob OLD-VM:BYTE-BITS + OLD-VM:WORD-BITS + OLD-VM:CHAR-BITS + OLD-VM:CHAR-BYTES + OLD-VM:LOWTAG-BITS + #+long-float OLD-VM:SIMPLE-ARRAY-LONG-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-SINGLE-FLOAT-TYPE + #+long-float OLD-VM:SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-UNSIGNED-BYTE-2-TYPE + OLD-VM:SIMPLE-ARRAY-UNSIGNED-BYTE-4-TYPE + OLD-VM:SIMPLE-ARRAY-UNSIGNED-BYTE-8-TYPE + OLD-VM:SIMPLE-ARRAY-UNSIGNED-BYTE-16-TYPE + OLD-VM:SIMPLE-ARRAY-UNSIGNED-BYTE-32-TYPE + OLD-VM:SIMPLE-ARRAY-SIGNED-BYTE-8-TYPE + OLD-VM:SIMPLE-ARRAY-SIGNED-BYTE-16-TYPE + OLD-VM:SIMPLE-ARRAY-SIGNED-BYTE-30-TYPE + OLD-VM:SIMPLE-ARRAY-SIGNED-BYTE-32-TYPE + OLD-VM:SIMPLE-BIT-VECTOR-TYPE + OLD-VM:SIMPLE-STRING-TYPE OLD-VM:SIMPLE-VECTOR-TYPE + OLD-VM:SIMPLE-ARRAY-TYPE OLD-VM:VECTOR-DATA-OFFSET + OLD-VM:DOUBLE-FLOAT-DIGITS + old-vm:single-float-digits + OLD-VM:DOUBLE-FLOAT-EXPONENT-BYTE + OLD-VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX + OLD-VM:DOUBLE-FLOAT-SIGNIFICAND-BYTE + OLD-VM:SINGLE-FLOAT-EXPONENT-BYTE + OLD-VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX + OLD-VM:SINGLE-FLOAT-SIGNIFICAND-BYTE + ) + #+double-double + (frob OLD-VM:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE + OLD-VM:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE) + ) + +(let ((function (symbol-function 'kernel:error-number-or-lose))) + (let ((*info-environment* (c:backend-info-environment c:*target-backend*))) + (setf (symbol-function 'kernel:error-number-or-lose) function) + (setf (info function kind 'kernel:error-number-or-lose) :function) + (setf (info function where-from 'kernel:error-number-or-lose) :defined))) + +(defun fix-class (name) + (let* ((new-value (find-class name)) + (new-layout (kernel::%class-layout new-value)) + (new-cell (kernel::find-class-cell name)) + (*info-environment* (c:backend-info-environment c:*target-backend*))) + (remhash name kernel::*forward-referenced-layouts*) + (kernel::%note-type-defined name) + (setf (info type kind name) :instance) + (setf (info type class name) new-cell) + (setf (info type compiler-layout name) new-layout) + new-value)) +(fix-class 'c::vop-parse) +(fix-class 'c::operand-parse) + +#+random-mt19937 +(declaim (notinline kernel:random-chunk)) + +(setf c:*backend* c:*target-backend*) + +;;; Extern-alien-name for the new backend. +(in-package :vm) +(defun extern-alien-name (name) + (declare (type simple-string name)) + ;;(format t "extern-alien-name: ~S~%" name) + ;;(lisp::maybe-swap-string 'extern-alien-name (copy-seq name)) + name) +(export 'extern-alien-name) +#+(or) +(defun fixup-code-object (code offset fixup kind) + (declare (type index offset)) + (unless (zerop (rem offset vm::word-bytes)) + (error (intl:gettext "Unaligned instruction? offset=#x~X.") offset)) + (system:without-gcing + (let ((sap (truly-the system-area-pointer + (%primitive c::code-instructions code)))) + (ecase kind + (:call + (error (intl:gettext "Can't deal with CALL fixups, yet."))) + (:sethi + (setf (ldb (byte 22 0) (sap-ref-32 sap offset)) + (ldb (byte 22 10) fixup))) + (:add + (setf (ldb (byte 10 0) (sap-ref-32 sap offset)) + (ldb (byte 10 0) fixup))))))) +(export 'fixup-code-object) +#+(or) +(defun sanctify-for-execution (component) + (without-gcing + (alien-funcall (extern-alien "os_flush_icache" + (function void + system-area-pointer + unsigned-long)) + (code-instructions component) + (* (code-header-ref component code-code-size-slot) + word-bytes))) + nil) +(export 'sanctify-for-execution) + +(in-package :cl-user) + +;;; Don't load compiler parts from the target compilation + +(defparameter *load-stuff* nil) + +;; hack, hack, hack: Make old-x86::any-reg the same as +;; x86::any-reg as an SC. Do this by adding old-x86::any-reg +;; to the hash table with the same value as x86::any-reg. + +(let ((ht (c::backend-sc-names c::*target-backend*))) + (setf (gethash 'old-vm::any-reg ht) + (gethash 'vm::any-reg ht))) + + +;;(pushnew :debug *features*) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/41838802a3e6cbf057be72dcb…

1 0

[Git][cmucl/cmucl][master] Copy sparc/* to sparcv9/*
by Raymond Toy 03 Dec '16

03 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: cdbb2388 by Raymond Toy at 2016-12-03T13:13:23-08:00 Copy sparc/* to sparcv9/* Pure copy of sparc files to sparcv9 directory and copy sparc-assem.S to sparcv9-assem.S No other changes made. - - - - - 7 changed files: - + src/assembly/sparcv9/alloc.lisp - + src/assembly/sparcv9/arith.lisp - + src/assembly/sparcv9/array.lisp - + src/assembly/sparcv9/assem-rtns.lisp - + src/assembly/sparcv9/support.lisp - + src/compiler/sparcv9/alloc.lisp - + src/compiler/sparcv9/arith.lisp The diff was not included because it is too large. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/cdbb23883eb01a40b0d7b58f9…

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2016-12
by Raymond Toy 03 Dec '16

03 Dec '16

Raymond Toy pushed new tag snapshot-2016-12 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] 2 commits: Template for 21c release notes
by Raymond Toy 03 Dec '16

03 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 80242f5e by Raymond Toy at 2016-12-03T08:48:11-08:00 Template for 21c release notes - - - - - 86d5a6f9 by Raymond Toy at 2016-12-03T08:53:32-08:00 Update from logs - - - - - 1 changed file: - + src/general-info/release-21c.txt Changes: ===================================== src/general-info/release-21c.txt ===================================== --- /dev/null +++ b/src/general-info/release-21c.txt @@ -0,0 +1,57 @@ +Work in progress +========================== C M U C L 21 c ============================= + +The CMUCL project is pleased to announce the release of CMUCL 21c. +This is a major release which contains numerous enhancements and bug +fixes from the 21a release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a +source-level debugger and code profiler; and an Emacs-like editor +implemented in Common Lisp. CMUCL is maintained by a team of +volunteers collaborating over the Internet, and is mostly in the +public domain. + +New in this release: + * Known issues: + + * Feature enhancements + + * Changes + + * ANSI compliance fixes: + + * Bug fixes: + * ENCODE-UNIVERSAL-TIME accepts dates from 1899 if the final date + after accounting for time zones results in a positive + value. (See ticket #36.) + * CL:SLEEP no longer gets interrupted (See ticket #26.) + + * Trac Tickets: + + * Gitlab tickets: + * Ticket #36: encode-universal-time signals error + * Ticket #26: The cmucl that never sleeps + + * Other changes: + + * Improvements to the PCL implementation of CLOS: + + * Changes to building procedure: + + +This release is not binary compatible with code compiled using CMUCL +21b; you will need to recompile FASL files. + +See <URL:http://www.cmucl.org> or +<URL:https://gitlab.common-lisp.net/cmucl/cmucl> for more information, +See +<URL:https://gitlab.common-lisp.net/cmucl/cmucl/wikis/GettingCmucl> +for obtaining CMUCL, including sources and binaries.. + + +We hope you enjoy using this release of CMUCL! View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/6131d7370849b2cc37c3ed62…

1 0