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

[Git][cmucl/cmucl][master] 2 commits: Remove the definition of __NO_CTYPE from the Linux build
by Carl Shapiro (＠cshapiro) 28 Apr '24

28 Apr '24

Carl Shapiro pushed to branch master at cmucl / cmucl Commits: af5a360e by Carl Shapiro at 2024-04-26T19:03:44-07:00 Remove the definition of __NO_CTYPE from the Linux build The definition of this macro disables the definition of isalpha(3) and other symbols from ctype.h from being defined as macros that depend on internal glibc functions not present in all versions of glibc. At the time, that allowed binaries compiled against newer versions of glibc to run on systems with older versions of glibc. However, today the internal functions have been available for more than two decades and so this feature does not appreciably affect compatibility. - - - - - 5b3f4145 by Carl Shapiro at 2024-04-28T05:24:36+00:00 Merge branch 'no-ctype' into 'master' Remove the definition of __NO_CTYPE from the Linux build See merge request cmucl/cmucl!214 - - - - - 1 changed file: - src/lisp/Config.x86_linux Changes: ===================================== src/lisp/Config.x86_linux ===================================== @@ -2,7 +2,7 @@ include Config.x86_common CFLAGS += $(COPT) -CPPFLAGS += -m32 -D__NO_CTYPE +CPPFLAGS += -m32 CFLAGS += -rdynamic -march=pentium4 -mfpmath=sse -mtune=generic CFLAGS += -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/520213dd9aa1154c1b9127… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/520213dd9aa1154c1b9127… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-307-dynamically-alloc-altstack] Initialize altstack on Darwin too
by Raymond Toy (＠rtoy) 27 Apr '24

27 Apr '24

Raymond Toy pushed to branch issue-307-dynamically-alloc-altstack at cmucl / cmucl Commits: 1acd68dc by Raymond Toy at 2024-04-26T20:54:36-07:00 Initialize altstack on Darwin too Make CI happy by initializing altstack on darwin too. - - - - - 1 changed file: - src/lisp/Darwin-os.c Changes: ===================================== src/lisp/Darwin-os.c ===================================== @@ -107,10 +107,13 @@ os_init0(const char *argv[], const char *envp[]) void os_init(const char *argv[], const char *envp[]) { + extern char *altstack; os_vm_page_size = OS_VM_DEFAULT_PAGESIZE; #ifdef __ppc__ timebase_init(); #endif + + altstack = malloc(SIGNAL_STACK_SIZE); } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1acd68dcf71f04039cbf82b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1acd68dcf71f04039cbf82b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-307-dynamically-alloc-altstack
by Raymond Toy (＠rtoy) 27 Apr '24

27 Apr '24

Raymond Toy pushed new branch issue-307-dynamically-alloc-altstack at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-307-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 the retry limit for resizing password entry buffer
by Carl Shapiro (＠cshapiro) 26 Apr '24

26 Apr '24

Carl Shapiro pushed to branch master at cmucl / cmucl Commits: 06958230 by Carl Shapiro at 2024-04-25T12:45:59-07:00 Fix the retry limit for resizing password entry buffer The previous version checked that the buffer had not exceeded the limit of 1MiB after the buffer was resized. In otherwords, the buffer is allowed to grow past the limit before the retry loop is exited. This change moves the check of the buffer size before the allocation occurs. Now, the retry loop is exited before the buffer would grow past the limit. - - - - - 520213dd by Carl Shapiro at 2024-04-26T02:00:30+00:00 Merge branch 'retry-limit' into 'master' Fix the retry limit for resizing password entry buffer See merge request cmucl/cmucl!212 - - - - - 1 changed file: - src/lisp/os-common.c Changes: ===================================== src/lisp/os-common.c ===================================== @@ -753,26 +753,27 @@ os_file_author(const char *path) * Keep trying with larger buffers until a maximum is reached. We * assume (1 << 20) is large enough for any OS. */ - while (size <= (1 << 20)) { - switch (getpwuid_r(sb.st_uid, &pwd, buffer, size, &ppwd)) { - case 0: - /* Success, though we might not have a matching entry */ - result = (ppwd == NULL) ? NULL : strdup(pwd.pw_name); - goto exit; - case ERANGE: - /* Buffer is too small, double its size and try again */ - size *= 2; - if ((buffer = realloc(obuffer, size)) == NULL) { - goto exit; - } - obuffer = buffer; - continue; - default: - /* All other errors */ - goto exit; - } +again: + switch (getpwuid_r(sb.st_uid, &pwd, buffer, size, &ppwd)) { + case 0: + /* Success, though we might not have a matching entry */ + result = (ppwd == NULL) ? NULL : strdup(pwd.pw_name); + break; + case ERANGE: + /* Buffer is too small, double its size and try again */ + size *= 2; + if (size > (1 << 20)) { + break; + } + if ((buffer = realloc(obuffer, size)) == NULL) { + break; + } + obuffer = buffer; + goto again; + default: + /* All other errors */ + break; } -exit: free(obuffer); return result; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/99abb703b68b67143b6a77… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/99abb703b68b67143b6a77… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix an incorrect error check detected by the GCC analyzer
by Carl Shapiro (＠cshapiro) 26 Apr '24

26 Apr '24

Carl Shapiro pushed to branch master at cmucl / cmucl Commits: 57c9f9b7 by Carl Shapiro at 2024-04-25T12:30:13-07:00 Fix an incorrect error check detected by the GCC analyzer The return value of open(2) should be compared with -1 to check for an error but it was compared with 0 instead. - - - - - 99abb703 by Carl Shapiro at 2024-04-26T01:53:53+00:00 Merge branch 'open-error' into 'master' Fix an incorrect error check detected by the GCC analyzer See merge request cmucl/cmucl!211 - - - - - 1 changed file: - src/lisp/elf.c Changes: ===================================== src/lisp/elf.c ===================================== @@ -442,7 +442,7 @@ map_core_sections(const char *exec_name) image_static_space_size, image_read_only_space_size; - if (!(exec_fd = open(exec_name, O_RDONLY))) { + if ((exec_fd = open(exec_name, O_RDONLY)) == -1) { perror("Can't open executable!"); exit(-1); } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7c91087e17dd1145e04843… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7c91087e17dd1145e04843… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix a double free detected by the GCC analyzer
by Carl Shapiro (＠cshapiro) 25 Apr '24

25 Apr '24

Carl Shapiro pushed to branch master at cmucl / cmucl Commits: 729fae26 by Carl Shapiro at 2024-04-25T01:15:17-07:00 Fix a double free detected by the GCC analyzer The obuffer variable contained a pointer to a block of memory freed by realloc(3) if the ERANGE case was executed more than once. Afterward, if the 0 case executed, obuffer would be passed to free(3) causing a double free. This change sets the value of obuffer to buffer immediately after a successful call to realloc(3) ensure it is always NULL or a valid block of memory. - - - - - 7c91087e by Carl Shapiro at 2024-04-25T16:37:26+00:00 Merge branch 'file-author' into 'master' Fix a double free detected by the GCC analyzer See merge request cmucl/cmucl!210 - - - - - 1 changed file: - src/lisp/os-common.c Changes: ===================================== src/lisp/os-common.c ===================================== @@ -762,10 +762,10 @@ os_file_author(const char *path) case ERANGE: /* Buffer is too small, double its size and try again */ size *= 2; - obuffer = (buffer == initial) ? NULL : buffer; if ((buffer = realloc(obuffer, size)) == NULL) { goto exit; } + obuffer = buffer; continue; default: /* All other errors */ View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8de3c927c724813022110b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8de3c927c724813022110b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #303: Remove unused var *assert-not-standard-readtable*
by Raymond Toy (＠rtoy) 22 Apr '24

22 Apr '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b040810c by Raymond Toy at 2024-04-22T13:57:52+00:00 Fix #303: Remove unused var *assert-not-standard-readtable* - - - - - 8de3c927 by Raymond Toy at 2024-04-22T13:57:57+00:00 Merge branch 'issue-303-remove-unused-assert-not-standard-readtable' into 'master' Fix #303: Remove unused var *assert-not-standard-readtable* Closes #303 See merge request cmucl/cmucl!209 - - - - - 1 changed file: - src/code/reader.lisp Changes: ===================================== src/code/reader.lisp ===================================== @@ -620,8 +620,7 @@ ;; Of course, we want to be able to modify the standard ;; readtable here! (invoke-restart 'kernel::continue)))) - (let ((*readtable* std-lisp-readtable) - (*assert-not-standard-readtable* nil)) + (let ((*readtable* std-lisp-readtable)) (set-cat-entry #\tab #.whitespace) (set-cat-entry #\linefeed #.whitespace) (set-cat-entry #\space #.whitespace) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/1abdcb329d945247acc210… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/1abdcb329d945247acc210… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-303-remove-unused-assert-not-standard-readtable
by Raymond Toy (＠rtoy) 19 Apr '24

19 Apr '24

Raymond Toy pushed new branch issue-303-remove-unused-assert-not-standard-readtable at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-303-remove-unused-a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Use snapshot-2024-04 to run the CI
by Raymond Toy (＠rtoy) 19 Apr '24

19 Apr '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 83df8fec by Raymond Toy at 2024-04-19T12:01:18-07:00 Use snapshot-2024-04 to run the CI Snapshots have been uploaded so use them for running the CI. - - - - - 1abdcb32 by Raymond Toy at 2024-04-19T15:08:49-07:00 Remove // comment According to [fc0bd2a6f0] this change was supposed to be removed but never was. Let's do it now. This was also the only place where we used C++ comment-style. - - - - - 2 changed files: - .gitlab-ci.yml - src/lisp/gencgc.c Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,6 +1,6 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/08" - version: "xoroshiro-assembly-x86" + download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2024/04" + version: "2024-04-x86" bootstrap: "" ===================================== src/lisp/gencgc.c ===================================== @@ -4325,7 +4325,7 @@ u32_vector(lispobj obj, unsigned *length) static inline void free_hash_entry(struct hash_table *hash_table, int hash_index, int kv_index) { - unsigned length = UINT_MAX; // to compare to + unsigned length = UINT_MAX; unsigned *index_vector = u32_vector(hash_table->index_vector, &length); unsigned *next_vector = u32_vector(hash_table->next_vector, 0); int free_p = 1; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a33e75aed5ec46cd2ec116… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a33e75aed5ec46cd2ec116… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2024-04
by Raymond Toy (＠rtoy) 19 Apr '24

19 Apr '24

Raymond Toy pushed new tag snapshot-2024-04 at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/snapshot-2024-04 You're receiving this email because of your account on gitlab.common-lisp.net.

1 0