From 92d5aac5eb5c746ae6bdcb7c2ef17fd5b3e38ff6 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 24 Jul 2009 20:26:09 +0200 Subject: [PATCH] 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 --- src/cmp/cmptop.lsp | 6 ++++++ src/cmp/cmpwt.lsp | 2 ++ 2 files changed, 8 insertions(+) diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index 2a9f8501f..1d59d2019 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -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 diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp index 743407974..234b8d0be 100644 --- a/src/cmp/cmpwt.lsp +++ b/src/cmp/cmpwt.lsp @@ -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*)))