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

[Git][cmucl/cmucl][master] Update notes
by Raymond Toy 12 Oct '18

12 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b6faace8 by Raymond Toy at 2018-10-12T18:20:56Z Update notes - - - - - 1 changed file: - src/general-info/release-21d.md Changes: ===================================== src/general-info/release-21d.md ===================================== @@ -26,6 +26,7 @@ public domain. * The generator is also faster than MT19937 (approximately 28% faster on x86 and 18% on sparc). * The new function `KERNEL:RANDOM-STATE-JUMP` modifies the given state to jump 2^64 samples ahead, allowing 2^64 non-overlapping sequences. * Updated CLX to telent clx version 06e39a0d. + * New functions `SET-GC-ASSERTIONS` and `GET-GC-ASSERTIONS`. See the docstrings for more information and also ~~#69~~. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b6faace8b52fa8ca8ce5c3ed3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b6faace8b52fa8ca8ce5c3ed3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update translation files
by Raymond Toy 12 Oct '18

12 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 741b6176 by Raymond Toy at 2018-10-12T17:16:40Z Update translation files - - - - - 2 changed files: - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po Changes: ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po ===================================== @@ -9237,6 +9237,38 @@ msgstr "" " allway odecay objectsway inway Acespay ithway oremay anthay Aboveway " "unctionfay onstantscay." +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "Ohway onay. Ethay urrentcay ynamicday acespay isway issingmay!" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl.po ===================================== @@ -6418,6 +6418,38 @@ msgid "" " all code objects in Space with more than Above function constants." msgstr "" +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/741b6176ec9b8097852a1ab01… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/741b6176ec9b8097852a1ab01… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update with new docstring
by Raymond Toy 07 Oct '18

07 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f471f66e by Raymond Toy at 2018-10-07T23:51:45Z Update with new docstring - - - - - 1 changed file: - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6412,6 +6412,39 @@ msgid "" " all code objects in Space with more than Above function constants." msgstr "" +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +"" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f471f66e97287bb7653bd0338… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f471f66e97287bb7653bd0338… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Update from commit logs
by Raymond Toy 07 Oct '18

07 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 08a948e1 by Raymond Toy at 2018-09-22T20:02:05Z Update from commit logs - - - - - 810c52ea by Raymond Toy at 2018-10-07T21:10:41Z Define control_stack_end for all platforms - - - - - 4 changed files: - src/general-info/release-21d.md - src/lisp/globals.c - src/lisp/globals.h - src/lisp/validate.c Changes: ===================================== src/general-info/release-21d.md ===================================== @@ -37,6 +37,7 @@ public domain. * ~~#58~~ Bogus type error in comparison of complex number with `THE` form * ~~#61~~ Segfault when compiling call to `ARRAY-HAS-FILL-POINTER-P` on bit vector constant * ~~#62~~ Segfault when compiling `ARRAY-DISPLACEMENT` on a string constant + * ~~#69~~ GC assertions compiled in and allow user to enable them. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/lisp/globals.c ===================================== @@ -27,10 +27,7 @@ lispobj *dynamic_0_space; lispobj *dynamic_1_space; unsigned dynamic_space_size; lispobj *control_stack; - -#if (defined(i386) || defined(__x86_64)) lispobj *control_stack_end; -#endif lispobj *binding_stack; lispobj *current_dynamic_space; ===================================== src/lisp/globals.h ===================================== @@ -37,9 +37,7 @@ extern unsigned long binding_stack_size; extern unsigned long static_space_size; extern unsigned long control_stack_size; -#if (defined(i386) || defined(__x86_64)) extern lispobj *control_stack_end; -#endif extern lispobj *current_dynamic_space; #if !defined(ibmrt) && !defined(i386) ===================================== src/lisp/validate.c ===================================== @@ -118,17 +118,12 @@ validate_stacks() #ifdef CONTROL_STACK_START /* Map the control stack at a fixed location */ control_stack = (lispobj *) CONTROL_STACK_START; -#if (defined(i386) || defined(__x86_64)) control_stack_end = (lispobj *) (CONTROL_STACK_START + control_stack_size); -#endif ensure_space(control_stack, control_stack_size); #else /* Map the conrol stack wherever we have space */ control_stack = (lispobj*) os_validate(NULL, control_stack_size); - -#if (defined(i386) || defined(__x86_64)) control_stack_end = (void*)control_stack + control_stack_size; -#endif #endif /* Binding Stack */ View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/925241a9828267cef4a47967… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/925241a9828267cef4a47967… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0