Greetings! This is a broken alternate linking build procedure we
introduced for axiom 2005 on systems where native object relocation is
not yet implemented in GCL. For 2.6.8pre, this is ia64, hppa, mips,
mipsel, and alpha. For 2.7.0 just ia64 and hppa remain.
:native-reloc is the relevant feature. Here is the patch to the
makeint.lisp and makedep.lis stage that we had used, which for some
reason now is missing some file:
--- ./src/interp/Makefile.pamphlet.orig 2009-02-16 20:05:58.000000000 +0000
+++ ./src/interp/Makefile.pamphlet 2009-02-16 20:08:02.000000000 +0000
@@ -571,8 +571,28 @@
\begin{verbatim}
<<save depsys image>>=
@ (cd ${MNT}/${SYS}/bin ; \
- echo '(progn (load "${OUT}/makedep.lisp")' \
- '(spad-save "${DEPSYS}"))' | ${LISPSYS})
+ echo '#+native-reloc(progn (load "${OUT}/makedep.lisp") (spad-save "${DEPSYS}"))#-native-reloc(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))' | sed 's,\\$$,,g' | ${LISPSYS})
@
\end{verbatim}
@@ -901,8 +923,33 @@
@ 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} )
+ echo '#+native-reloc(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}"))#-native-reloc(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))' | sed 's,\\$$,,g' | $(LISPSYS))
@ echo 6 ${SAVESYS} created
@ cp ${SAVESYS} ${AXIOMSYS}
@ echo 6a ${AXIOMSYS} created
THere is one other small area where compiler:link is used but I do not
suspect that. Can you perhaps spot the missing functionality from the
error message, and give me a hint as to what load is missing?
Specifically, the last autoload in the message I originally sent
(preprocess?), seems to be linked into depsys, but not AXIOMsys.
Could be a red herring.
Thanks for any insight. I'll figure it out if you are busy.
Take care,
root <
daly@...> writes:
> Camm,
>
> I don't understand why you are getting that error.
> Can you do:
> make clean
> make NOISE=
> and put the complete console log someplace?
>
> Tim
>
>
>
>
>
--
Camm Maguire
camm@...
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Gcl-devel mailing list
Gcl-devel@...
http://lists.gnu.org/mailman/listinfo/gcl-devel
