[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] Build breakage on FreeBSD with GCL-2.6.3
From: |
Camm Maguire |
Subject: |
Re: [Axiom-developer] Build breakage on FreeBSD with GCL-2.6.3 |
Date: |
19 Jul 2004 18:51:21 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings! Mark, are you still using the axiom build patches to use
external gcl? If so, they need updating. In particular,
gcl_collectfn needs to be in the image at an earlier point, which is
the cause of your failure below.
Here is what I'm testing at the moment:
=============================================================================
patch.all
=============================================================================
--- ./src/Makefile.pamphlet.orig 2004-06-27 15:00:46.000000000 +0000
+++ ./src/Makefile.pamphlet 2004-07-05 15:56:03.000000000 +0000
@@ -24,8 +24,11 @@
<<environment>>=
SETUP=scriptsdir libdir
-DIRS=bootdir interpdir sharedir algebradir inputdir etcdir clefdir docdir \
- graphdir
+ifeq ($(PASS1),)
+DIRS=bootdir interpdir sharedir algebradir inputdir etcdir clefdir docdir
graphdir
+else
+DIRS=bootdir interpdir sharedir algebradir #inputdir etcdir clefdir docdir
graphdir
+endif
DOCS=scriptsdocument libdocument ${DIRS:dir=document}
CLNS=scriptsclean libclean ${DIRS:dir=clean}
--- ./src/graph/Makefile.pamphlet.orig 2004-06-27 15:00:59.000000000 +0000
+++ ./src/graph/Makefile.pamphlet 2004-07-05 19:53:59.000000000 +0000
@@ -414,7 +414,7 @@
${DOC}/viewports:
@ echo 25 making ${DOC}/viewports from ${IN}/viewports
- @ cp -pr ${IN}/viewports ${DOC}
+# @ cp -pr ${IN}/viewports ${DOC}
<<viewmandir>>
<<Gdrawsdir>>
=============================================================================
patch.nosave (i386 amd64 m68k sparc s390 powerpc arm)
=============================================================================
--- ./lsp/Makefile.pamphlet.orig 2004-07-01 21:24:34.000000000 +0000
+++ ./lsp/Makefile.pamphlet 2004-07-05 16:09:27.000000000 +0000
@@ -457,15 +457,7 @@
@echo 1 building ${LSP} ${GCLVERSION}
gcldir:
- @echo 2 building ${GCLVERSION}
- @tar -zxf ${ZIPS}/${GCLVERSION}.tgz
-<<gcl-2.6.2a-mvdir>>
-<<gcl-2.6.2a.socket.patch>>
-<<gcl-2.6.2a.libspad.patch>>
-<<gcl-2.6.2a.toploop.patch>>
-<<gcl-2.6.2a.tail-recursive.patch>>
-<<gcl-2.6.2a.collectfn.fix>>
-<<gclConfigureMake>>
+ echo '(compiler::link nil "${OUT}/lisp" (format nil "(progn (let
((*load-path* (cons ~S *load-path*))) (compiler::emit-fn t))(when (fboundp
(quote si::sgc-on)) (si::sgc-on t))(setq compiler::*default-system-p* t))"
si::*system-directory*) "${OBJ}/${SYS}/lib/cfuns-c.o
${OBJ}/${SYS}/lib/sockio-c.o ${OBJ}/${SYS}/lib/libspad.a")' | gcl
@echo 13 finished system build on `date` | tee >gcldir
ccldir: ${LSP}/ccl/Makefile
--- ./src/interp/Makefile.pamphlet.orig 2004-06-27 15:01:27.000000000 +0000
+++ ./src/interp/Makefile.pamphlet 2004-07-05 16:16:32.000000000 +0000
@@ -669,8 +669,10 @@
@ echo '#+:akcl (setq compiler::*suppress-compiler-notes* t)' >>
${OUT}/makeint.lisp
@ echo '#+:akcl (si::gbc-time 0)' >> ${OUT}/makeint.lisp
@ echo '#+:akcl (setq si::*system-directory* "${SPAD}/bin/")' >>
${OUT}/makeint.lisp
+# @ (cd ${OBJ}/${SYS}/bin ; \
+# echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t)
(user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
@ (cd ${OBJ}/${SYS}/bin ; \
- echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t)
(user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
+ echo '(progn (gbc t) (setq x si::*system-directory*)(load
"${OUT}/makeint.lisp") (setq si::*system-directory* x) (unintern (quote x))(gbc
t) (user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
@ echo 6 ${SAVESYS} created
@ cp ${SAVESYS} ${AXIOMSYS}
@ echo 6a ${AXIOMSYS} created
=============================================================================
patch.save (ia64 mips mipsel hppa alpha)
=============================================================================
--- ./lsp/Makefile.pamphlet.orig 2004-07-01 21:24:34.000000000 +0000
+++ ./lsp/Makefile.pamphlet 2004-07-05 16:09:27.000000000 +0000
@@ -457,15 +457,7 @@
@echo 1 building ${LSP} ${GCLVERSION}
gcldir:
- @echo 2 building ${GCLVERSION}
- @tar -zxf ${ZIPS}/${GCLVERSION}.tgz
-<<gcl-2.6.2a-mvdir>>
-<<gcl-2.6.2a.socket.patch>>
-<<gcl-2.6.2a.libspad.patch>>
-<<gcl-2.6.2a.toploop.patch>>
-<<gcl-2.6.2a.tail-recursive.patch>>
-<<gcl-2.6.2a.collectfn.fix>>
-<<gclConfigureMake>>
+ echo '(compiler::link nil "${OUT}/lisp" (format nil "(progn (let
((*load-path* (cons ~S *load-path*))(si::*load-types* ~S)) (compiler::emit-fn
t))(when (fboundp (quote si::sgc-on)) (si::sgc-on t))(setq
compiler::*default-system-p* t))" si::*system-directory* (quote (list ".lsp")))
"${OBJ}/${SYS}/lib/cfuns-c.o ${OBJ}/${SYS}/lib/sockio-c.o
${OBJ}/${SYS}/lib/libspad.a")' | gcl
@echo 13 finished system build on `date` | tee >gcldir
ccldir: ${LSP}/ccl/Makefile
--- ./src/algebra/Makefile.pamphlet.orig 2004-07-15 02:15:39.000000000
+0000
+++ ./src/algebra/Makefile.pamphlet 2004-07-15 02:16:48.000000000 +0000
@@ -35190,7 +35190,8 @@
@ cp ${SRC}/doc/gloss.text ${OUT}
@ cp ${SRC}/doc/topics.data ${MID}
@ cp ${SRC}/doc/topics.data ${OUT}
- @ (cd ${MID} ; echo ')lisp (make-databases "" nil)' | ${INTERPSYS} )
+# @ (cd ${MID} ; echo ')lisp (make-databases "" nil)' | ${INTERPSYS} )
+ @ (cp ${SRC}/../debian/*.daase ${MID})
@ cp ${MID}/*.daase ${OUT}
@ echo "databases up to date" >${INT}/algebra/dbcomplete
--- ./src/boot/Makefile.pamphlet.orig 2004-06-27 15:00:58.000000000 +0000
+++ ./src/boot/Makefile.pamphlet 2004-07-05 16:19:42.000000000 +0000
@@ -1151,7 +1151,8 @@
expansion. Adding a single quote symbol will break this expansion.
<<environment>>=
-CMD0= (progn (mapcar (function (lambda (x) (load x))) (quote (${OBJS1})))
(system::save-system "${SAVESYS}"))
+CMD0= (compiler::link (quote (${OBJS1})) "${SAVESYS}" (format nil "(let
((*load-path* (cons ~S *load-path*))(si::*load-types* ~S)) (compiler::emit-fn
t)) (when (fboundp (quote si::sgc-on)) (si::sgc-on t)) (setq
compiler::*default-system-p* t)" si::*system-directory* (quote (list ".lsp"))))
+#CMD0= (progn (mapcar (function (lambda (x) (load x))) (quote (${OBJS1})))
(system::save-system "${SAVESYS}"))
@
\subsection{boothdr.lisp \cite{1}}
--- ./src/interp/Makefile.pamphlet.orig 2004-06-27 15:01:27.000000000 +0000
+++ ./src/interp/Makefile.pamphlet 2004-07-05 16:43:38.000000000 +0000
@@ -616,8 +616,31 @@
@ echo '(load "${OUT}/c-util")' >> ${OUT}/makedep.lisp
@ echo '(unless (probe-file "${OUT}/g-util.${O}") (compile-file
"${OUT}/g-util.${LISP}" :output-file "${OUT}/g-util.${O}"))' >>
${OUT}/makedep.lisp
@ echo '(load "${OUT}/g-util")' >> ${OUT}/makedep.lisp
+# @ (cd ${MNT}/${SYS}/bin ; \
+# echo '(progn (load "${OUT}/makedep.lisp") (spad-save "${DEPSYS}"))'
| ${LISPSYS})
@ (cd ${MNT}/${SYS}/bin ; \
- echo '(progn (load "${OUT}/makedep.lisp") (spad-save "${DEPSYS}"))'
| ${LISPSYS})
+ echo '(progn \
+ (setq si::*collect-binary-modules* t) \
+ (load "${OUT}/makedep.lisp") \
+ (compiler::link \
+ (remove-duplicates si::*binary-modules* :test (quote
equal)) \
+ "$(DEPSYS)" \
+ (format nil "\
+ (setq si::*collect-binary-modules* t) \
+ (let ((si::*load-path* (cons ~S
si::*load-path*))\
+ (si::*load-types* ~S))\
+ (compiler::emit-fn t))\
+ (load \"$(OUT)/makedep.lisp\")\
+ (gbc t)\
+ (when si::*binary-modules* \
+ (error si::*binary-modules*))\
+ (setq si::collect-binary-modules* nil
si::*binary-modules* nil)\
+ (gbc t)\
+ (when (fboundp (quote si::sgc-on)) (si::sgc-on
t))\
+ (setq compiler::*default-system-p* t)\
+ " si::*system-directory* (quote (list ".lsp")))\
+ "" \
+ nil))' | $(LISPSYS))
@ echo 4 ${DEPSYS} created
@
@@ -669,8 +689,36 @@
@ echo '#+:akcl (setq compiler::*suppress-compiler-notes* t)' >>
${OUT}/makeint.lisp
@ echo '#+:akcl (si::gbc-time 0)' >> ${OUT}/makeint.lisp
@ echo '#+:akcl (setq si::*system-directory* "${SPAD}/bin/")' >>
${OUT}/makeint.lisp
+# @ (cd ${OBJ}/${SYS}/bin ; \
+# echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t)
(user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
@ (cd ${OBJ}/${SYS}/bin ; \
- echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t)
(user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
+ echo '(progn \
+ (setq si::*collect-binary-modules* t)\
+ (setq x si::*system-directory*)\
+ (load "${OUT}/makeint.lisp")\
+ (setq si::*system-directory* x)\
+ (unintern (quote x))\
+ (compiler::link \
+ (remove-duplicates si::*binary-modules* :test
(quote equal))\
+ "$(SAVESYS)" \
+ (format nil "\
+ (let ((si::*load-path* (cons ~S
si::*load-path*))\
+ (si::*load-types* ~S))\
+ (compiler::emit-fn t))\
+ (setq si::*collect-binary-modules* t)\
+ (setq x si::*system-directory*)\
+ (load \"$(OUT)/makeint.lisp\")\
+ (setq si::*system-directory* x)\
+ (unintern (quote x))\
+ (when si::*binary-modules* \
+ (error si::*binary-modules*))\
+ (setq si::collect-binary-modules* nil
si::*binary-modules* nil)\
+ (gbc t)\
+ (when (fboundp (quote si::sgc-on))
(si::sgc-on t))\
+ (setq compiler::*default-system-p* t)\
+ " si::*system-directory* (quote (list ".lsp")))\
+ "$(OBJ)/$(SYS)/lib/sockio-c.o
$(OBJ)/$(SYS)/lib/cfuns-c.o $(OBJ)/$(SYS)/lib/libspad.a" \
+ nil))' | $(LISPSYS))
@ echo 6 ${SAVESYS} created
@ cp ${SAVESYS} ${AXIOMSYS}
@ echo 6a ${AXIOMSYS} created
--- src/interp/nlib.lisp.pamphlet~ 2004-05-24 22:53:55.000000000 +0000
+++ src/interp/nlib.lisp.pamphlet 2004-07-19 19:59:00.000000000 +0000
@@ -295,7 +295,16 @@
(defun rpackfile (filespec)
(setq filespec (make-filename filespec))
(if (string= (pathname-type filespec) "NRLIB")
- (recompile-lib-file-if-necessary (concat (namestring filespec)
"/code.lsp"))
+ (let* ((base (pathname-name filespec))
+ (code (concatenate 'string (namestring filespec) "/code.lsp"))
+ (temp (concatenate 'string (namestring filespec) "/" base ".lsp"))
+ (o (make-pathname :type "o")))
+ (si::system (format nil "cp ~S ~S" code temp))
+ (recompile-lib-file-if-necessary temp)
+ (si::system (format nil "mv ~S ~S~%"
+ (namestring (merge-pathnames o temp))
+ (namestring (merge-pathnames o code)))))
+ ;(recompile-lib-file-if-necessary (concat (namestring filespec)
"/code.lsp"))
;; only pack non libraries to avoid lucid file handling problems
(let* ((rstream (rdefiostream (list (cons 'file filespec) (cons 'mode
'input))))
(nstream nil)
=============================================================================
Take care,
Mark Murray <address@hidden> writes:
> Hi
>
> I have build breakage with GCL-2.6.3 on FreeBSD (IIRC, its also there
> with GCL-2.6.2).
>
> Like this:
> Loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/setq.lisp
> Finished loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/setq.lisp
> Loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/property.lisp
> Finished loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/property.lisp
> Loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/unlisp.lisp
> Finished loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/unlisp.lisp
> Loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/foam_l.lisp
> Finished loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/foam_l.lisp
> Loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/axext_l.lisp
> Finished loading /usr/ports/math/axiom/work/axiom-0.0/int/interp/axext_l.lisp
>
> Error: The function COMPILER::MAKE-PROCLAIMS is undefined.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by PROGN.
> Backtrace: system:universal-error-handler > evalhook > load > build-depsys >
> make-depsys > let > let > unwind-protect > progn > lambda > lambda-closure >
> block > apply > APPLY
>
> Broken at READ.
> >>
> NIL
> >>
> "/usr/ports/math/axiom/work/axiom-0.0/obj/freebsd/bin/depsys"
> BOOT>>gmake[3]: ***
> [/usr/ports/math/axiom/work/axiom-0.0/obj/freebsd/bin/depsys] Error 255
> gmake[3]: Leaving directory `/usr/ports/math/axiom/work/axiom-0.0/src/interp'
> gmake[2]: *** [interpdir] Error 2
> gmake[2]: Leaving directory `/usr/ports/math/axiom/work/axiom-0.0/src'
> gmake[1]: *** [srcdir] Error 2
> gmake[1]: Leaving directory `/usr/ports/math/axiom/work/axiom-0.0'
> gmake: *** [all] Error 2
> *** Error code 2
>
> Stop in /usr/ports/math/axiom.
>
>
>
>
> Any ideas? I am clueless with Lisp.
>
> M
> --
> Mark Murray
> iumop ap!sdn w,I idlaH
>
>
> _______________________________________________
> Axiom-developer mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/axiom-developer
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah