Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
5047b0dc
by Raymond Toy at 2024-08-10T14:39:54+00:00
-
69615d62
by Raymond Toy at 2024-08-10T14:39:57+00:00
4 changed files:
- src/lisp/arch.h
- src/lisp/arm-arch.c
- + src/lisp/arm-arch.h
- src/tools/cross-scripts/cross-x86-arm.lisp
Changes:
| ... | ... | @@ -76,4 +76,8 @@ extern void restore_fpu_state(void*); |
| 76 | 76 | #if defined(sparc)
|
| 77 | 77 | #include "sparc-arch.h"
|
| 78 | 78 | #endif
|
| 79 | + |
|
| 80 | +#if defined(__arm__)
|
|
| 81 | +#include "arm-arch.h"
|
|
| 82 | +#endif
|
|
| 79 | 83 | #endif /* __ARCH_H__ */ |
| ... | ... | @@ -18,6 +18,13 @@ |
| 18 | 18 | #include "breakpoint.h"
|
| 19 | 19 | #include "interr.h"
|
| 20 | 20 | |
| 21 | +/*
|
|
| 22 | + * Set to positive value to enabled debug prints related to the sigill
|
|
| 23 | + * and sigtrap handlers. Also enables prints related to handling of
|
|
| 24 | + * breakpoints.
|
|
| 25 | + */
|
|
| 26 | +unsigned int debug_handlers = 0;
|
|
| 27 | + |
|
| 21 | 28 | char *
|
| 22 | 29 | arch_init(fpu_mode_t mode)
|
| 23 | 30 | {
|
| 1 | +/*
|
|
| 2 | + |
|
| 3 | + This code was written as part of the CMU Common Lisp project and has
|
|
| 4 | + been placed in the public domain.
|
|
| 5 | + |
|
| 6 | +*/
|
|
| 7 | + |
|
| 8 | +#ifndef ARM_ARCH_H
|
|
| 9 | +/*
|
|
| 10 | + * Set to non-zero to enable debug prints for debugging the sigill and
|
|
| 11 | + * sigtrap handlers and for debugging breakpoints.
|
|
| 12 | + */
|
|
| 13 | +extern unsigned int debug_handlers;
|
|
| 14 | + |
|
| 15 | +#endif |
| ... | ... | @@ -16,7 +16,7 @@ |
| 16 | 16 | :relative-package-names ; Relative package names from Allegro
|
| 17 | 17 | :conservative-float-type
|
| 18 | 18 | :hash-new
|
| 19 | - :random-mt19937 ; MT-19937 generator
|
|
| 19 | + :random-xoroshiro
|
|
| 20 | 20 | :modular-arith ; Modular arithmetic
|
| 21 | 21 | :double-double ; Double-double float support
|
| 22 | 22 | :unicode
|
| ... | ... | @@ -52,6 +52,7 @@ |
| 52 | 52 | :complex-fp-vops
|
| 53 | 53 | :alien-callback
|
| 54 | 54 | :linkage-table
|
| 55 | + :random-mt19937
|
|
| 55 | 56 | ))
|
| 56 | 57 | |
| 57 | 58 | ;; Temporarily use large values so that error messages in the logs
|