Raymond Toy pushed to branch master at cmucl / cmucl
Commits: 5047b0dc by Raymond Toy at 2024-08-10T14:39:54+00:00 Update arm build to current sources
- - - - - 69615d62 by Raymond Toy at 2024-08-10T14:39:57+00:00 Merge branch 'rtoy-arm-update-to-current' into 'master'
Update arm build to current sources
See merge request cmucl/cmucl!241 - - - - -
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:
===================================== src/lisp/arch.h ===================================== @@ -76,4 +76,8 @@ extern void restore_fpu_state(void*); #if defined(sparc) #include "sparc-arch.h" #endif + +#if defined(__arm__) +#include "arm-arch.h" +#endif #endif /* __ARCH_H__ */
===================================== src/lisp/arm-arch.c ===================================== @@ -18,6 +18,13 @@ #include "breakpoint.h" #include "interr.h"
+/* + * Set to positive value to enabled debug prints related to the sigill + * and sigtrap handlers. Also enables prints related to handling of + * breakpoints. + */ +unsigned int debug_handlers = 0; + char * arch_init(fpu_mode_t mode) {
===================================== src/lisp/arm-arch.h ===================================== @@ -0,0 +1,15 @@ +/* + + This code was written as part of the CMU Common Lisp project and has + been placed in the public domain. + +*/ + +#ifndef ARM_ARCH_H +/* + * Set to non-zero to enable debug prints for debugging the sigill and + * sigtrap handlers and for debugging breakpoints. + */ +extern unsigned int debug_handlers; + +#endif
===================================== src/tools/cross-scripts/cross-x86-arm.lisp ===================================== @@ -16,7 +16,7 @@ :relative-package-names ; Relative package names from Allegro :conservative-float-type :hash-new - :random-mt19937 ; MT-19937 generator + :random-xoroshiro :modular-arith ; Modular arithmetic :double-double ; Double-double float support :unicode @@ -52,6 +52,7 @@ :complex-fp-vops :alien-callback :linkage-table + :random-mt19937 ))
;; Temporarily use large values so that error messages in the logs
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/5236d91e5eb2a119a76e6d5...