From: M. K. <mar...@gm...> - 2008-09-24 12:25:00
|
Lates git failed to build on Windows XP SP3 with mingw gcc-4.3.2 ; compilation finished in 0:00:01 ; compiling file "C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" (written 07 AUG 2008 10:55:34 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE BUFFER-SAP ...)) ; compiling (DEFSTRUCT (BUFFER #) ...) ; compiling (DEFVAR *AVAILABLE-BUFFERS* ...) ; compiling (DEFVAR *AVAILABLE-BUFFERS-SPINLOCK* ...) ; compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...) ; compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...) ; compiling (DEFUN ALLOC-BUFFER ...) ; compiling (DEFUN GET-BUFFER ...) ; compiling (DECLAIM (INLINE RESET-BUFFER)) ; compiling (DEFUN RESET-BUFFER ...) ; compiling (DEFUN RELEASE-BUFFER ...) ; compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...) ; compiling (DEFSTRUCT (FD-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN BUFFER-OUTPUT ...) ; compiling (DEFUN FLUSH-OUTPUT-BUFFER ...) ; compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...) ; compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...) ; compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...) ; compiling (DEFUN OUTPUT-RAW-BYTES ...) ; compiling (DEFINE-COMPILER-MACRO OUTPUT-RAW-BYTES ...) ; compiling (DEFVAR *OUTPUT-ROUTINES* ...) ; compiling (DEFUN SIMPLE-STREAM-PERROR ...) ; compiling (DEFUN SIMPLE-FILE-PERROR ...) ; compiling (DEFUN STREAM-DECODING-ERROR ...) ; compiling (DEFUN STREAM-ENCODING-ERROR ...) ; compiling (DEFUN C-STRING-ENCODING-ERROR ...) ; compiling (DEFUN C-STRING-DECODING-ERROR ...) ; compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...) ; compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...) ; compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...) ; compiling (DEFUN EXTERNAL-FORMAT-DECODING-ERROR ...) ; compiling (DEFUN SYNCHRONIZE-STREAM-OUTPUT ...) ; compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...) ; compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...) ; compiling (DEFMACRO OUTPUT-WRAPPER ...) ; compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...) ; compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; compiling (DEFUN FD-SOUT ...) ; compiling (DEFVAR *EXTERNAL-FORMATS* ...) ; compiling (DEFUN GET-EXTERNAL-FORMAT ...) ; compiling (DEFUN GET-EXTERNAL-FORMAT-FUNCTION ...) ; compiling (DEFUN PICK-OUTPUT-ROUTINE ...) ; compiling (DEFVAR *INPUT-ROUTINES* ...)unhandled COMMON-LISP:SIMPLE-ERROR: probable XC bug in host read-time conditional 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (COMMON-LISP:LAMBDA #) {C14DD55}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<COMMON-LISP:SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {90957C9}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<COMMON-LISP:SIMPLE-ERROR {C14CD69}> #<unavailable argument>) 3: (COMMON-LISP:INVOKE-DEBUGGER #<COMMON-LISP:SIMPLE-ERROR {C14CD69}>) 4: (COMMON-LISP:INVOKE-DEBUGGER #<COMMON-LISP:SIMPLE-ERROR {C14CD69}>)[:EXTERNAL] 5: (COMMON-LISP:ERROR "probable XC bug in host read-time conditional")[:EXTERNAL] 6: (SB-COLD::CHECKED-FEATURE-IN-FEATURES-LIST-P :WIN32 (:SB-XC :ANSI-CL :COMMON-LISP :SBCL :SB-DOC ...)) 7: (SB-COLD::SHE-READER #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> #\+ COMMON-LISP:NIL) 8: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> #\#) 9: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> #<unavailable argument>) 10: (COMMON-LISP:READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:T) 11: (COMMON-LISP:READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:NIL) 12: (COMMON-LISP:READ #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> COMMON-LISP:NIL) 13: (SB!C::READ-FOR-COMPILE-FILE #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\fd-stream.lisp" {D1AE8B1}> 33167) 14: (SB!C::SUB-SUB-COMPILE-FILE #<SB!C::SOURCE-INFO >) 15: ((COMMON-LISP:LAMBDA ())) 16: (SB!C::%WITH-COMPILATION-UNIT #<CLOSURE (COMMON-LISP:LAMBDA #) {D1AD4B5}>)[:EXTERNAL] 17: (SB!C::SUB-COMPILE-FILE #<SB!C::SOURCE-INFO >) 18: (SB-XC:COMPILE-FILE "src/code/fd-stream.lisp")[:EXTERNAL] 19: (SB-COLD::COMPILE-STEM "src/code/fd-stream" :OBJ-PREFIX "obj/from-xc/" :OBJ-SUFFIX ".lisp-obj" :TMP-OBJ-SUFFIX-SUFFIX "-tmp" :SRC-PREFIX "" :SRC-SUFFIX ".lisp" :COMPILE-FILE #<FUNCTION (SB-C::&OPTIONAL-DISPATCH SB-XC:COMPILE-FILE) {B88D48D}> :TRACE-FILE COMMON-LISP:NIL :IGNORE-FAILURE-P COMMON-LISP:NIL) 20: (SB-COLD::IN-TARGET-CROSS-COMPILATION-MODE #<CLOSURE (COMMON-LISP:LAMBDA #) {D197D0D}>) 21: ((COMMON-LISP:LAMBDA ())) 22: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COMMON-LISP:LET ((SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES COMMON-LISP:NIL)) (SB-COLD::DO-STEMS-AND-FLAGS (SB-COLD::STEM SB-COLD::FLAGS) (COMMON-LISP:UNLESS (COMMON-LISP:POSITION :NOT-TARGET SB-COLD::FLAGS) (COMMON-LISP:PUSH # SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES))) (COMMON-LISP:SETF SB-COLD::*TARGET-OBJECT-FILE-NAMES* (COMMON-LISP:NREVERSE SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES))) #<NULL-LEXENV>) 23: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\cold\\compile-cold-sbcl.lisp" {B1AA5E9}> COMMON-LISP:NIL COMMON-LISP:NIL) 24: (SB-FASL::%LOAD #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\src\\cold\\compile-cold-sbcl.lisp" {B1AA5E9}>)[:EXTE RNAL] 25: (SB-FASL::%LOAD "src/cold/compile-cold-sbcl.lisp")[:EXTERNAL] 26: (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp")[:EXTERNAL] 27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp") #<NULL-LEXENV>) 28: (SB-EXT:INTERACTIVE-EVAL (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp")) 29: (SB-IMPL::REPL-FUN COMMON-LISP:NIL) 30: (SB-IMPL::REPL-FUN COMMON-LISP:NIL)[:EXTERNAL] 31: ((COMMON-LISP:LAMBDA ())) 32: ((COMMON-LISP:LAMBDA ()))[:EXTERNAL] 33: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (COMMON-LISP:LAMBDA #) {A659E35}>) 34: (SB-IMPL::TOPLEVEL-REPL COMMON-LISP:NIL) 35: (SB-IMPL::TOPLEVEL-INIT) 36: ((COMMON-LISP:LABELS SB-IMPL::RESTART-LISP)) 37: ("foreign function: #x4100F5") 38: ("foreign function: #x408BD9") unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; compilation aborted after 0:00:02 |
From: Nikodemus S. <nik...@ra...> - 2008-09-24 13:01:56
|
On Wed, Sep 24, 2008 at 8:24 AM, Marko Kocić <mar...@gm...> wrote: > Lates git failed to build on Windows XP SP3 with mingw gcc-4.3.2 Does this fix the build for you? Cheers, -- Nikodemus diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index de635c7..5fde245 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -821,10 +821,10 @@ ;;; correct on win32. However, none of the places that use it require ;;; further assurance than "may" versus "will definitely not". (defun sysread-may-block-p (stream) - #+win32 + #!+win32 ;; This answers T at EOF on win32, I think. (not (sb!win32:fd-listen (fd-stream-fd stream))) - #-win32 + #!-win32 (sb!unix:with-restarted-syscall (count errno) (sb!alien:with-alien ((read-fds (sb!alien:struct sb!unix:fd-set))) (sb!unix:fd-zero read-fds) |
From: M. K. <mar...@gm...> - 2008-09-24 13:38:05
|
Now the build goes a little bit further and fails with the following: ; file: c:\dev\cvstree\lisp\sbcl.git\src\code\filesys.lisp ; in: DEFUN RENAME-FILE ; 'SB!INT:SIMPLE-FILE-ERROR ; ; note: deleting unreachable code ; compiling (DEFUN DELETE-FILE ...)unhandled COMMON-LISP:SIMPLE-ERROR: probable XC bug in host read-time conditional 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (COMMON-LISP:LAMBDA #) {C24FDB5}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<COMMON-LISP:SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {90957C9}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<COMMON-LISP:SIMPLE-ERROR {C24EDC1}> #<unavailable argument>) 3: (COMMON-LISP:INVOKE-DEBUGGER #<COMMON-LISP:SIMPLE-ERROR {C24EDC1}>) 4: (COMMON-LISP:INVOKE-DEBUGGER #<COMMON-LISP:SIMPLE-ERROR {C24EDC1}>)[:EXTERNAL] 5: (COMMON-LISP:ERROR "probable XC bug in host read-time conditional")[:EXTERNAL] 6: (SB-COLD::CHECKED-FEATURE-IN-FEATURES-LIST-P :WIN32 (:SB-XC :ANSI-CL :COMMON-LISP :SBCL :SB-DOC ...)) 7: (SB-COLD::SHE-READER #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #\- COMMON-LISP:NIL) 8: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #\#) 9: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #<unavailable argument>) 10: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #\() 11: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #<unavailable argument>) 12: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #\() 13: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #<unavailable argument>) 14: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #\() 15: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> #<unavailable argument>) 16: (COMMON-LISP:READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:T) 17: (COMMON-LISP:READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:NIL) 18: (COMMON-LISP:READ #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:NIL #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> COMMON-LISP:NIL) 19: (SB!C::READ-FOR-COMPILE-FILE #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\code\\filesys.lisp" {C323971}> 32414) 20: (SB!C::SUB-SUB-COMPILE-FILE #<SB!C::SOURCE-INFO >) 21: ((COMMON-LISP:LAMBDA ())) 22: (SB!C::%WITH-COMPILATION-UNIT #<CLOSURE (COMMON-LISP:LAMBDA #) {C32258D}>)[:EXTERNAL] 23: (SB!C::SUB-COMPILE-FILE #<SB!C::SOURCE-INFO >) 24: (SB-XC:COMPILE-FILE "src/code/filesys.lisp")[:EXTERNAL] 25: (SB-COLD::COMPILE-STEM "src/code/filesys" :OBJ-PREFIX "obj/from-xc/" :OBJ-SUFFIX ".lisp-obj" :TMP-OBJ-SUFFIX-SUFFIX "-tmp" :SRC-PREFIX "" :SRC-SUFFIX ".lisp" :COMPILE-FILE #<FUNCTION (SB-C::&OPTIONAL-DISPATCH SB-XC:COMPILE-FILE) {B88D48D}> :TRACE-FILE COMMON-LISP:NIL :IGNORE-FAILURE-P COMMON-LISP:NIL) 26: (SB-COLD::IN-TARGET-CROSS-COMPILATION-MODE #<CLOSURE (COMMON-LISP:LAMBDA #) {C30CFBD}>) 27: ((COMMON-LISP:LAMBDA ())) 28: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COMMON-LISP:LET ((SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES COMMON-LISP:NIL)) (SB-COLD::DO-STEMS-AND-FLAGS (SB-COLD::STEM SB-COLD::FLAGS) (COMMON-LISP:UNLESS (COMMON-LISP:POSITION :NOT-TARGET SB-COLD::FLAGS) (COMMON-LISP:PUSH # SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES))) (COMMON-LISP:SETF SB-COLD::*TARGET-OBJECT-FILE-NAMES* (COMMON-LISP:NREVERSE SB-COLD::REVERSED-TARGET-OBJECT-FILE-NAMES))) #<NULL-LEXENV>) 29: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\cold\\compile-cold-sbcl.lisp" {B1AA5E9}> COMMON-LISP:NIL COMMON-LISP:NIL) 30: (SB-FASL::%LOAD #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\src\\cold\\compile-cold-sbcl.lisp" {B1AA5E9}>)[:EXTE RNAL] 31: (SB-FASL::%LOAD "src/cold/compile-cold-sbcl.lisp")[:EXTERNAL] 32: (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp")[:EXTERNAL] 33: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp") #<NULL-LEXENV>) 34: (SB-EXT:INTERACTIVE-EVAL (COMMON-LISP:LOAD "src/cold/compile-cold-sbcl.lisp")) 35: (SB-IMPL::REPL-FUN COMMON-LISP:NIL) 36: (SB-IMPL::REPL-FUN COMMON-LISP:NIL)[:EXTERNAL] 37: ((COMMON-LISP:LAMBDA ())) 38: ((COMMON-LISP:LAMBDA ()))[:EXTERNAL] 39: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (COMMON-LISP:LAMBDA #) {A659E3D}>) 40: (SB-IMPL::TOPLEVEL-REPL COMMON-LISP:NIL) 41: (SB-IMPL::TOPLEVEL-INIT) 42: ((COMMON-LISP:LABELS SB-IMPL::RESTART-LISP)) 43: ("foreign function: #x4100F5") 44: ("foreign function: #x408BD9") unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; printed 7 notes ; compilation aborted after 0:00:04 |
From: Nikodemus S. <nik...@ra...> - 2008-09-24 14:16:31
|
On Wed, Sep 24, 2008 at 9:37 AM, Marko Kocić <mar...@gm...> wrote: > Now the build goes a little bit further and fails with the following: > > ; file: c:\dev\cvstree\lisp\sbcl.git\src\code\filesys.lisp > ; in: DEFUN RENAME-FILE > ; 'SB!INT:SIMPLE-FILE-ERROR > ; > ; note: deleting unreachable code > > ; compiling (DEFUN DELETE-FILE ...)unhandled COMMON-LISP:SIMPLE-ERROR: > probable XC bug in host read-time conditional Thanks. This should take care of it: diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index 20a0c1e..1a42e7d 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -702,8 +702,8 @@ or if PATHSPEC is a wild pathname." ;; SBCL_HOME isn't set for :EXECUTABLE T embedded cores (when (and sbcl-home (not (string= sbcl-home ""))) (parse-native-namestring sbcl-home - #-win32 sb!impl::*unix-host* - #+win32 sb!impl::*win32-host* + #!-win32 sb!impl::*unix-host* + #!+win32 sb!impl::*win32-host* *default-pathname-defaults* :as-directory t)))) @@ -727,8 +727,8 @@ system." ;; What?! -- RMK, 2007-12-31 (return-from user-homedir-pathname (sb!win32::get-folder-pathname sb!win32::csidl_profile))) - #-win32 sb!impl::*unix-host* - #+win32 sb!impl::*win32-host* + #!-win32 sb!impl::*unix-host* + #!+win32 sb!impl::*win32-host* *default-pathname-defaults* :as-directory t)))) Cheers, -- Nikodemus |
From: Christophe R. <cs...@ca...> - 2008-09-24 15:05:30
|
"Marko Kocić" <mar...@gm...> writes: > Now the build goes a little bit further and fails with the following: > > ; file: c:\dev\cvstree\lisp\sbcl.git\src\code\filesys.lisp > ; in: DEFUN RENAME-FILE > ; 'SB!INT:SIMPLE-FILE-ERROR > ; > ; note: deleting unreachable code > > ; compiling (DEFUN DELETE-FILE ...)unhandled COMMON-LISP:SIMPLE-ERROR: > probable XC bug in host read-time conditional This error message, just like the one before, indicates somewhere that has #+win32 or #-win32, rather than what it should have: #!+win32 or #!-win32 (reader conditionals on _target_ features, rather than _host compiler_ features). Find that place and fix it. Repeat until you don't get this message any more :-) Best, Christophe |
From: M. K. <mar...@gm...> - 2008-09-24 14:51:48
|
> This error message, just like the one before, indicates somewhere that > has #+win32 or #-win32, rather than what it should have: #!+win32 or > #!-win32 (reader conditionals on _target_ features, rather than _host > compiler_ features). > > Find that place and fix it. Repeat until you don't get this message > any more :-) The previous patch fixed that type of errors. Now it faile in genesis phase: beginning GENESIS, creating core "output/cold-sbcl.core" ... WARNING: redefining ".bss" from #X417008 to #X41A3FC WARNING: redefining ".bss" from #X41A3FC to #X417008 ... WARNING: redefining ".data" from #X412370 to #X412040 WARNING: redefining ".data" from #X412040 to #X412370 ... WARNING: redefining ".debug_abbrev" from #X442D40 to #X442A76 WARNING: redefining ".debug_abbrev" from #X442A76 to #X4453C9 ... WARNING: redefining ".debug_frame" from #X44E428 to #X44E000 WARNING: redefining ".debug_frame" from #X44E000 to #X44FF5C WARNING: redefining ".debug_info" from #X42FCF4 to #X42B188 WARNING: redefining ".debug_info" from #X42B188 to #X423F8A ... WARNING: redefining ".debug_line" from #X44D0F7 to #X44ACE7 WARNING: redefining ".debug_line" from #X44ACE7 to #X44CE3B WARNING: redefining ".debug_loc" from #X45950C to #X4554BA ... obj\from-xc\src\code\float.lisp-obj obj\from-xc\src\code\irrat.lisp-obj The foreign symbol table is: ".bss" = #X 41A3FC ".ctors.65535" = #X 411744 ... ... unhandled SIMPLE-ERROR: The foreign symbol "asin" is undefined. 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {C0150AD}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {90957C9}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR {C0140E1}> #<unavailable argument>) 3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C0140E1}>) 4: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C0140E1}>)[:EXTERNAL] 5: (ERROR "The foreign symbol ~S is undefined.")[:EXTERNAL] 6: (SB!FASL::COLD-FOREIGN-SYMBOL-ADDRESS "asin") 7: (SB!FASL::COLD-FOP-FOREIGN-FIXUP) 8: (SB!FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\obj\\from-xc\\src\\code\\irrat.lisp-obj" {A8A8E81}>) 9: (SB!FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\lisp\\sbcl.git\\obj\\from-xc\\src\\code\\irrat.lisp-obj" {A8A8E81}> NIL #<unavailable argument>) 10: (SB!FASL::COLD-LOAD #P"obj\\from-xc\\src\\code\\irrat.lisp-obj") 11: (SB!VM:GENESIS)[:EXTERNAL] 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB!VM:GENESIS :OBJECT-FILE-NAMES *TARGET-OBJECT-FILE-NAMES* :C-HEADER-DIR-NAME "output/genesis-2" ...) #<NULL-LEXENV>) 13: (SB-EXT:INTERACTIVE-EVAL (SB!VM:GENESIS :OBJECT-FILE-NAMES *TARGET-OBJECT-FILE-NAMES* :C-HEADER-DIR-NAME "output/genesis-2" ...)) 14: (SB-IMPL::REPL-FUN NIL) 15: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL] 16: ((LAMBDA ())) 17: ((LAMBDA ()))[:EXTERNAL] 18: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {A659E35}>) 19: (SB-IMPL::TOPLEVEL-REPL NIL) 20: (SB-IMPL::TOPLEVEL-INIT) 21: ((LABELS SB-IMPL::RESTART-LISP)) 22: ("foreign function: #x4100F5") 23: ("foreign function: #x408BD9") unhandled condition in --disable-debugger mode, quitting Mingw math.h header contains "_CRTIMP double __cdecl asin (double);" |
From: Nikodemus S. <nik...@ra...> - 2008-10-28 11:09:56
Attachments:
0001-lisp-side-implementation-of-ASIN.patch
|
On Wed, Sep 24, 2008 at 4:47 PM, Marko Kocić <mar...@gm...> wrote: > unhandled SIMPLE-ERROR: The foreign symbol "asin" is undefined. The attached patch adds a lisp-side definition of asin for Win32 (untested). Does this work for you? Cheers, -- Nikodemus |
From: M. K. <mar...@gm...> - 2008-10-28 12:20:56
|
This time the problem is acos. Maybe defining these operations in lisp is not the way to go. As I mentioned in previous mail, asin and acos are defined in math.h: "_CRTIMP double __cdecl asin (double); The question is why it is not recognized during build. I remember that build worked before I switched to gcc-4.3.2. Maybe that is the cause that should be fixed. Thanks, Marko See trace. unhandled SIMPLE-ERROR: The foreign symbol "acos" is undefined. 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {C2A4B0D}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {90957C9}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR {C29DB21}> #<unavailable argument>) 3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C29DB21}>) 4: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C29DB21}>)[:EXTERNAL] 5: (ERROR "The foreign symbol ~S is undefined.")[:EXTERNAL] 6: (SB!FASL::COLD-FOREIGN-SYMBOL-ADDRESS "acos") 7: (SB!FASL::COLD-FOP-FOREIGN-FIXUP) 8: (SB!FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\obj\\from-xc\\src\\code\\irrat.lisp-obj" {AA5B661}>) 9: (SB!FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file C:\\dev\\cvstree\\lisp\\sbcl.git\\obj\\from-xc\\src\\code\\irrat.lisp-obj" {AA5B661}> NIL #<unavailable argument>) 10: (SB!FASL::COLD-LOAD #P"obj\\from-xc\\src\\code\\irrat.lisp-obj") 11: (SB!VM:GENESIS)[:EXTERNAL] 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB!VM:GENESIS :OBJECT-FILE-NAMES *TARGET-OBJECT-FILE-NAMES* :C-HEADER-DIR-NAME "output/genesis-2" ...) #<NULL-LEXENV>) 13: (SB-EXT:INTERACTIVE-EVAL (SB!VM:GENESIS :OBJECT-FILE-NAMES *TARGET-OBJECT-FILE-NAMES* :C-HEADER-DIR-NAME "output/genesis-2" ...)) 14: (SB-IMPL::REPL-FUN NIL) 15: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL] 16: ((LAMBDA ())) 17: ((LAMBDA ()))[:EXTERNAL] 18: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {A659E35}>) 19: (SB-IMPL::TOPLEVEL-REPL NIL) 20: (SB-IMPL::TOPLEVEL-INIT) 21: ((LABELS SB-IMPL::RESTART-LISP)) 22: ("foreign function: #x4100F5") 23: ("foreign function: #x408BD9") unhandled condition in --disable-debugger mode, quitting |
From: Nikodemus S. <nik...@ra...> - 2008-10-28 12:12:11
|
On Tue, Oct 28, 2008 at 1:32 PM, Marko Kocić <mar...@gm...> wrote: > This time the problem is acos. Maybe defining these operations in lisp > is not the way to go. As long as there are no active build maintainers for Win32, defining these operations in lisp is exactly the way to go: debugging "why doesn't the symbol FOO end up in the runtime and what magic do we need to add to take care of it" at distance is not something anyone does for fun. Attached patch adds rest of the trig and hyperbolic functions not implemented directly on iron as lisp-side definitions. (No, I didn't check that the branch cuts are what they are supposed to be -- that can be done once the Win32 build works again...) > The question is why it is not recognized during build. > > I remember that build worked before I switched to gcc-4.3.2. Maybe > that is the cause that should be fixed. The problem is that GCC doesn't link the definition to the runtime, so we don't get the static address we want. I'd rather maintain the lisp-side definitions than fight with GCC. Cheers, -- Nikodemus |
From: Nikodemus S. <nik...@ra...> - 2008-10-28 13:27:54
Attachments:
0001-lisp-side-ASIN-ACOS-SINH-TANH-and-HYPOT.patch
|
On Tue, Oct 28, 2008 at 2:39 PM, Marko Kocić <mar...@gm...> wrote: > Thanks for explanation, and patch. > This time it is failing on hypot Take 3... Cheers, -- Nikodemus |
From: Nikodemus S. <nik...@ra...> - 2008-10-28 13:29:49
Attachments:
0001-lisp-side-ASIN-ACOS-SINH-TANH-and-HYPOT-2.patch
|
On Tue, Oct 28, 2008 at 3:27 PM, Nikodemus Siivola <nik...@ra...> wrote: > On Tue, Oct 28, 2008 at 2:39 PM, Marko Kocić <mar...@gm...> wrote: >> Thanks for explanation, and patch. >> This time it is failing on hypot > > Take 3... Oops, stupid typo in the patch. This one should be better. > Cheers, > > -- Nikodemus |
From: M. K. <mar...@gm...> - 2008-10-28 13:42:05
|
Thanks for explanation, and patch. This time it is failing on hypot unhandled SIMPLE-ERROR: The foreign symbol "hypot" is undefined. Regards, Marko 2008/10/28 Nikodemus Siivola <nik...@ra...>: > On Tue, Oct 28, 2008 at 1:32 PM, Marko Kocić <mar...@gm...> wrote: >> This time the problem is acos. Maybe defining these operations in lisp >> is not the way to go. > > As long as there are no active build maintainers for Win32, defining > these operations in lisp is exactly the way to go: debugging "why > doesn't the symbol FOO end up in the runtime and what magic do we need > to add to take care of it" at distance is not something anyone does > for fun. > > Attached patch adds rest of the trig and hyperbolic functions not > implemented directly on iron as lisp-side definitions. (No, I didn't > check that the branch cuts are what they are supposed to be -- that > can be done once the Win32 build works again...) > >> The question is why it is not recognized during build. >> >> I remember that build worked before I switched to gcc-4.3.2. Maybe >> that is the cause that should be fixed. > > The problem is that GCC doesn't link the definition to the runtime, so > we don't get the static address we want. I'd rather maintain the > lisp-side definitions than fight with GCC. > > Cheers, > > -- Nikodemus > |
From: M. K. <mar...@gm...> - 2008-10-28 13:44:28
|
2008/10/28 Nikodemus Siivola <nik...@ra...>: > On Tue, Oct 28, 2008 at 3:27 PM, Nikodemus Siivola > <nik...@ra...> wrote: >> On Tue, Oct 28, 2008 at 2:39 PM, Marko Kocić <mar...@gm...> wrote: >>> Thanks for explanation, and patch. >>> This time it is failing on hypot >> >> Take 3... > > Oops, stupid typo in the patch. This one should be better. > This one works fine. I finally built sbcl ;) Only sb-simple-streams is not built. Thanks, Marko |
From: Nikodemus S. <nik...@ra...> - 2008-10-28 14:39:23
|
On Tue, Oct 28, 2008 at 3:44 PM, Marko Kocić <mar...@gm...> wrote: > This one works fine. I finally built sbcl ;) > Only sb-simple-streams is not built. I may misremember, but i don't think SB-SIMPLE-STREAMS has ever worked on Windows. Opinions: should I commit this despite the freeze? It makes the Windows build less brittle wrt. the toolchain, but possibly affects the quality of these functions negatively (if nothing else, the lisp-side %hypot is not smart about avoiding over/underflows like the libc version should be.) I'm inclined to say yes, but I don't use Windows, so my opinion should not count for too much... Cheers, -- Nikodemus |
From: Richard M K. <kr...@pr...> - 2008-10-28 15:33:32
|
Nikodemus Siivola <nik...@ra...> wrote: > On Tue, Oct 28, 2008 at 3:44 PM, Marko Kocić <mar...@gm...> wrote: > > > This one works fine. I finally built sbcl ;) > > Only sb-simple-streams is not built. > > I may misremember, but i don't think SB-SIMPLE-STREAMS has ever worked > on Windows. I don't think it ever has (IIRC, because memory mapped files work differently on Win32 than POSIX). > Opinions: should I commit this despite the freeze? I think so. (We don't advertise the Windows port as being finished, after all.) > It makes the Windows build less brittle wrt. the toolchain, but > possibly affects the quality of these functions negatively... Maybe add something to the TODO about this? -- Richard |
From: Nikodemus S. <nik...@ra...> - 2008-10-30 14:49:15
|
On Tue, Oct 28, 2008 at 5:33 PM, Richard M Kreuter <kr...@pr...> wrote: >> Opinions: should I commit this despite the freeze? > > I think so. (We don't advertise the Windows port as being finished, > after all.) In 1.0.21.38. Cheers, -- Nikodemus |