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

[Git][cmucl/cmucl] Pushed new tag snapshot-2021-01
by Raymond Toy 30 Jan '21

30 Jan '21

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

1 0

[Git][cmucl/cmucl][master] Update notes in preparation for snapshot.
by Raymond Toy 30 Jan '21

30 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: e349bf1d by Raymond Toy at 2021-01-30T09:51:59-08:00 Update notes in preparation for snapshot. Just updated based on the issues that were closed. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -19,8 +19,6 @@ public domain. ## New in this release: * Known issues: - * Building with gcc8 or later doesn't work with the default -O option. Use -O1 instead. This shouldn't really impact overall speed much. - * Added simple support to compile with clang instead, which works. (Use x86_linux_clang). * Feature enhancements * Changes * Update to ASDF 3.3.4 @@ -35,6 +33,12 @@ public domain. * ~~#80~~ Use ASDF to load contribs. cmu-contribs still exists but does nothing. The contrib names are the same, except it's best to use a keyword instead of a string. So, `:contrib-demos` instead of `"contrib-demos"`. * ~~#81~~ Added contribs from Eric Marsden * ~~#82~~ Replace bc with expr in GNUMakefile + * ~~#86~~ Building with gcc 8 and later works when using -O2 optimization + * ~~#90~~ Some static symbols have been removed. This probably makes the fasl files incompatible with older versions. + * ~~#91~~ Loop destructuring no longer incorrectly signals an error + * ~~#95~~ Disassembler syntax of x86 je and movzx is incorrect + * ~~#98~~ fstpd is not an Intel instruction; disassemble as `fstp dword ptr [addr]` + * ~~#100~~ ldb prints out unicode base-chars correctly instead of just the low 8 bits. * 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/e349bf1da7a83e19650aff2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e349bf1da7a83e19650aff2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: ldb prints out Unicode characters
by Raymond Toy 30 Jan '21

30 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 19f274f0 by Raymond Toy at 2021-01-29T17:30:03-08:00 ldb prints out Unicode characters When printing out a base-char, only the low 8 bits of the code were used. But with Unicode support, we need to take all the bits and print them out. For control codes we use the form "#\^x". (Was #\C-x, which isn't a valid supported character form.) Ascii is printed as normal "#\a", and everything else use uses "#\u+<hex>". While we're at it, we also added special cases like #\Vt that are listed in https://cmucl.org/docs/cmu-user/html/Characters.html#Characters. With this, we can print out all unicode characters in a form that can be pasted back into lisp. - - - - - 832e116a by Raymond Toy at 2021-01-30T01:54:08+00:00 Merge branch 'issue-100-ldb-base-char-printing' into 'master' ldb prints out Unicode characters See merge request cmucl/cmucl!67 - - - - - 1 changed file: - src/lisp/print.c Changes: ===================================== src/lisp/print.c ===================================== @@ -212,12 +212,15 @@ static void brief_otherimm(lispobj obj) { int type, c, idx; - char buffer[10]; type = TypeOf(obj); switch (type) { case type_BaseChar: - c = (obj >> 8) & 0xff; + /* + * A base-char should only be 16 bits long now. But + * sometimes it uses all 24. So just grab all the bits. + */ + c = (obj >> 8) & 0xfffff; switch (c) { case '\0': printf("#\\Null"); @@ -228,20 +231,35 @@ brief_otherimm(lispobj obj) case '\b': printf("#\\Backspace"); break; + case '\11': + printf("#\\Tab"); + break; + case '\13': + printf("#\\Vt"); + break; + case '\15': + printf("#\\Return"); + break; + case '\33': + printf("#\\Escape"); + break; + case '\40': + printf("#\\Space"); + break; case '\177': printf("#\\Delete"); break; default: - strcpy(buffer, "#\\"); if (c >= 128) { - strcat(buffer, "m-"); - c -= 128; - } - if (c < 32) { - strcat(buffer, "c-"); - c += '@'; - } - printf("%s%c", buffer, c); + /* Just print out the code value */ + printf("#\\u+%04X", c); + } else if (c < 32) { + /* Print it out as a control character */ + printf("#\\^%c", c + '@'); + } else { + /* Plain ASCII character */ + printf("#\\%c", c); + } break; } break; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ef9fc1bced6dbad3b63213… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ef9fc1bced6dbad3b63213… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-100-ldb-base-char-printing
by Raymond Toy 30 Jan '21

30 Jan '21

Raymond Toy pushed new branch issue-100-ldb-base-char-printing at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-100-ldb-base-char-p… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][native-image] Support type_BaseChar and type_ValueCellHeader
by Raymond Toy 27 Jan '21

27 Jan '21

Raymond Toy pushed to branch native-image at cmucl / cmucl Commits: 9f71e8eb by Raymond Toy at 2021-01-26T22:30:52-08:00 Support type_BaseChar and type_ValueCellHeader Value cells are dumped as some boxed object. - - - - - 1 changed file: - src/lisp/save.c Changes: ===================================== src/lisp/save.c ===================================== @@ -680,6 +680,9 @@ init_asmtab() asmtab[type_SimpleVector] = asm_simple_vector; asmtab[type_FuncallableInstanceHeader] = asm_closure_header; asmtab[type_ComplexVector] = asm_boxed; + asmtab[type_BaseChar] = asm_immediate; + /* Just use asm_boxed or have a special version for a value cell? */ + asmtab[type_ValueCellHeader] = asm_boxed; } void View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9f71e8eb109c45a709c03c1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9f71e8eb109c45a709c03c1… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][native-image] Round up length for boxed objects and simple vector
by Raymond Toy 27 Jan '21

27 Jan '21

Raymond Toy pushed to branch native-image at cmucl / cmucl Commits: f6b1c916 by Raymond Toy at 2021-01-26T21:36:17-08:00 Round up length for boxed objects and simple vector These objects should end on a double-word boundary, so round up the len (from the header) to a double word before printing out the contents. If we don't round and we don't end on a boundary, we'll probably just print an immediate word of 0. Harmless, I think, but we'll add a label that wastes space. - - - - - 1 changed file: - src/lisp/save.c Changes: ===================================== src/lisp/save.c ===================================== @@ -26,6 +26,9 @@ #include "gencgc.h" #endif +/* Like (ceiling x y), but y is constrained to be a power of two */ +#define CEILING(x,y) (((x) + ((y) - 1)) & (~((y) - 1))) + #ifdef FEATURE_EXECUTABLE #include "elf.h" #if !(defined(DARWIN) && defined(__ppc__)) @@ -454,6 +457,7 @@ int asm_boxed(lispobj* ptr, lispobj object, FILE* f) { int len = 1 + HeaderValue(object); + len = CEILING(len, 2); int k; asm_label(ptr, object, f); @@ -464,8 +468,6 @@ asm_boxed(lispobj* ptr, lispobj object, FILE* f) asm_lispobj(ptr + k, ptr[k], f); } - asm_align(f); - return len; } @@ -535,6 +537,7 @@ asm_simple_vector(lispobj* ptr, lispobj object, FILE* f) { int k; int len = ptr[1] >> 2; + len = CEILING(len, 2); lispobj* data = ptr + 2; asm_label(ptr, object, f); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f6b1c916b14484b0d777dd5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f6b1c916b14484b0d777dd5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][native-image] More updates
by Raymond Toy 24 Jan '21

24 Jan '21

Raymond Toy pushed to branch native-image at cmucl / cmucl Commits: 8dc1b098 by Raymond Toy at 2021-01-24T09:02:12-08:00 More updates Add asm_ni as the default to dump out one object with a comment that this is not yet implemented. Fix bug in asm_list_pointer to print just one object. The car and cdr that follow can be handled as more lisp pointers or NIL. asm_function_pointer should just print one object since it's just a pointer and not a function itself. asm_other_pointer should do the same as asm_function_pointer. Add asm_instance_pointer which prints out just the pointer (with label). Add asm_simple_vector which prints out the simple vector header and length followed by all of the lispobjs in the array. Add asm_closure_header which is a simple boxed object containing only lispobjs. Add asm_complex_vector for complex vectors. But just call asm_ni for now for debugging. Update init_asmtab appropriately for the new printers. - - - - - 1 changed file: - src/lisp/save.c Changes: ===================================== src/lisp/save.c ===================================== @@ -438,6 +438,15 @@ asm_header_word(lispobj* ptr, lispobj object, FILE* f) } +int +asm_ni(lispobj* ptr, lispobj object, FILE* f) +{ + asm_label(ptr, object, f); + fprintf(f, "\t.4byte\t0x%lx\t# NOT IMPLEMENTED\n", + object); + return 1; +} + /* * Handles all objects that consists of only of lispobjs */ @@ -476,51 +485,35 @@ asm_list_pointer(lispobj* ptr, lispobj object, FILE* f) asm_label(ptr, object, f); asm_lispobj(ptr, object, f); - asm_lispobj(ptr + 1, ptr[1], f); - return 2; + return 1; } int asm_function_pointer(lispobj* ptr, lispobj object, FILE* f) { - int k; - int len = HeaderValue(object); + printf("function pointer 0x%lx\n", object); asm_label(ptr, object, f); - for (k = 0; k < 6; ++k) { - asm_lispobj(ptr, *ptr, f); - ++ptr; - } - fprintf(f, "# function code\n"); - - unsigned char *c = (unsigned char*) ptr; - - for (k = 0; k < len - 5*4; ++k) { - fprintf(f, "\t.byte\t0x%x\n", *c++); - } - - return len + 1; + asm_lispobj(ptr, object, f); + return 1; } int asm_other_pointer(lispobj* ptr, lispobj object, FILE* f) { - int len; - asm_label(ptr, object, f); asm_lispobj(ptr, object, f); - len = asmtab[TypeOf(ptr[1])](ptr + 1, ptr[1], f); - return len + 1; + return 1; } int asm_fdefn(lispobj* ptr, lispobj object, FILE* f) { - asm_label(ptr, *ptr, f); + asm_label(ptr, object, f); - asm_header_word(ptr, *ptr, f); + asm_header_word(ptr, object, f); asm_lispobj(ptr + 1, ptr[1], f); asm_lispobj(ptr + 2, ptr[2], f); @@ -529,6 +522,43 @@ asm_fdefn(lispobj* ptr, lispobj object, FILE* f) return 4; } +int +asm_instance_pointer(lispobj* ptr, lispobj object, FILE* f) +{ + asm_label(ptr, object, f); + asm_lispobj(ptr, object, f); + return 1; +} + +int +asm_simple_vector(lispobj* ptr, lispobj object, FILE* f) +{ + int k; + int len = ptr[1] >> 2; + lispobj* data = ptr + 2; + + asm_label(ptr, object, f); + asm_header_word(ptr, object, f); + asm_lispobj(ptr + 1, ptr[1], f); + + for (k = 0; k < len; ++k) { + asm_lispobj(data + k, data[k], f); + } + + return len + 2; +} + +int +asm_closure_header(lispobj* ptr, lispobj object, FILE* f) +{ + return asm_boxed(ptr, object, f); +} + +int +asm_complex_vector(lispobj* ptr, lispobj object, FILE* f) +{ + return asm_ni(ptr, object, f); +} #if 0 int @@ -627,24 +657,26 @@ init_asmtab() int k = 0; for (k = 0; k < 256; ++k) { - asmtab[k] = asm_boxed; + asmtab[k] = asm_ni; } for (k = 0; k < 32; ++k) { asmtab[type_EvenFixnum | (k << 3)] = asm_immediate; asmtab[type_FunctionPointer | (k << 3)] = asm_function_pointer; - /* OtherImmediate0 */ + asmtab[type_OtherImmediate0 | (k << 3)] = asm_ni; asmtab[type_ListPointer | (k << 3)] = asm_list_pointer; asmtab[type_OddFixnum | (k << 3)] = asm_immediate; -#if 0 asmtab[type_InstancePointer | (k << 3)] = asm_instance_pointer; -#endif - /* OtherImmediate1 */ + asmtab[type_OtherImmediate1 | (k << 3) ] = asm_ni; asmtab[type_OtherPointer | (k << 3)] = asm_other_pointer; } asmtab[type_SymbolHeader] = asm_boxed; asmtab[type_Fdefn] = asm_fdefn; + asmtab[type_InstanceHeader] = asm_boxed; + asmtab[type_SimpleVector] = asm_simple_vector; + asmtab[type_FuncallableInstanceHeader] = asm_closure_header; + asmtab[type_ComplexVector] = asm_boxed; } void View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8dc1b098315486424544033… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8dc1b098315486424544033… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch native-image
by Raymond Toy 18 Jan '21

18 Jan '21

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

1 0

[Git][cmucl/cmucl][master] Minor tweak to put use the right EI_OSABI value
by Raymond Toy 15 Jan '21

15 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ef9fc1bc by Raymond Toy at 2021-01-15T13:59:13-08:00 Minor tweak to put use the right EI_OSABI value Previously, the EI_OSABI value was either ELFOSAB_SOLARIS for solaris or ELFOSABI_FREEBSD for everything else. Let's update this to include NetBSD and Linux. Unlikely we'll ever support other things like HP-UX, AIX, IRIX, Tru64, etc. The value currently doesn't seem matter, but it seems nice to get it right. - - - - - 1 changed file: - src/lisp/elf.c Changes: ===================================== src/lisp/elf.c ===================================== @@ -132,8 +132,15 @@ write_elf_header(int fd) eh.e_ident[EI_VERSION] = EV_CURRENT; #ifdef SOLARIS eh.e_ident[EI_OSABI] = ELFOSABI_SOLARIS; -#else +#elif defined(__FREEBSD__) eh.e_ident[EI_OSABI] = ELFOSABI_FREEBSD; +#elif defined(__NetBSD__) + eh.e_ident[EI_OSABI] = ELFOSABI_NETBSD; +#elif defined(__linux__) + eh.e_ident[EI_OSABI] = ELFOSABI_LINUX; +#else + /* Default to NONE */ + eh.e_ident[EI_OSABI] = ELFOSABI_NONE; #endif #ifdef SOLARIS View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef9fc1bced6dbad3b63213d… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef9fc1bced6dbad3b63213d… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Address #89: Remove C code to scavenge read-only space
by Raymond Toy 13 Jan '21

13 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 22e573f3 by Raymond Toy at 2021-01-12T16:44:14-08:00 Address #89: Remove C code to scavenge read-only space Since we got rid of the symbol `*scavenge-read-only-space*`, we can never scavenge the read-only space, so remove the C code that scavenges the space. Get rid of the unused var `read_only_space_size` too. - - - - - 3593ca90 by Raymond Toy at 2021-01-13T01:05:13+00:00 Merge branch 'issue-89-unused-var' into 'master' Address #89: Remove C code to scavenge read-only space See merge request cmucl/cmucl!66 - - - - - 1 changed file: - src/lisp/gencgc.c Changes: ===================================== src/lisp/gencgc.c ===================================== @@ -7722,7 +7722,7 @@ static void garbage_collect_generation(int generation, int raise) { unsigned long i; - unsigned long read_only_space_size, static_space_size; + unsigned long static_space_size; #if defined(i386) || defined(__x86_64) invalid_stack_start = (void *) control_stack; @@ -7865,17 +7865,6 @@ garbage_collect_generation(int generation, int raise) printf("Done scavenging the scavenger hooks.\n"); #endif -#if 0 - if (SymbolValue(SCAVENGE_READ_ONLY_SPACE) != NIL) { - read_only_space_size = - (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER) - - read_only_space; - fprintf(stderr, "Scavenge read only space: %ld bytes\n", - read_only_space_size * sizeof(lispobj)); - scavenge(read_only_space, read_only_space_size); - } -#endif - static_space_size = (lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) - static_space; if (gencgc_verbose > 1) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0c857dd10067e1cf90ec… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0c857dd10067e1cf90ec… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0