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

[Git][cmucl/cmucl] Pushed new tag sparc64-dev-checkpoint-1
by Raymond Toy 26 Dec '16

26 Dec '16

Raymond Toy pushed new tag sparc64-dev-checkpoint-1 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][sparc64-dev] Set textdomain to cmucl-sparc64-vm
by Raymond Toy 26 Dec '16

26 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 5a47f5b4 by Raymond Toy at 2016-12-26T09:01:45-08:00 Set textdomain to cmucl-sparc64-vm Prevents updating the cmucl-sparc-vm pot with the new file names. - - - - - 17 changed files: - src/compiler/sparc64/alloc.lisp - src/compiler/sparc64/arith.lisp - src/compiler/sparc64/array.lisp - src/compiler/sparc64/c-call.lisp - src/compiler/sparc64/c-callback.lisp - src/compiler/sparc64/call.lisp - src/compiler/sparc64/cell.lisp - src/compiler/sparc64/char.lisp - src/compiler/sparc64/debug.lisp - src/compiler/sparc64/float.lisp - src/compiler/sparc64/insts.lisp - src/compiler/sparc64/macros.lisp - src/compiler/sparc64/move.lisp - src/compiler/sparc64/parms.lisp - src/compiler/sparc64/sap.lisp - src/compiler/sparc64/static-fn.lisp - src/compiler/sparc64/system.lisp Changes: ===================================== src/compiler/sparc64/alloc.lisp ===================================== --- a/src/compiler/sparc64/alloc.lisp +++ b/src/compiler/sparc64/alloc.lisp @@ -15,7 +15,7 @@ ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Dynamic-Extent. ===================================== src/compiler/sparc64/arith.lisp ===================================== --- a/src/compiler/sparc64/arith.lisp +++ b/src/compiler/sparc64/arith.lisp @@ -18,7 +18,7 @@ ;;; Enhancements/debugging by Raymond Toy 1999, 2000 (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Unary operations. ===================================== src/compiler/sparc64/array.lisp ===================================== --- a/src/compiler/sparc64/array.lisp +++ b/src/compiler/sparc64/array.lisp @@ -16,7 +16,7 @@ ;;; Complex-float and long-float support by Douglas Crosher 1998. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Allocator for the array header. ===================================== src/compiler/sparc64/c-call.lisp ===================================== --- a/src/compiler/sparc64/c-call.lisp +++ b/src/compiler/sparc64/c-call.lisp @@ -15,7 +15,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (use-package "ALIEN") (use-package "ALIEN-INTERNALS") ===================================== src/compiler/sparc64/c-callback.lisp ===================================== --- a/src/compiler/sparc64/c-callback.lisp +++ b/src/compiler/sparc64/c-callback.lisp @@ -8,7 +8,7 @@ "$Header: src/compiler/sparc/c-callback.lisp $") (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (use-package "ALIEN") (use-package "ALIEN-INTERNALS") ===================================== src/compiler/sparc64/call.lisp ===================================== --- a/src/compiler/sparc64/call.lisp +++ b/src/compiler/sparc64/call.lisp @@ -14,7 +14,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Interfaces to IR2 conversion: ===================================== src/compiler/sparc64/cell.lisp ===================================== --- a/src/compiler/sparc64/cell.lisp +++ b/src/compiler/sparc64/cell.lisp @@ -18,7 +18,7 @@ ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Data object ref/set stuff. ===================================== src/compiler/sparc64/char.lisp ===================================== --- a/src/compiler/sparc64/char.lisp +++ b/src/compiler/sparc64/char.lisp @@ -16,7 +16,7 @@ ;;; And then to the SPARC by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ===================================== src/compiler/sparc64/debug.lisp ===================================== --- a/src/compiler/sparc64/debug.lisp +++ b/src/compiler/sparc64/debug.lisp @@ -14,7 +14,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (defknown di::current-sp () system-area-pointer (movable flushable)) (defknown di::current-fp () system-area-pointer (movable flushable)) ===================================== src/compiler/sparc64/float.lisp ===================================== --- a/src/compiler/sparc64/float.lisp +++ b/src/compiler/sparc64/float.lisp @@ -16,7 +16,7 @@ ;;; Complex-float and long-float support by Douglas Crosher 1998. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Move functions: ===================================== src/compiler/sparc64/insts.lisp ===================================== --- a/src/compiler/sparc64/insts.lisp +++ b/src/compiler/sparc64/insts.lisp @@ -14,7 +14,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (use-package "NEW-ASSEM") (use-package "EXT") ===================================== src/compiler/sparc64/macros.lisp ===================================== --- a/src/compiler/sparc64/macros.lisp +++ b/src/compiler/sparc64/macros.lisp @@ -17,7 +17,7 @@ ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;; Instruction-like macros. ===================================== src/compiler/sparc64/move.lisp ===================================== --- a/src/compiler/sparc64/move.lisp +++ b/src/compiler/sparc64/move.lisp @@ -18,7 +18,7 @@ ;;; SPARC conversion by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (define-move-function (load-immediate 1) (vop x y) ===================================== src/compiler/sparc64/parms.lisp ===================================== --- a/src/compiler/sparc64/parms.lisp +++ b/src/compiler/sparc64/parms.lisp @@ -19,7 +19,7 @@ ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") (use-package "C") ===================================== src/compiler/sparc64/sap.lisp ===================================== --- a/src/compiler/sparc64/sap.lisp +++ b/src/compiler/sparc64/sap.lisp @@ -14,7 +14,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ;;;; Moves and coercions: ===================================== src/compiler/sparc64/static-fn.lisp ===================================== --- a/src/compiler/sparc64/static-fn.lisp +++ b/src/compiler/sparc64/static-fn.lisp @@ -17,7 +17,7 @@ ;;; Written by William Lott. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") ===================================== src/compiler/sparc64/system.lisp ===================================== --- a/src/compiler/sparc64/system.lisp +++ b/src/compiler/sparc64/system.lisp @@ -16,7 +16,7 @@ ;;; Mips conversion by William Lott and Christopher Hoover. ;;; (in-package "SPARC") -(intl:textdomain "cmucl-sparc-vm") +(intl:textdomain "cmucl-sparc64-vm") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/5a47f5b42181b84efd03531f5…

1 0

[Git][cmucl/cmucl][sparc64-dev] Remove :alien-callback
by Raymond Toy 25 Dec '16

25 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: d4418c5f by Raymond Toy at 2016-12-25T08:58:58-08:00 Remove :alien-callback For some reason alien-callback.lisp causes errors when rebuilding the world using the x86 cross-compiled result. It's not needed by core cmucl so lets just not compile it all on sparc64. We'll investigate that later. Besides, the current code very likely wouldn't work correctly on sparc64 anyway. - - - - - 1 changed file: - src/tools/cross-scripts/cross-x86-sparc64.lisp Changes: ===================================== src/tools/cross-scripts/cross-x86-sparc64.lisp ===================================== --- a/src/tools/cross-scripts/cross-x86-sparc64.lisp +++ b/src/tools/cross-scripts/cross-x86-sparc64.lisp @@ -36,7 +36,10 @@ :unix ) ;; Features to remove from current *features* here - '(:sparc-v8 :sparc-v7 ; Choose only one of :sparc-v7, :sparc-v8, :sparc-v9 + '( + ;; Currently don't support alien callbacks on sparc64. + :alien-callback + :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. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/d4418c5f84b5bcdb61f6bfa32…

1 0

[Git][cmucl/cmucl] Pushed new tag sparc64-dev-checkpoint-0
by Raymond Toy 24 Dec '16

24 Dec '16

Raymond Toy pushed new tag sparc64-dev-checkpoint-0 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][sparc64-dev] Fix typo.
by Raymond Toy 24 Dec '16

24 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: afffd171 by Raymond Toy at 2016-12-24T11:14:59-08:00 Fix typo. - - - - - 1 changed file: - bin/create-target.sh Changes: ===================================== bin/create-target.sh ===================================== --- a/bin/create-target.sh +++ b/bin/create-target.sh @@ -122,5 +122,5 @@ echo '#error You need to run genesis (via build-world.sh) before compiling the s solaris64) cat $setenv_dir/solaris64-features.lisp;; solaris) cat $setenv_dir/solaris-features.lisp;; *) sed "s;@@LISP@@;$lisp_variant;" $setenv_dir/unknown.lisp;; - esac2 + esac ) > ../setenv.lisp || quit "Can't create setenv.lisp" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/afffd17197b00b38af6458dac…

1 0

[Git][cmucl/cmucl][sparc64-dev] Add solaris64-features.lisp
by Raymond Toy 24 Dec '16

24 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 19bb3ddb by Raymond Toy at 2016-12-24T11:09:33-08:00 Add solaris64-features.lisp For now solairs64-features.lisp is the same as solaris-features.lisp, excepti it adds :sparc64 to *features*. Update create-target.sh to use solaris64-features.lisp when hte config is sparc64. - - - - - 2 changed files: - bin/create-target.sh - + src/tools/setenv-scripts/solaris64-features.lisp Changes: ===================================== bin/create-target.sh ===================================== --- a/bin/create-target.sh +++ b/bin/create-target.sh @@ -63,6 +63,7 @@ uname_m=`uname -m 2>/dev/null` case $lisp_variant in *linux*) lvshort=linux;; *freebsd*) lvshort=freebsd;; + *sparc64*) lvshort=solaris64;; *solaris*|sparc*) lvshort=solaris;; *) lvshort=unknown;; esac @@ -118,7 +119,8 @@ echo '#error You need to run genesis (via build-world.sh) before compiling the s cat $setenv_dir/base-features.lisp case $lvshort in linux|freebsd) gcname=":gencgc"; sed "s;@@gcname@@;$gcname;" $setenv_dir/$lvshort-features.lisp >> setenv.lisp;; + solaris64) cat $setenv_dir/solaris64-features.lisp;; solaris) cat $setenv_dir/solaris-features.lisp;; *) sed "s;@@LISP@@;$lisp_variant;" $setenv_dir/unknown.lisp;; - esac + esac2 ) > ../setenv.lisp || quit "Can't create setenv.lisp" ===================================== src/tools/setenv-scripts/solaris64-features.lisp ===================================== --- /dev/null +++ b/src/tools/setenv-scripts/solaris64-features.lisp @@ -0,0 +1,24 @@ +;; e.g. for Solaris on sparc you probably want some of these: +;;(pushnew :sparc *features*) +;;(pushnew :svr4 *features*) + +;; Solaris supports linkage-table +;;(pushnew :linkage-table *features*) + +;; CPU selection: +;; Sparc-v7 gives us fsqrt instruction +;;(pushnew :sparc-v7 *features*) +;;(setf *features* (remove :sparc-v7 *features*)) +;; Sparc-v8 gives us an integer multiply and divide instruction +;;(pushnew :sparc-v8 *features*) +;;(setf *features* (remove :sparc-v8 *features*)) +;; Sparc-v9 gives us the extra FP registers, fast bignum multiply and +;; floor, other float operations available on the Sparc V9, and other +;; assorted V9 features. +;;(pushnew :sparc-v9 *features*) +;;(setf *features* (remove :sparc-v9 *features*)) + +;; This enables some hand-written vops for complex float arithmetic. +;; +;;(pushnew :complex-fp-vops *features*) +(pushnew :sparc64 *features*) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/19bb3ddb0dbee98c8be7f8ef6…

1 0

[Git][cmucl/cmucl][sparc64-dev] 4 commits: Regenerated.
by Raymond Toy 24 Dec '16

24 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: d01cf9f4 by Raymond Toy at 2016-12-17T14:06:23-08:00 Regenerated. - - - - - 1e94ce3a by Raymond Toy at 2016-12-17T17:08:45-05:00 Regenerated cmucl-sunos-os.pot - - - - - 2b0b4aaf by Raymond Toy at 2016-12-23T09:28:40-08:00 Fix typo: it's GETUID, not GETUIO - - - - - c73a85c4 by Raymond Toy at 2016-12-24T11:02:50-08:00 Merge branch 'master' into sparc64-dev - - - - - 3 changed files: - src/code/exports.lisp - src/i18n/locale/cmucl-sunos-os.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -295,7 +295,7 @@ "UNIX-MSYNC" ;; Motif - "UNIX-GETUIO" + "UNIX-GETUID" ;; Hemlock "UNIX-CFGETOSPEED" ===================================== src/i18n/locale/cmucl-sunos-os.pot ===================================== --- a/src/i18n/locale/cmucl-sunos-os.pot +++ b/src/i18n/locale/cmucl-sunos-os.pot @@ -24,6 +24,10 @@ msgid "Returns a string describing version of the supporting software." msgstr "" #: src/code/sunos-os.lisp +msgid "Unix system call getrusage failed: ~A." +msgstr "" + +#: src/code/sunos-os.lisp msgid "Getpagesize failed: ~A" msgstr "" ===================================== src/i18n/locale/cmucl.pot ===================================== --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -13234,10 +13234,6 @@ msgid "Could not open a temporary file in /tmp" msgstr "" #: src/code/run-program.lisp -msgid "Cound not create pipe: ~A" -msgstr "" - -#: src/code/run-program.lisp msgid "Invalid option to run-program: ~S" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/235f6679a20a1e793e1a146d…

1 0

[Git][cmucl/cmucl][master] Fix typo: it's GETUID, not GETUIO
by Raymond Toy 23 Dec '16

23 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 2b0b4aaf by Raymond Toy at 2016-12-23T09:28:40-08:00 Fix typo: it's GETUID, not GETUIO - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -295,7 +295,7 @@ "UNIX-MSYNC" ;; Motif - "UNIX-GETUIO" + "UNIX-GETUID" ;; Hemlock "UNIX-CFGETOSPEED" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/2b0b4aaf2b48969906d3a4748…

1 0

[Git][cmucl/cmucl][sparc64-dev] Fix typo in paths for sparc/sparc64.
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 235f6679 by Raymond Toy at 2016-12-17T20:24:27-08:00 Fix typo in paths for sparc/sparc64. - - - - - 1 changed file: - src/tools/worldload.lisp Changes: ===================================== src/tools/worldload.lisp ===================================== --- a/src/tools/worldload.lisp +++ b/src/tools/worldload.lisp @@ -59,8 +59,8 @@ (setf (ext:search-list "c:") '("target:compiler/")) (setf (ext:search-list "vm:") '(#+(or pmax sgi) "c:mips/" - #+(and sparc (not sparc64)) "c/sparc/" - #+sparc64 "c/sparc64/" + #+(and sparc (not sparc64)) "c:sparc/" + #+sparc64 "c:sparc64/" #+rt "c:rt/" #+hppa "c:hppa/" #+x86 "c:x86/" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/235f6679a20a1e793e1a146da…

1 0

[Git][cmucl/cmucl][sparc64-dev] Set paths correctly for sparc64.
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 5dafa396 by Raymond Toy at 2016-12-17T20:11:17-08:00 Set paths correctly for sparc64. We still have :sparc, so we need to distinguish between just sparc and sparc64. We'll fix this later. Just want to be able to do a 32-bit build using all the sparc64 files. - - - - - 3 changed files: - src/tools/worldbuild.lisp - src/tools/worldcom.lisp - src/tools/worldload.lisp Changes: ===================================== src/tools/worldbuild.lisp ===================================== --- a/src/tools/worldbuild.lisp +++ b/src/tools/worldbuild.lisp @@ -27,11 +27,17 @@ "target:assembly/mips/array.assem" "target:assembly/mips/arith.assem" "target:assembly/mips/alloc.assem")) - ,@(when (c:backend-featurep :sparc) + ,@(when (and (c:backend-featurep :sparc) + (not (c:backend-featurep :sparc64))) '("target:assembly/sparc/assem-rtns.assem" "target:assembly/sparc/array.assem" "target:assembly/sparc/arith.assem" "target:assembly/sparc/alloc.assem")) + ,@(when (c:backend-featurep :sparc64) + '("target:assembly/sparc64/assem-rtns.assem" + "target:assembly/sparc64/array.assem" + "target:assembly/sparc64/arith.assem" + "target:assembly/sparc64/alloc.assem")) ,@(when (c:backend-featurep :rt) '("target:assembly/rt/assem-rtns.assem" "target:assembly/rt/array.assem" ===================================== src/tools/worldcom.lisp ===================================== --- a/src/tools/worldcom.lisp +++ b/src/tools/worldcom.lisp @@ -58,12 +58,19 @@ (comf "target:assembly/mips/arith" :assem t) (comf "target:assembly/mips/alloc" :assem t)) -(when (c:backend-featurep :sparc) +(when (and (c:backend-featurep :sparc) + (not (c:backend-featurep :sparc64))) (comf "target:assembly/sparc/assem-rtns" :assem t) (comf "target:assembly/sparc/array" :assem t) (comf "target:assembly/sparc/arith" :assem t) (comf "target:assembly/sparc/alloc" :assem t)) +(when (c:backend-featurep :sparc64) + (comf "target:assembly/sparc64/assem-rtns" :assem t) + (comf "target:assembly/sparc64/array" :assem t) + (comf "target:assembly/sparc64/arith" :assem t) + (comf "target:assembly/sparc64/alloc" :assem t)) + (when (c:backend-featurep :rt) (comf "target:assembly/rt/assem-rtns" :assem t) (comf "target:assembly/rt/array" :assem t) ===================================== src/tools/worldload.lisp ===================================== --- a/src/tools/worldload.lisp +++ b/src/tools/worldload.lisp @@ -59,7 +59,8 @@ (setf (ext:search-list "c:") '("target:compiler/")) (setf (ext:search-list "vm:") '(#+(or pmax sgi) "c:mips/" - #+sparc "c:sparc/" + #+(and sparc (not sparc64)) "c/sparc/" + #+sparc64 "c/sparc64/" #+rt "c:rt/" #+hppa "c:hppa/" #+x86 "c:x86/" @@ -69,7 +70,8 @@ "c:generic/")) (setf (ext:search-list "assem:") '(#+(or pmax sgi) "target:assembly/mips/" - #+sparc "target:assembly/sparc/" + #+sparc64 "target:assembly/sparc64/" + #+(and sparc (not sparc64)) "target:assembly/sparc/" #+rt "target:assembly/rt/" #+hppa "target:assembly/hppa/" #+x86 "target:assembly/x86/" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/5dafa396dadbffead16fd9d6e…

1 0