[cmucl-help] CMUCL 18c building on tru64 5.1
Fausto Saporito
fausto.saporito at gmail.com
Tue Sep 2 06:39:14 UTC 2014
Hello,
an interesting update.
Using git I have no error on alpha/vm, it seems all those errors are
gone away, just two of these:
in compiler/generic/primtype.lisp
; DOUBLE-DOUBLE-REG is not a defined storage class.
; COMPLEX-DOUBLE-DOUBLE-REG is not a defined storage class.
but it seems those read errors are very annoying, cause I have
;;; Loading #P"/home/fausap/CMUCL/git-ver/cmucl/alpha-cross/compiler/alpha/macros.lbytef".
Error in function LISP::FOP-EVAL-FOR-EFFECT:
Attempt to load a file having a compile-time read error.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [CONTINUE] Skip this form.
1: Return NIL from load of #P"target:compiler/alpha/macros".
2: Return NIL from load of "target:tools/comcom".
3: Return NIL from load of "cross.lisp".
4: [ABORT ] Return to Top-Level.
Debug (type H for help)
(LISP::FOP-EVAL-FOR-EFFECT)
Source:
; File: target:code/load.lisp
; File has been modified since compilation:
; target:code/load.lisp
; Using form offset instead of character position.
(EVAL (POP-STACK))
if I type 0, I can continue but I got several other errors... and it's useless.
and I have a different "fatal" error in type-vops.lisp
; Compiling: /home/fausap/CMUCL/git-ver/cmucl/src/compiler/alpha/type-vops.lisp
2014-09-02 08:18:43
; Comment: $Header:
/home/fausap/CMUCL/git-ver/cmucl/src/compiler/alpha/type-vops.lisp
a996127 2011-11-03 22:04:50 -0700 Raymond Toy $
Error in KERNEL::UNBOUND-SYMBOL-ERROR-HANDLER: the variable
DYLAN-FUNCTION-HEADER-TYPE is unbound.
Aborting...
2014-09-02 8:12 GMT+02:00 Fausto Saporito <fausto.saporito at gmail.com>:
> Hello Raymond,
>
> I'll try with git sources.
> Can I used 20d binaries ?
> Maybe I should use Linux instead of NetBSD ... this could be better,
> what do you think ?
>
> Before the "severe" error: DESCRIPTOR-REG is not a defined storage
> class, I have some other minor issues related to external symbols
> (that are not external in the ALPHA package).
> How can I fix the external issue ? Is there a way to define them "not
> external" ?
>
> I sent to the list a message with some logs... and it was awaiting
> moderator approval because it was 200KB in size.
>
> But, it seems to me they are two different kind of errors:
>
> this is an excerpt of log about "external error":
>
> Start time: Monday, 9/1/14 11:52:41 am [-2], compiling target:compiler/bit-util.
>
> ; Python version 1.1, VM version Intel x86/sse2 on 2014-09-01 11:52:41.
> ; Compiling: /home/fausap/CMUCL/20d/src/compiler/bit-util.lisp
> 2012-10-27 05:38:08
>
> ; Comment: $Header: src/compiler/bit-util.lisp $
> ;
> ; Error: Read error at 847:
> ; "(do ((i vm:vector-data-offset/\ (1+ i))"
> ; Reader error at 856 on #<Stream for file
> "/home/fausap/CMUCL/20d/src/compiler/bit-util.lisp">:
> ; The symbol "VECTOR-DATA-OFFSET" is not external in the ALPHA package.
> ;
> ;
> ; Byte Compiling Top-Level Form:
> ;
> ; Error: Read error at 1184:
> ; "(do ((i local-tn-limit (- i vm:word-bits/\))"
> ; Reader error at 1187 on #<Stream for file
> "/home/fausap/CMUCL/20d/src/compiler/bit-util.lisp">:
> ; The symbol "WORD-BITS" is not external in the ALPHA package.
> ;
> ;
> ; Converted SET-BIT-VECTOR.
> ; Compiling DEFUN SET-BIT-VECTOR:
> ; Converted BIT-VECTOR-REPLACE.
> ; Compiling DEFUN BIT-VECTOR-REPLACE:
> ; Converted BIT-VECTOR-COPY.
> ; Compiling DEFUN BIT-VECTOR-COPY:
> ; Byte Compiling Top-Level Form:
>
> ; target:compiler/bit-util.sse2f written.
> ; Compilation finished in 0:00:00.
>
> it seems even if there some "read error", the compilation was ok. Correct ?
>
> When I got the other error (storage class), I have
>
> ; Compiling DEFMACRO DEFINE-STORAGE-CLASSES:
> ;
> ; Error: Read error at 6652:
> ; "(catch-block control-stack :element-size vm:catch-block-size/\))"
> ; Reader error at 6655 on #<Stream for file
> "/home/fausap/CMUCL/20d/src/compiler/alpha/vm.lisp">:
> ; The symbol "CATCH-BLOCK-SIZE" is not external in the ALPHA package.
> ;
> ;
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Byte Compiling Top-Level Form:
> ; Converted ALPHA-IMMEDIATE-CONSTANT-SC.
> ; Compiling DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC:
>
>
> Error in function META-SC-OR-LOSE:
> DESCRIPTOR-REG is not a defined storage class.
>
> Aborting...
> 0: (DEBUG:BACKTRACE 536870911
> #<Stream for file
> "/home/fausap/CMUCL/20d/alpha-cross/compile-compiler.log">)
> 1: ("DEFUN COMF" #<SIMPLE-ERROR {49221BCD}>)
> 2: (SIGNAL #<SIMPLE-ERROR {49221BCD}>)
> 3: (ERROR "~S is not a defined storage class." DESCRIPTOR-REG)
> 4: (META-SC-OR-LOSE DESCRIPTOR-REG)
> 5: (META-SC-NUMBER-OR-LOSE DESCRIPTOR-REG)
> 6: (EVAL
> (C::DO-DEFCONSTANT-COMPILE-TIME 'REGISTER-ARG-SCN
> (META-SC-NUMBER-OR-LOSE 'DESCRIPTOR-REG)
> 'NIL))
> 7: (C::DO-EVAL-WHEN-STUFF (:COMPILE-TOPLEVEL)
> ((C::DO-DEFCONSTANT-COMPILE-TIME 'REGISTER-ARG-SCN
> #
> 'NIL))
> #<Closure Over Function "DEFUN PROCESS-FORM"
> {49221B71}>
> T)
> 8: (C::PROCESS-FORM
> (EVAL-WHEN (:COMPILE-TOPLEVEL)
> (C::DO-DEFCONSTANT-COMPILE-TIME 'REGISTER-ARG-SCN # 'NIL))
> ((PROGN
> #
> #)
> C::ORIGINAL-SOURCE-START 0 62))
> 9: (C::PROCESS-FORM 2
> (EVAL-WHEN (:COMPILE-TOPLEVEL)
> (C::DO-DEFCONSTANT-COMPILE-TIME 'REGISTER-ARG-SCN
> #
> 'NIL))
> ((PROGN
> #
> #)
> C::ORIGINAL-SOURCE-START 0 62))[:EXTERNAL]
> 10: (C::PROCESS-PROGN ((EVAL-WHEN # #) (EVAL-WHEN # # #))
> ((PROGN
> #
> #)
> C::ORIGINAL-SOURCE-START 0 62))
> 11: (C::PROCESS-FORM
> (PROGN
> (EVAL-WHEN # #)
> (EVAL-WHEN # # #))
> (C::ORIGINAL-SOURCE-START 0 62))
> 12: (C::PROCESS-FORM
> (DEFCONSTANT REGISTER-ARG-SCN (META-SC-NUMBER-OR-LOSE 'DESCRIPTOR-REG))
> (C::ORIGINAL-SOURCE-START 0 62))
> 13: (C::PROCESS-FORM 2
> (DEFCONSTANT REGISTER-ARG-SCN
> (META-SC-NUMBER-OR-LOSE 'DESCRIPTOR-REG))
> (C::ORIGINAL-SOURCE-START 0 62))[:EXTERNAL]
> 14: (C::PROCESS-SOURCES #<Source-Info>)
> 15: ((FLET #:G0 C::SUB-COMPILE-FILE))
> 16: (C::SUB-COMPILE-FILE #<Source-Info> NIL)
> 17: (C::SUB-COMPILE-FILE 1 #<Source-Info> NIL)[:EXTERNAL]
> 18: (COMPILE-FILE #P"target:compiler/alpha/vm.lisp"
> :OUTPUT-FILE T
> :ERROR-FILE ...)
> 19: (COMMON-LISP-USER::COMF #P"target:compiler/alpha/vm")
> 20: ((FLET #:G264 (FLET #:G216)))
> 21: ((FLET #:G216))
> 22: ((FLET #:G216))
> 23: ("Top-Level Form")[:TOP-LEVEL]
> 24: ("Top-Level Form")[:TOP-LEVEL]
> 25: ("Top-Level Form")[:TOP-LEVEL]
> 26: (LISP::SLOLOAD
> #<Stream for file "/home/fausap/CMUCL/20d/src/tools/comcom.lisp">)
> 27: (LISP::INTERNAL-LOAD #P"target:tools/comcom.lisp"
> #P"/home/fausap/CMUCL/20d/src/tools/comcom.lisp"
> :ERROR :SOURCE
> ...)
> 28: (LOAD "target:tools/comcom" :VERBOSE NIL :PRINT ...)
> 29: (LISP::SLOLOAD #<Stream for file "/home/fausap/CMUCL/20d/cross.lisp">)
> 30: (LISP::INTERNAL-LOAD #P"cross.lisp"
> #P"/home/fausap/CMUCL/20d/cross.lisp"
> :ERROR :SOURCE
> ...)
> 31: (LISP::INTERNAL-LOAD #P"cross.lisp"
> #P"/home/fausap/CMUCL/20d/cross.lisp"
> :ERROR NIL
> ...)
> 32: (LOAD "cross.lisp" :VERBOSE NIL :PRINT ...)
> 33: (INTERACTIVE-EVAL (LOAD "cross.lisp"))
> 34: (LISP::%TOP-LEVEL)
> 35: ((LABELS LISP::RESTART-LISP SAVE-LISP))
> ; Compilation aborted after 0:00:00.
More information about the cmucl-help
mailing list