mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-03-10 23:20:23 -07:00
We cannot build MSVC with debug information on variables because the compiler does not allow us to statically initialize arrays/vectors of the ecl_array/ecl_vector type
This commit is contained in:
parent
a0f06986b1
commit
92d5aac5eb
2 changed files with 8 additions and 0 deletions
|
|
@ -551,6 +551,12 @@
|
|||
((special global closure replaced lexical) . NIL)))))
|
||||
|
||||
(defun build-debug-lexical-env (var-locations &optional first)
|
||||
#+:msvc
|
||||
(if first
|
||||
(wt-nl "cl_object _ecl_debug_env = Cnil;")
|
||||
(wt-nl "ihs.lex_env = _ecl_debug_env = Cnil;"))
|
||||
|
||||
#-:msvc ;; FIXME! Problem with initialization of statically defined vectors
|
||||
(let* ((filtered-locations '())
|
||||
(filtered-codes '()))
|
||||
;; Filter out variables that we know how to store in the
|
||||
|
|
|
|||
|
|
@ -286,6 +286,8 @@
|
|||
(t nil)))
|
||||
|
||||
(defun add-static-constant (object)
|
||||
#+msvc
|
||||
nil
|
||||
#-:msvc
|
||||
;; FIXME! The Microsoft compiler does not allow static initialization of bit fields.
|
||||
(unless (or *compiler-constants* (not (listp *static-constants*)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue