[Git][cmucl/cmucl][native-image] 5 commits: Fix #103: Remove random-mt19937-update
Raymond Toy
gitlab at common-lisp.net
Sun Feb 14 01:35:57 UTC 2021
Raymond Toy pushed to branch native-image at cmucl / cmucl
Commits:
b6a38aa0 by Raymond Toy at 2021-02-13T09:56:15-08:00
Fix #103: Remove random-mt19937-update
We don't use the MT19937 RNG anymore, so we can remove this assembly
routine. But since the code still exists for mt19937, just use
reader-conditionals to disable this.
- - - - -
9b1abca5 by Raymond Toy at 2021-02-13T18:20:36+00:00
Merge branch 'issue-103-remove-random-mt19937-update' into 'master'
Fix #103: Remove random-mt19937-update
Closes #103
See merge request cmucl/cmucl!71
- - - - -
6c4e032d by Raymond Toy at 2021-02-13T15:06:43-08:00
Merge branch 'master' into native-image
- - - - -
b2d56ebe by Raymond Toy at 2021-02-13T17:24:09-08:00
Add conditionalization in to match gencgc.c
- - - - -
6072cf3f by Raymond Toy at 2021-02-13T17:35:39-08:00
Still print out a note for asm_header_word.
Replace all calls of asm_header_word with a note of "" with a note of
NULL, which means nothing to print in the comment.
- - - - -
2 changed files:
- src/assembly/x86/arith.lisp
- src/lisp/save.c
Changes:
=====================================
src/assembly/x86/arith.lisp
=====================================
@@ -313,7 +313,7 @@
;;; the state vector with new random numbers. The state vector is
;;; passed in the EAX register.
;;;
-#+assembler ; we don't want a vop for this one.
+#+(and random-mt19937 assembler) ; we don't want a vop for this one.
(define-assembly-routine
(random-mt19937-update)
((:temp state unsigned-reg eax-offset)
=====================================
src/lisp/save.c
=====================================
@@ -462,7 +462,12 @@ asm_header_word(lispobj* ptr, lispobj object, FILE* f, const char* note)
unsigned long len = HeaderValue(object);
unsigned long type = TypeOf(object);
- fprintf(f, "\t.4byte\t0x%lx << 8 + %ld\t# %s\n", len, type, asmtab_types[type]);
+ fprintf(f, "\t.4byte\t0x%lx << 8 + %ld\t# %s", len, type, asmtab_types[type]);
+ if (note) {
+ fprintf(f, ": %s\n", note);
+ } else {
+ fprintf(f, "\n");
+ }
}
@@ -487,7 +492,7 @@ asm_boxed(lispobj* ptr, lispobj object, FILE* f)
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "");
+ asm_header_word(ptr, object, f, NULL);
for (k = 1; k < len; ++k) {
asm_lispobj(ptr + k, ptr[k], f);
@@ -542,7 +547,7 @@ asm_fdefn(lispobj* ptr, lispobj object, FILE* f)
{
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "fdefn");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
asm_lispobj(ptr + 2, ptr[2], f);
@@ -576,7 +581,7 @@ asm_simple_vector(lispobj* ptr, lispobj object, FILE* f)
lispobj* data = ptr + 2;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "simple vector");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
for (k = 0; k < len; ++k) {
@@ -596,7 +601,7 @@ asm_closure_header(lispobj* ptr, lispobj object, FILE* f)
closure = (struct closure *) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "closure header");
+ asm_header_word(ptr, object, f, NULL);
fprintf(f, "\t.4byte\tL%08lx\n", closure->function);
nwords -= 2;
@@ -614,7 +619,7 @@ asm_symbol_header(lispobj* ptr, lispobj object, FILE* f)
struct symbol* sym = (struct symbol*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "symbol header");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(&sym->value, sym->value, f);
asm_lispobj(&sym->hash, sym->hash, f);
asm_lispobj(&sym->plist, sym->plist, f);
@@ -653,7 +658,7 @@ asm_code_header(lispobj* ptr, lispobj object, FILE* f)
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "code header");
+ asm_header_word(ptr, object, f, NULL);
for (k = 0; k < nheader_words - 1; ++k) {
asm_lispobj(ptr + k + 1, ptr[k + 1], f);
@@ -677,7 +682,7 @@ asm_code_header(lispobj* ptr, lispobj object, FILE* f)
fprintf(f, "# ->code %p\n", &fheaderp->code);
#endif
asm_label((lispobj*)fheaderp, *((lispobj*)fheaderp), f);
- asm_header_word(&fheaderp->header, fheaderp->header, f, "function header");
+ asm_header_word(&fheaderp->header, fheaderp->header, f, NULL);
fprintf(f, "\t.4byte\tL%lx\n", fheaderp->self);
asm_lispobj(&fheaderp->next, fheaderp->next, f);
asm_lispobj(&fheaderp->name, fheaderp->name, f);
@@ -764,7 +769,7 @@ asm_simple_string(lispobj* where, lispobj object, FILE* f)
#endif
asm_label(where, object, f);
- asm_header_word(where, object, f, "simple string");
+ asm_header_word(where, object, f, NULL);
asm_lispobj(where + 1, where[1], f);
s = (uint16_t*) vector->data;
@@ -802,7 +807,7 @@ asm_vector_bit(lispobj* ptr, lispobj object, FILE* f)
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "simple bit-vector");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = vector->data;
@@ -851,7 +856,7 @@ asm_single_float(lispobj* ptr, lispobj object, FILE* f)
struct single_float* obj = (struct single_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "single float");
+ asm_header_word(ptr, object, f, NULL);
print_float(f, obj->value);
return 2;
@@ -895,7 +900,7 @@ asm_double_float(lispobj* ptr, lispobj object, FILE* f)
struct double_float* obj = (struct double_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "double float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(&obj->filler, obj->filler, f);
print_double(f, obj->value);
@@ -908,7 +913,7 @@ asm_double_double_float(lispobj* ptr, lispobj object, FILE* f)
struct double_double_float* obj = (struct double_double_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "double double float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(&obj->filler, obj->filler, f);
print_double(f, obj->hi);
@@ -923,7 +928,7 @@ asm_complex_single_float(lispobj* ptr, lispobj object, FILE* f)
struct complex_single_float* obj = (struct complex_single_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "complex single-float");
+ asm_header_word(ptr, object, f, NULL);
print_float(f, obj->real);
print_float(f, obj->imag);
/* Force double word boundary */
@@ -938,7 +943,7 @@ asm_complex_double_float(lispobj* ptr, lispobj object, FILE* f)
struct complex_double_float* obj = (struct complex_double_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "complex double-float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(&obj->filler, obj->filler, f);
print_double(f, obj->real);
@@ -953,7 +958,7 @@ asm_complex_double_double_float(lispobj* ptr, lispobj object, FILE* f)
struct complex_double_double_float* obj = (struct complex_double_double_float*) ptr;
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "complex double-float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(&obj->filler, obj->filler, f);
print_double(f, obj->real_hi);
@@ -981,7 +986,7 @@ asm_vector_unsigned_byte_2(lispobj* ptr, lispobj object, FILE* f)
nwords = CEILING(NWORDS(length, 16) + 2, 2);
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector unsigned_byte 2");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = vector->data;
@@ -1012,7 +1017,7 @@ asm_vector_unsigned_byte_4(lispobj* ptr, lispobj object, FILE* f)
nwords = CEILING(NWORDS(length, 8) + 2, 2);
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector unsigned_byte 4");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = vector->data;
@@ -1043,7 +1048,7 @@ asm_vector_unsigned_byte_8(lispobj* ptr, lispobj object, FILE* f)
nwords = CEILING(NWORDS(length, 4) + 2, 2);
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector unsigned_byte 8");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = vector->data;
@@ -1072,7 +1077,7 @@ asm_vector_unsigned_byte_16(lispobj* ptr, lispobj object, FILE* f)
nwords = CEILING(NWORDS(length, 2) + 2, 2);
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector unsigned_byte 16");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = (uint16_t*) vector->data;
@@ -1104,7 +1109,7 @@ asm_vector_unsigned_byte_32(lispobj* ptr, lispobj object, FILE* f)
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector unsigned_byte 32");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = vector->data;
@@ -1134,7 +1139,7 @@ asm_vector_double_float(lispobj* ptr, lispobj object, FILE* f)
#endif
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector double-float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = (const double*) vector->data;
@@ -1160,7 +1165,7 @@ asm_vector_double_double_float(lispobj* ptr, lispobj object, FILE* f)
nwords = CEILING(length * 4 + 2, 2);
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "vector double-float");
+ asm_header_word(ptr, object, f, NULL);
asm_lispobj(ptr + 1, ptr[1], f);
data = (const double*) vector->data;
@@ -1181,7 +1186,7 @@ asm_bignum(lispobj* ptr, lispobj object, FILE* f)
len = CEILING(len, 2);
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "bignum");
+ asm_header_word(ptr, object, f, NULL);
for (k = 1; k < len; ++k) {
fprintf(f, "\t.4byte\t0x%lx\t# %lu\n", ptr[k], ptr[k]);
@@ -1194,7 +1199,7 @@ int
asm_sap(lispobj* ptr, lispobj object, FILE* f)
{
asm_label(ptr, object, f);
- asm_header_word(ptr, object, f, "sap");
+ asm_header_word(ptr, object, f, NULL);
/* Just print out the raw value of the address */
fprintf(f, "\t.4byte\t0x%lx\n", ptr[1]);
@@ -1215,11 +1220,19 @@ init_asmtab(void)
asmtab_types[type_Ratio] = "Ratio";
asmtab_types[type_SingleFloat] = "SingleFloat";
asmtab_types[type_DoubleFloat] = "DoubleFloat";
+#ifdef type_DoubleDoubleFloat
asmtab_types[type_DoubleDoubleFloat] = "DoubleDoubleFloat";
+#endif
asmtab_types[type_Complex] = "Complex";
+#ifdef type_ComplexSingleFloat
asmtab_types[type_ComplexSingleFloat] = "ComplexSingleFloat";
+#endif
+#ifdef type_ComplexDoubleFloat
asmtab_types[type_ComplexDoubleFloat] = "ComplexDoubleFloat";
+#endif
+#ifdef type_ComplexDoubleDoubleFloat
asmtab_types[type_ComplexDoubleDoubleFloat] = "ComplexDoubleDoubleFloat";
+#endif
asmtab_types[type_SimpleArray] = "SimpleArray";
asmtab_types[type_SimpleString] = "SimpleString";
asmtab_types[type_SimpleBitVector] = "SimpleBitVector";
@@ -1229,16 +1242,32 @@ init_asmtab(void)
asmtab_types[type_SimpleArrayUnsignedByte8] = "SimpleArrayUnsignedByte8";
asmtab_types[type_SimpleArrayUnsignedByte16] = "SimpleArrayUnsignedByte16";
asmtab_types[type_SimpleArrayUnsignedByte32] = "SimpleArrayUnsignedByte32";
+#ifdef type_SimpleArraySignedByte8
asmtab_types[type_SimpleArraySignedByte8] = "SimpleArraySignedByte8";
+#endif
+#ifdef type_SimpleArraySignedByte16
asmtab_types[type_SimpleArraySignedByte16] = "SimpleArraySignedByte16";
+#endif
+#ifdef type_SimpleArraySignedByte30
asmtab_types[type_SimpleArraySignedByte30] = "SimpleArraySignedByte30";
+#endif
+#ifdef type_SimpleArraySignedByte32
asmtab_types[type_SimpleArraySignedByte32] = "SimpleArraySignedByte32";
+#endif
asmtab_types[type_SimpleArraySingleFloat] = "SimpleArraySingleFloat";
asmtab_types[type_SimpleArrayDoubleFloat] = "SimpleArrayDoubleFloat";
+#ifdef type_SimpleArrayDoubleDoubleFloat
asmtab_types[type_SimpleArrayDoubleDoubleFloat] = "SimpleArrayDoubleDoubleFloat";
+#endif
+#ifdef type_SimpleArrayComplexSingleFloat
asmtab_types[type_SimpleArrayComplexSingleFloat] = "SimpleArrayComplexSingleFloat";
+#endif
+#ifdef type_SimpleArrayComplexDoubleFloat
asmtab_types[type_SimpleArrayComplexDoubleFloat] = "SimpleArrayComplexDoubleFloat";
+#endif
+#ifdef type_SimpleArrayComplexDoubleDoubleFloat
asmtab_types[type_SimpleArrayComplexDoubleDoubleFloat] = "SimpleArrayComplexDoubleDoubleFloat";
+#endif
asmtab_types[type_ComplexString] = "ComplexString";
asmtab_types[type_ComplexBitVector] = "ComplexBitVector";
asmtab_types[type_ComplexVector] = "ComplexVector";
@@ -1280,11 +1309,19 @@ init_asmtab(void)
asmtab[type_Ratio] = asm_boxed;
asmtab[type_SingleFloat] = asm_single_float;
asmtab[type_DoubleFloat] = asm_double_float;
+#ifdef type_DoubleDoubleFloat
asmtab[type_DoubleDoubleFloat] = asm_double_double_float;
+#endif
asmtab[type_Complex] = asm_boxed;
+#ifdef type_ComplexSingleFloat
asmtab[type_ComplexSingleFloat] = asm_complex_single_float;
+#endif
+#ifdef type_ComplexDoubleFloat
asmtab[type_ComplexDoubleFloat] = asm_complex_double_float;
+#endif
+#ifdef type_ComplexDoubleDoubleFloat
asmtab[type_ComplexDoubleDoubleFloat] = asm_complex_double_double_float;
+#endif
asmtab[type_SimpleArray] = asm_boxed;
asmtab[type_SimpleString] = asm_simple_string;
asmtab[type_SimpleBitVector] = asm_vector_bit;
@@ -1295,12 +1332,16 @@ init_asmtab(void)
asmtab[type_SimpleArrayUnsignedByte16] = asm_vector_unsigned_byte_16;
asmtab[type_SimpleArrayUnsignedByte32] = asm_vector_unsigned_byte_32;
asmtab[type_SimpleArrayDoubleFloat] = asm_vector_double_float;
+#ifdef type_SimpleArrayDoubleDoubleFloat
asmtab[type_SimpleArrayDoubleDoubleFloat] = asm_vector_double_double_float;
+#endif
asmtab[type_ComplexString] = asm_boxed;
asmtab[type_ComplexVector] = asm_boxed;
asmtab[type_CodeHeader] = asm_code_header;
+#if defined(i386) || defined(__x86_64)
asmtab[type_ClosureHeader] = asm_closure_header;
asmtab[type_FuncallableInstanceHeader] = asm_closure_header;
+#endif
/* Just use asm_boxed or have a special version for a value cell? */
asmtab[type_ValueCellHeader] = asm_boxed;
asmtab[type_SymbolHeader] = asm_symbol_header;
@@ -1334,7 +1375,7 @@ write_asm_object(const char *dir, int id, os_vm_address_t start, os_vm_address_t
int k;
/* Output the first word */
- asm_header_word(ptr, *ptr, f, "");
+ asm_header_word(ptr, *ptr, f, NULL);
/* Header word for NIL */
asm_header_word(ptr + 1, ptr[1], f, "NIL header");
/* Label for NIL */
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2f2f9ba8db53aac8b2ce05bc6c67b044b1cbbd5a...6072cf3f9f6d5431f241530cf3ec5514a9a83f9e
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2f2f9ba8db53aac8b2ce05bc6c67b044b1cbbd5a...6072cf3f9f6d5431f241530cf3ec5514a9a83f9e
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20210214/afbfa819/attachment-0001.html>
More information about the cmucl-cvs
mailing list