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

[Git][cmucl/cmucl] Pushed new branch issue-125-unix-stat-wrong
by Raymond Toy (＠rtoy) 03 Aug '22

03 Aug '22

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

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #122: gcc 11 can't build cmucl
by Raymond Toy (＠rtoy) 26 Jun '22

26 Jun '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f4ccaa45 by Raymond Toy at 2022-06-26T22:07:54+00:00 Fix #122: gcc 11 can't build cmucl - - - - - 00907500 by Raymond Toy at 2022-06-26T22:07:54+00:00 Merge branch 'issue-122-gnu-source' into 'master' Fix #122: gcc 11 can't build cmucl Closes #122 See merge request cmucl/cmucl!84 - - - - - 4 changed files: - src/lisp/Config.x86_linux - src/lisp/Config.x86_linux_clang - src/lisp/Linux-os.c - src/lisp/x86-lispregs.h Changes: ===================================== src/lisp/Config.x86_linux ===================================== @@ -2,7 +2,7 @@ include Config.x86_common CFLAGS += $(COPT) -CPPFLAGS += -m32 -D__NO_CTYPE -D_GNU_SOURCE +CPPFLAGS += -m32 -D__NO_CTYPE CFLAGS += -rdynamic -march=pentium4 -mfpmath=sse -mtune=generic UNDEFSYMPATTERN = -Xlinker -u -Xlinker & ===================================== src/lisp/Config.x86_linux_clang ===================================== @@ -2,7 +2,7 @@ include Config.x86_common CC = clang -CPPFLAGS += -m32 -D__NO_CTYPE -D_GNU_SOURCE +CPPFLAGS += -m32 -D__NO_CTYPE CFLAGS += $(COPT) # Allow sse2 instructions (-msse2); and tune for pentium4 ===================================== src/lisp/Linux-os.c ===================================== @@ -17,6 +17,8 @@ * */ +#define _GNU_SOURCE /* for reg_* constants in uc_mcontext.gregs */ +#include <signal.h> #include <stdio.h> #include <sys/param.h> #include <sys/file.h> @@ -198,6 +200,8 @@ os_sigcontext_reg(ucontext_t *scp, int offset) return (unsigned long *) &scp->uc_mcontext.gregs[REG_ESI]; case 14: return (unsigned long *) &scp->uc_mcontext.gregs[REG_EDI]; + case 16: + return (unsigned long*) &scp->uc_mcontext.gregs[REG_EFL]; } return NULL; } ===================================== src/lisp/x86-lispregs.h ===================================== @@ -30,6 +30,7 @@ #define reg_EBP REG(10) #define reg_ESI REG(12) #define reg_EDI REG(14) +#define reg_EFL REG(16) #define reg_SP reg_ESP #define reg_FP reg_EBP @@ -60,7 +61,7 @@ #define SC_EFLAGS(sc) ((sc)->uc_mcontext->ss.eflags) #endif #elif defined(__linux__) -#define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[REG_EFL]) +#define SC_EFLAGS(sc) SC_REG(sc, reg_EFL) #elif defined(__NetBSD__) #define SC_EFLAGS(sc) ((sc)->uc_mcontext.__gregs[_REG_EFL]) #elif defined(SOLARIS) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ca3deab27d85d3fbfbc6d9… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ca3deab27d85d3fbfbc6d9… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-122-gnu-source] Update src/lisp/Linux-os.c
by Carl S. Shapiro (＠cshapiro) 26 Jun '22

26 Jun '22

Carl S. Shapiro pushed to branch issue-122-gnu-source at cmucl / cmucl Commits: d31ab04c by Carl S. Shapiro at 2022-06-26T21:39:23+00:00 Update src/lisp/Linux-os.c - - - - - 1 changed file: - src/lisp/Linux-os.c Changes: ===================================== src/lisp/Linux-os.c ===================================== @@ -17,8 +17,8 @@ * */ -#define _GNU_SOURCE -#include <signal.h> /* for reg_* constants in uc_mcontext.gregs */ +#define _GNU_SOURCE /* for reg_* constants in uc_mcontext.gregs */ +#include <signal.h> #include <stdio.h> #include <sys/param.h> #include <sys/file.h> View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d31ab04c93ea31a452f6d5d… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d31ab04c93ea31a452f6d5d… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-122-gnu-source] Update src/lisp/Linux-os.c
by Carl S. Shapiro (＠cshapiro) 26 Jun '22

26 Jun '22

Carl S. Shapiro pushed to branch issue-122-gnu-source at cmucl / cmucl Commits: 1c2e52ef by Carl S. Shapiro at 2022-06-26T21:28:53+00:00 Update src/lisp/Linux-os.c - - - - - 1 changed file: - src/lisp/Linux-os.c Changes: ===================================== src/lisp/Linux-os.c ===================================== @@ -17,11 +17,8 @@ * */ -#if defined(__linux__) -/* Needed to define REG_foo to get indices into the mcontext gregs. */ #define _GNU_SOURCE -#endif - +#include <signal.h> /* for reg_* constants in uc_mcontext.gregs */ #include <stdio.h> #include <sys/param.h> #include <sys/file.h> View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1c2e52ef5d2262a54179ad1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1c2e52ef5d2262a54179ad1… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-122-gnu-source
by Raymond Toy (＠rtoy) 25 Jun '22

25 Jun '22

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

1 0

[Git][cmucl/cmucl][issue-122-dynamically-allocate-altstack] Only allocate altstack once.
by Raymond Toy (＠rtoy) 30 Jan '22

30 Jan '22

Raymond Toy pushed to branch issue-122-dynamically-allocate-altstack at cmucl / cmucl Commits: e6dd7ca5 by Raymond Toy at 2022-01-30T15:40:37-08:00 Only allocate altstack once. Initialize altstack to NULL, so that we can tell if we need to allocate space for it. - - - - - 1 changed file: - src/lisp/interrupt.c Changes: ===================================== src/lisp/interrupt.c ===================================== @@ -406,7 +406,7 @@ interrupt_maybe_gc(HANDLER_ARGS) \****************************************************************/ #if defined(__linux__) -char* altstack; +char* altstack = NULL; #else char altstack[SIGNAL_STACK_SIZE]; #endif @@ -436,7 +436,14 @@ interrupt_install_low_level_handler(int signal, void handler(HANDLER_ARGS)) sigstack.ss_sp = (void *) SIGNAL_STACK_START; #else #if defined(__linux__) - altstack = malloc(SIGSTKSZ); + /* + * For gcc 11.2 (clang 13.0), we need to allocate altstack + * dynamically. Do this here, but only if we haven't already + * allocated space. + */ + if (altstack == NULL) { + altstack = malloc(SIGSTKSZ); + } #endif sigstack.ss_sp = (void *) altstack; #endif View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e6dd7ca518562373e4a1bf6… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e6dd7ca518562373e4a1bf6… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-122-dynamically-allocate-altstack
by Raymond Toy (＠rtoy) 30 Jan '22

30 Jan '22

Raymond Toy pushed new branch issue-122-dynamically-allocate-altstack at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-122-dynamically-all… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #121: fill-pointer-misc off by one for charpos
by Raymond Toy (＠rtoy) 16 Dec '21

16 Dec '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: bd79fc27 by Raymond Toy at 2021-12-16T18:56:43+00:00 Fix #121: fill-pointer-misc off by one for charpos - - - - - ca3deab2 by Raymond Toy at 2021-12-16T18:56:43+00:00 Merge branch 'issue-121-fill-pointer-misc' into 'master' Fix #121: fill-pointer-misc off by one for charpos Closes #121 See merge request cmucl/cmucl!83 - - - - - 3 changed files: - src/code/stream.lisp - src/general-info/release-21e.md - tests/issues.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -1928,7 +1928,10 @@ output to Output-stream" (let ((found (position #\newline string :test #'char= :end end :from-end t))) (if found - (- end (the fixnum found)) + ;; END points to where the next character goes, not the + ;; last character. FOUND is where the newline is. + ;; Subtract 1 to adjust for the difference. + (- end (the fixnum found) 1) current))))) (:element-type 'base-char))) ===================================== src/general-info/release-21e.md ===================================== @@ -48,6 +48,7 @@ public domain. * ~~#108~~ Update ASDF * ~~#112~~ CLX can't connect to X server via inet sockets * ~~#113~~ REQUIRE on contribs can pull in the wrong things vai ASDF. + * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== tests/issues.lisp ===================================== @@ -556,3 +556,17 @@ (assert-equalp 3.0380154777955097d205 (expt 1.7976931348623157d308 0.6666))) + +(define-test issue.121 + (:tag :issues) + ;; Output should only have one newline character in it. Previously, + ;; we printed two. + (assert-equalp + (concatenate 'string "xxx" (string #\Newline)) + (let ((a (make-array 0 :element-type 'character :fill-pointer 0 + :adjustable t))) + (with-output-to-string (s a) + (format s "xxx") + (terpri s) + (fresh-line s)) + a))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b93156783b639cabd83aed… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b93156783b639cabd83aed… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-121-fill-pointer-misc] Update release notes
by Raymond Toy (＠rtoy) 16 Dec '21

16 Dec '21

Raymond Toy pushed to branch issue-121-fill-pointer-misc at cmucl / cmucl Commits: 3c9385cd by Raymond Toy at 2021-12-16T10:38:49-08:00 Update release notes - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -48,6 +48,7 @@ public domain. * ~~#108~~ Update ASDF * ~~#112~~ CLX can't connect to X server via inet sockets * ~~#113~~ REQUIRE on contribs can pull in the wrong things vai ASDF. + * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3c9385cd401fece8f23b42d… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3c9385cd401fece8f23b42d… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-121-fill-pointer-misc
by Raymond Toy (＠rtoy) 14 Dec '21

14 Dec '21

Raymond Toy pushed new branch issue-121-fill-pointer-misc at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-121-fill-pointer-mi… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0