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

[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

[Git][cmucl/cmucl][native-image] 16 commits: Fix up headings for issue templates
by Raymond Toy (＠rtoy) 25 Oct '21

25 Oct '21

Raymond Toy pushed to branch native-image at cmucl / cmucl Commits: 44d21db2 by Raymond Toy at 2021-10-25T11:25:28-07:00 Fix up headings for issue templates The headings used to be `**foo**`, but it's better to use `## foo`. The old headings would cause the following paragraph to be appended to the heading. Thus ``` ## foo Text ``` became ``` foo Text ``` with "foo" in bold. With the new markup, this doesn't happen. - - - - - b49a00c2 by Jon Boone at 2021-10-25T11:25:28-07:00 adds additional keyword arguments to instance-usage for more fine-grained tracking of space allocation - - - - - fc2b38e2 by Raymond Toy at 2021-10-25T11:25:28-07:00 Fix #105: Include build logs in artifacts Include the build logs in the artifacts so we can examine the logs to see what happened when a build fails. - - - - - 6049fe16 by Raymond Toy at 2021-10-25T11:25:28-07:00 Fix #107: Use uint8_t instead of u_int8_t. Use the C standard type `uint8_t` instead of `u_int8_t`. - - - - - 9a574d79 by Raymond Toy at 2021-10-25T11:25:28-07:00 Address #89: Clean up page flags - - - - - 624a2646 by Raymond Toy at 2021-10-25T11:25:28-07:00 Fix #97: Use UD1 instruction instead of INT3 - - - - - 06b3c8c9 by Raymond Toy at 2021-10-25T11:25:28-07:00 For solaris, nanosleep is in the -lrt library Add -lrt to the OS_LIBS for Solaris x86 so it can find nanosleep. - - - - - 294d8505 by Raymond Toy at 2021-10-25T11:25:28-07:00 Update release notes - - - - - fd1cb7dd by Raymond Toy at 2021-10-25T11:25:29-07:00 Merge issue-108-update-asdf to master. - - - - - 304e7bf6 by Raymond Toy at 2021-10-25T11:25:29-07:00 Include string.h to declare memcmp x86-arch.c uses memcmp without declaring it. Noticed on macos, but not on linux. - - - - - 79d29758 by Raymond Toy at 2021-10-25T11:25:29-07:00 Update CI to use 2021-07 snapshots - - - - - 5eed7e6d by Raymond Toy at 2021-10-25T11:25:29-07:00 Include debug symbols in motifd Add -g flag so that debug symbols are included in motifd. I don't think there's really any reason not to do this, and makes debugging motifd releases easier. - - - - - e0218abb by Raymond Toy at 2021-10-25T11:25:29-07:00 Fix #113: Search cmucl modules and libraries first - - - - - 65dcc6d1 by Raymond Toy at 2021-10-25T11:25:29-07:00 Fix #112: Update CLX sources of 2021-09-19 and support inet sockets - - - - - 9917e9df by Raymond Toy at 2021-10-25T11:25:29-07:00 Update release notes from changes up to 2021/09/22 - - - - - 389e13e5 by Raymond Toy at 2021-10-25T11:25:29-07:00 Use /opt/local/bin/curl on OSX instead of /usr/bin/curl - - - - - 17 changed files: - .gitlab-ci.yml - .gitlab/issue_templates/Bug.md - .gitlab/issue_templates/Feature.md - src/clx/README.md - src/clx/attributes.lisp - src/clx/buffer.lisp - src/clx/clx.asd - src/clx/clx.lisp - src/clx/demo/clclock.lisp - src/clx/demo/clx-demos.lisp - src/clx/demo/mandel.lisp - src/clx/demo/menu.lisp - src/clx/dep-allegro.lisp - src/clx/dep-lispworks.lisp - src/clx/depdefs.lisp - src/clx/dependent.lisp - src/clx/display.lisp The diff was not included because it is too large. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9f3243f4f682765a2c47c1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9f3243f4f682765a2c47c1… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Use /opt/local/bin/curl on OSX instead of /usr/bin/curl
by Raymond Toy (＠rtoy) 18 Oct '21

18 Oct '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ff391861 by Raymond Toy at 2021-10-18T04:05:13+00:00 Use /opt/local/bin/curl on OSX instead of /usr/bin/curl - - - - - b9315678 by Raymond Toy at 2021-10-18T04:05:14+00:00 Merge branch 'issue-119-ci-osx-install-fails' into 'master' Use /opt/local/bin/curl on OSX instead of /usr/bin/curl Closes #119 See merge request cmucl/cmucl!82 - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -109,7 +109,7 @@ osx:install: paths: - snapshot/ script: - - curl -s -o cmucl-$version-darwin.tar.bz2 $download_url/cmucl-$version-darwin.tar.bz2 + - /opt/local/bin/curl -o cmucl-$version-darwin.tar.bz2 $download_url/cmucl-$version-darwin.tar.bz2 - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) @@ -161,8 +161,8 @@ osx:ansi-test: - job: osx:build artifacts: true before_script: - - git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git - - (cd ansi-test; git checkout rtoy-cmucl-expected-failures) + - /opt/local/bin/git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git + - (cd ansi-test; /opt/local/bin/git checkout rtoy-cmucl-expected-failures) script: - cd ansi-test - make LISP="../dist/bin/lisp -batch -noinit -nositeinit" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2e3b90ff9cc84de876fd99… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2e3b90ff9cc84de876fd99… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0