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

[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 18 Dec '16

18 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 18 Dec '16

18 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

[Git][cmucl/cmucl][sparc64-dev] Initial sparc64 cross-compiler script
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 24919d2a by Raymond Toy at 2016-12-17T14:40:53-08:00 Initial sparc64 cross-compiler script o Add :sparc64 feature to indicate this build is for 64-bit sparc. o Set paths to sparc64. - - - - - 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 @@ -10,7 +10,8 @@ (c::new-backend "SPARC" ;; Features to add here - '(:sparc + '(:sparc64 + :sparc :sparc-v9 ; For Ultrasparc processors :complex-fp-vops ; Some slightly faster FP vops on complex numbers :linkage-table @@ -115,9 +116,9 @@ (setf (search-list "c:") '("target:compiler/")) (setf (search-list "vm:") - '("c:sparc/" "c:generic/")) + '("c:sparc64/" "c:generic/")) (setf (search-list "assem:") - '("target:assembly/" "target:assembly/sparc/")) + '("target:assembly/" "target:assembly/sparc64/")) ;; Load the backend of the compiler. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/24919d2af372bf64c4794fc5b…

1 0

[Git][cmucl/cmucl][sparc64-dev] Cross-compile script for x86 to sparc64.
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 9cfbec22 by Raymond Toy at 2016-12-17T14:38:42-08:00 Cross-compile script for x86 to sparc64. Just a copy of cross-x86-sparc.lisp to initialize the cross script for sparc64. No changes. - - - - - 1 changed file: - + src/tools/cross-scripts/cross-x86-sparc64.lisp Changes: ===================================== src/tools/cross-scripts/cross-x86-sparc64.lisp ===================================== --- /dev/null +++ b/src/tools/cross-scripts/cross-x86-sparc64.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/9cfbec22dbdf3fdc1c1d82c49…

1 0

[Git][cmucl/cmucl][sparc64-dev] 4 commits: Revert sparc64 changes.
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: a3a37628 by Raymond Toy at 2016-12-17T08:45:23-08:00 Revert sparc64 changes. These were committed accidentally. Revert to previous version. - - - - - b6e6372c by Raymond Toy at 2016-12-17T08:46:48-08:00 Revert sparc64 changes. These were committed accidentally. Revert to previous version. - - - - - 934ca7bf by Raymond Toy at 2016-12-17T13:33:22-08:00 Merge branch 'master' into sparc64-dev - - - - - 4352c211 by Raymond Toy at 2016-12-17T13:36:40-08:00 Move ASSEM_SRC to individual configs ASSEM_SRC is no longer common on sparc so move it from Config.sparc_common to Config.sparc_sunc and Config.sparc64_sunc. For sparc64, set it to sparc64-assem.S instead of just sparc-assem.S. (Haven't updated sparc64-assem.S to sparc64 yet.) - - - - - 3 changed files: - src/lisp/Config.sparc64_sunc - src/lisp/Config.sparc_common - src/lisp/Config.sparc_sunc Changes: ===================================== src/lisp/Config.sparc64_sunc ===================================== --- a/src/lisp/Config.sparc64_sunc +++ b/src/lisp/Config.sparc64_sunc @@ -24,7 +24,7 @@ CC_V8PLUS = -xarch=sparc AS_V8PLUS = -xarch=sparc endif -ASSEM_SRC = sparcv9-assem.S +ASSEM_SRC = sparc64-assem.S CFLAGS += -xlibmieee -O DEPEND_FLAGS = -xM ASFLAGS = $(AS_V8PLUS) ===================================== src/lisp/Config.sparc_common ===================================== --- a/src/lisp/Config.sparc_common +++ b/src/lisp/Config.sparc_common @@ -43,7 +43,6 @@ CPPFLAGS += -I. -I$(PATH1) $(CC_V8PLUS) $(CPP_DEFINE_OPTIONS) CFLAGS += -g $(CC_V8PLUS) NM = $(PATH1)/solaris-nm -#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,11 +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 = -xarch=sparc -AS_V8PLUS = -xarch=sparc +CC_V8PLUS = -m32 -xarch=sparc +AS_V8PLUS = -m32 -xarch=sparc endif -ASSEM_SRC = sparcv9-assem.S +ASSEM_SRC = sparc-assem.S CFLAGS += -xlibmieee -O DEPEND_FLAGS = -xM ASFLAGS = $(AS_V8PLUS) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/fe4f6806960ad5c0cdaab417…

1 0

[Git][cmucl/cmucl][master] Regenerated cmucl-sunos-os.pot
by Raymond Toy 17 Dec '16

17 Dec '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 1e94ce3a by Raymond Toy at 2016-12-17T17:08:45-05:00 Regenerated cmucl-sunos-os.pot - - - - - 1 changed file: - src/i18n/locale/cmucl-sunos-os.pot Changes: ===================================== 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 "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/1e94ce3a8b46ae3dc5afd81a3…

1 0