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

[Git][cmucl/cmucl][issue-350-solaris-export-warnings] Add "ARM-FASL-FILE-IMPLEMENTATION" to C package exports
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch issue-350-solaris-export-warnings at cmucl / cmucl Commits: 532bc06b by Raymond Toy at 2024-08-22T16:06:24-07:00 Add "ARM-FASL-FILE-IMPLEMENTATION" to C package exports Solaris14 complains about this. Don't know why Linux or OSX don't, but we should export this since it is exported in src/compiler/generic/vm-macs.lisp. - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -1989,6 +1989,7 @@ "ALPHA-FASL-FILE-IMPLEMENTATION" "SGI-FASL-FILE-IMPLEMENTATION" "AMD64-FASL-FILE-IMPLEMENTATION" + "ARM-FASL-FILE-IMPLEMENTATION" "MAKE-UNBOUND-MARKER" "RETURN-SINGLE" "BACKEND-PAGE-SIZE" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/532bc06bcd2c33da1faa8dd… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/532bc06bcd2c33da1faa8dd… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #353: Use gtar on Solaris
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: adf29820 by Raymond Toy at 2024-08-22T20:29:32+00:00 Fix #353: Use gtar on Solaris - - - - - 186fb776 by Raymond Toy at 2024-08-22T20:29:36+00:00 Merge branch 'issue-353-solaris-use-gtar' into 'master' Fix #353: Use gtar on Solaris Closes #353 See merge request cmucl/cmucl!250 - - - - - 1 changed file: - bin/make-dist.sh Changes: ===================================== bin/make-dist.sh ===================================== @@ -59,7 +59,8 @@ def_arch_os () { sun*) ARCH=sparc ;; i*) - ARCH=x86 ;; + ARCH=x86 + GTAR=gtar ;; esac uname_r=`uname -r` case $uname_r in View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e4b82cb4e97cd29203c7a9… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e4b82cb4e97cd29203c7a9… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #351: Use grep instead of egrep and update patterns
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ea1f0b32 by Raymond Toy at 2024-08-22T20:20:51+00:00 Fix #351: Use grep instead of egrep and update patterns - - - - - e4b82cb4 by Raymond Toy at 2024-08-22T20:20:54+00:00 Merge branch 'issue-351-solaris-grep' into 'master' Fix #351: Use grep instead of egrep and update patterns Closes #351 See merge request cmucl/cmucl!249 - - - - - 1 changed file: - bin/make-extra-dist.sh Changes: ===================================== bin/make-extra-dist.sh ===================================== @@ -93,13 +93,15 @@ install ${GROUP} ${OWNER} -m 0755 $TARGET/motif/server/motifd \ $DESTDIR/lib/cmucl/lib/ # Install the contrib stuff. Create the directories and then copy the files. - -for d in `(cd src; find contrib -type d -print | grep -E -v "CVS|asdf|defsystem")` +# +# asdf, defsystem and unix are part of the main distribution, so skip +# these directories. +for d in `(cd src; find contrib -type d -print | grep -v "asdf\|defsystem")` do install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d done -for f in `(cd src/contrib; find . -type f -print | grep -E -v "CVS|asdf|defsystem|unix")` +for f in `(cd src/contrib; find . -type f -print | grep -v "asdf\|defsystem\|unix")` do FILE=`basename $f` DIR=`dirname $f` @@ -108,13 +110,13 @@ done # Install all the locale data. -for d in `(cd src/i18n/; find locale -type d -print | grep -E -v CVS)` +for d in `(cd src/i18n/; find locale -type d -print)` do install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/$d done -# Install mo files. -for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')` +# Install mo files. Ignore any emacs-style backup files. +for f in `(cd $TARGET/i18n; find locale -type f -print | grep -v '~.*~\|.*~')` do FILE=`basename $f` DIR=`dirname $f` @@ -122,7 +124,7 @@ do done # Install po files. (Do we really need to distribute the po files?) -#for f in `(cd $TARGET/i18n; find locale -type f -print | grep -E -v 'CVS|~.*~|.*~')` +#for f in `(cd $TARGET/i18n; find locale -type f -print | grep -v '~.*~\|.*~')` #do # FILE=`basename $f` # DIR=`dirname $f` View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/0243097544980dde9def2a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/0243097544980dde9def2a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #262: arch_skip_inst invalid code
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 6b8df49b by Raymond Toy at 2024-08-22T14:18:22+00:00 Fix #262: arch_skip_inst invalid code - - - - - 02430975 by Raymond Toy at 2024-08-22T14:18:49+00:00 Merge branch 'issue-262-fix-arch-skip-inst-invalid' into 'master' Fix #262: arch_skip_inst invalid code Closes #262 See merge request cmucl/cmucl!248 - - - - - 1 changed file: - src/lisp/x86-arch.c Changes: ===================================== src/lisp/x86-arch.c ===================================== @@ -29,7 +29,13 @@ * included here. */ static const unsigned char ud1[] = {0x0f, 0xb9}; - + +/* + * Extract the error trap code from the UD1 instruction. BYTE must be + * the 3rd byte of the UD1 instruction that represents the mod r/m + * byte. + */ +#define UD1_CODE(modrm) ((modrm) & 0x3f) /* * Set to positive value to enabled debug prints related to the sigill @@ -161,7 +167,8 @@ arch_skip_instruction(os_context_t * context) */ pc += sizeof(ud1); - code = *pc++; + code = UD1_CODE(*pc++); + SC_PC(context) = (unsigned long) pc; switch (code) { @@ -187,7 +194,7 @@ arch_skip_instruction(os_context_t * context) break; default: - fprintf(stderr, "[arch_skip_inst invalid code %d\n]\n", code); + fprintf(stderr, "[arch_skip_inst invalid code 0x%x\n]\n", code); break; } @@ -387,7 +394,7 @@ sigill_handler(HANDLER_ARGS) * number is placed in the low 6-bits of the 3rd byte of the * instruction. */ - trap = *(((char *)SC_PC(context)) + 2) & 0x3f; + trap = UD1_CODE(*(((char *)SC_PC(context)) + sizeof(ud1))); DPRINTF(debug_handlers, (stderr, "code = %x\n", trap)); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b614f974decf204770b377… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b614f974decf204770b377… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-353-solaris-use-gtar
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed new branch issue-353-solaris-use-gtar at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-353-solaris-use-gtar You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-351-solaris-grep
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed new branch issue-351-solaris-grep at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-351-solaris-grep You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-262-fix-arch-skip-inst-invalid] Apply 2 suggestion(s) to 1 file(s)
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch issue-262-fix-arch-skip-inst-invalid at cmucl / cmucl Commits: 570d67ec by Raymond Toy at 2024-08-22T13:17:50+00:00 Apply 2 suggestion(s) to 1 file(s) Co-authored-by: Carl Shapiro <cshapiro(a)panix.com> - - - - - 1 changed file: - src/lisp/x86-arch.c Changes: ===================================== src/lisp/x86-arch.c ===================================== @@ -35,7 +35,7 @@ static const unsigned char ud1[] = {0x0f, 0xb9}; * the 3rd byte of the UD1 instruction that represents the mod r/m * byte. */ -#define UD1_CODE(byte) ((byte) & 0x3f) +#define UD1_CODE(modrm) ((modrm) & 0x3f) /* * Set to positive value to enabled debug prints related to the sigill @@ -394,7 +394,7 @@ sigill_handler(HANDLER_ARGS) * number is placed in the low 6-bits of the 3rd byte of the * instruction. */ - trap = UD1_CODE(*(((char *)SC_PC(context)) + 2)); + trap = UD1_CODE(*(((char *)SC_PC(context)) + sizeof(ud1))); DPRINTF(debug_handlers, (stderr, "code = %x\n", trap)); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/570d67ecc5141c3c01ee096… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/570d67ecc5141c3c01ee096… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-262-fix-arch-skip-inst-invalid] Print the invalid code as hex, not a signed integer.
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed to branch issue-262-fix-arch-skip-inst-invalid at cmucl / cmucl Commits: 47e545bb by Raymond Toy at 2024-08-21T19:15:22-07:00 Print the invalid code as hex, not a signed integer. We used to print -55. It now prints as 0xc9, which is more helpful in determining. (Of course this won't actually be printed anymore since the code is now the low 6 bits of the byte.) - - - - - 1 changed file: - src/lisp/x86-arch.c Changes: ===================================== src/lisp/x86-arch.c ===================================== @@ -194,7 +194,7 @@ arch_skip_instruction(os_context_t * context) break; default: - fprintf(stderr, "[arch_skip_inst invalid code %d\n]\n", code); + fprintf(stderr, "[arch_skip_inst invalid code 0x%x\n]\n", code); break; } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/47e545bbc1b6c7f542ff351… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/47e545bbc1b6c7f542ff351… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-262-fix-arch-skip-inst-invalid
by Raymond Toy (＠rtoy) 22 Aug '24

22 Aug '24

Raymond Toy pushed new branch issue-262-fix-arch-skip-inst-invalid at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-262-fix-arch-skip-i… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-350-solaris-export-warnings
by Raymond Toy (＠rtoy) 21 Aug '24

21 Aug '24

Raymond Toy pushed new branch issue-350-solaris-export-warnings at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-350-solaris-export-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0