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:
Juan Jose Garcia Ripoll 2009-07-24 20:26:09 +02:00
parent a0f06986b1
commit 92d5aac5eb
2 changed files with 8 additions and 0 deletions

View file

@ -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

View file

@ -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*)))