CCL related failures in the package tree.

[Mike FABIAN]

Aidan Kehoe <kehoea at parhasard.net> さんは書きました:

>  Ar an t-ochtú lá de mí Lúnasa, scríobh Mike FABIAN: 
>
>  > Aidan Kehoe <kehoea at parhasard.net> さんは書きました:
>  > 
>  > >  Ar an t-aonú lá is triochad de mí Iúil, scríobh Malcolm Purvis: 
>  > 
>  > >  > Should mule-lisp-drectory appear in the load-path? That doesn't seem
>  > >  > to be the case:
>  > >
>  > > I’m pretty sure it should. Mike? 
>  > >
>  > > Malcolm, if you can add EMACSDEBUGPATHS=t to the package build
>  > > environment, I’m sure that will help in figuring out what’s going
>  > > wrong. I don’t have a buildable package tree locally, or I’d do it
>  > > myself :-/ .
>
> Thank you Mike! I actually meant Michael Sperber, who was in the CC, and who
> followed up. Malcolm’s patch of
> http://mid.gmane.org/m2abtc4t8o.fsf@xemacs.org should be the correct
> solution to that particular problem, but we haven’t heard confirmation from
> Michael on that;

With this patch it still fails for me. 

> also, I don’t think anyone has yet investigated (or seen?) 
> your core dump of http://mid.gmane.org/s3tps28o5ie.fsf@magellan.suse.de :-/
> .

It doesn’t always fail with that core dump. I found that this core dump
happens only occasionally for me as well. If Malcolm’s patch is applied
and the core dump does not happen, the build still fails though
(extract of build log attached below).

As it fails in mule-ucs and mule-ucs isn't needed for XEmacs 21.5.x
anyway, maybe I could just disable the build of mule-ucs.

Nevertheless it is strange because it did build just fine before you did
the mule-ccl.el → ccl.el change.

-- 
Mike FABIAN   <mfabian at suse.de>   http://www.suse.de/~mfabian
睡眠不足はいい仕事の敵だ。
I � Unicode

-------------- next part --------------
make[2]: Entering directory `/usr/src/packages/BUILD/xemacs-packages/packages/mule-pa
ckages/mule-ucs'
xemacs -no-autoloads -vanilla -batch -eval '(setq stack-trace-on-error t load-always-
display-messages t load-ignore-out-of-date-elc-files t load-show-full-path-in-message
s t)' -eval '(setq load-path (list (expand-file-name "mule" lisp-directory) lisp-dire
ctory))' -l /usr/src/packages/BUILD/xemacs-packages/packages/package-compile.el -- mu
le-base latin-euro-standards -- -eval \("push \"./lisp\" load-path"\) -l mucs -l mucs
-ccl -l mucs-error -l mucs-type -l mule-uni -l mccl-font -l tae -l tbl-mg -l trans-ut
il -l txt-tbl -l unicode -l un-data -l unidata -l utf -f batch-byte-compile lisp/auto
-autoloads.el

Loading /usr/src/packages/BUILD/xemacs-packages/packages/package-compile.el...
  Loading /usr/share/xemacs/21.5.28.20070803/lisp/auto-autoloads.el...
  Requiring /usr/share/xemacs/21.5.28.20070803/lisp/bytecomp.elc...
  Requiring /usr/share/xemacs/21.5.28.20070803/lisp/byte-optimize.elc...
  Loading /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/latin-euro-s
tandards/auto-autoloads.el...
  Loading /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-base/au
to-autoloads.elc...
Loading /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-ucs/lisp/
mucs.el...
  Requiring /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-ucs/l
isp/mucs-error.el...
  Requiring /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-ucs/l
isp/mucs-type.el...
  Requiring /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-ucs/l
isp/mucs-ccl.el...
    Requiring /usr/src/packages/BUILD/xemacs-packages/packages/mule-packages/mule-ucs
/lisp/trans-util.el...

xemacs exiting.

  # bind (stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
  # (unwind-protect ...)
  (define-ccl-program ccl-c-notated-string-to-number (backquote (1 ((r6 = 10) (r2 = 0
) (read r0) (if (r0 == ?0) ((read r1) (if (r1 == ?x) ((r6 = 16) (read r0)) ((r6 = 8) 
(r0 = r1))))) (loop (if (r0 < ?0) ((r2 = -1) (break))) (r5 = (r0 > ?7)) (r5 &= (r6 ==
 8)) (if r5 ((r2 = -1) (break))) (if (r0 > ?9) ((r5 = (r6 != 16)) (r5 |= (r0 < ?A)) (
if r5 ((r2 = -1) (break))) (if (r0 > ?F) ((r5 = (r0 < ?a)) (r5 |= (r0 > ?f)) (if r5 (
(r2 = -1) (break))) (r0 -= (\, (- ?a 10)))) ((r0 -= (\, (- ?A 10)))))) ((r0 -= ?0))) 
(r2 *= r6) (r2 += r0) (read r0) (repeat))))))
  (if (fboundp (quote ccl-execute)) (define-ccl-program ccl-c-notated-string-to-numbe
r (backquote (1 ((r6 = 10) (r2 = 0) (read r0) (if (r0 == ?0) ((read r1) (if (r1 == ?x
) ((r6 = 16) (read r0)) ((r6 = 8) (r0 = r1))))) (loop (if (r0 < ?0) ((r2 = -1) (break
))) (r5 = (r0 > ?7)) (r5 &= (r6 == 8)) (if r5 ((r2 = -1) (break))) (if (r0 > ?9) ((r5
 = (r6 != 16)) (r5 |= (r0 < ?A)) (if r5 ((r2 = -1) (break))) (if (r0 > ?F) ((r5 = (r0
 < ?a)) (r5 |= (r0 > ?f)) (if r5 ((r2 = -1) (break))) (r0 -= (\, (- ?a 10)))) ((r0 -=
 (\, (- ?A 10)))))) ((r0 -= ?0))) (r2 *= r6) (r2 += r0) (read r0) (repeat)))))))

  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("trans-util" nil require nil undecided)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("trans-util" nil require nil)
  # (unwind-protect ...)
  require(trans-util)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("mucs-ccl" nil require nil undecided)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("mucs-ccl" nil require nil)
  # (unwind-protect ...)
  require(mucs-ccl)
  (cond ((fboundp (quote ccl-execute)) (require (quote mucs-ccl))) (t (error "This Em
acs does not have Mule-UCS conversion engine!")))
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("mucs" nil t nil iso-2022-7bit)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("mucs" nil t)
  # bind (file arg)
  command-line-do-load("-l")
  # bind (dir file-count line end-of-options file-p arg tem)
  command-line-1()
  # bind (command-line-args-left)
  command-line()
  # bind (error-data)
  normal-top-level()
  # (condition-case ... . error)
  # (catch top-level ...)
Invalid function: #<INTERNAL OBJECT (XEmacs bug?) (symbol-value-forward type 13) 0x19
5eac0>make[2]: *** [lisp/auto-autoloads.elc] Error 255
make[2]: Leaving directory `/usr/src/packages/BUILD/xemacs-packages/packages/mule-pac
kages/mule-ucs'
make[1]: *** [mule-ucs/bytecompile.target] Error 2
make[1]: Leaving directory `/usr/src/packages/BUILD/xemacs-packages/packages/mule-pac
kages'
make: *** [mule-packages/bytecompile.target] Error 2