Subject: Re: libtool bug
From: Jan Nieuwenhuizen <[email-masked]>
To: [email-masked]
Cc: Han-Wen Nienhuys <[email-masked]>
Date: Mon, 11 Oct 2004 11:24:39 +0200

Charles Wilson writes:

> BTW, Jan, I gather that, despite my earlier doubts, the libtool
> changes in 1.5.10 fixed the "The application failed to initialize
> properly (0xc0000005).

Not exactly, it is fixed, but I cannot confirm that was the fix.
Guile had a copy of libtool pre 1.4 or something, which we replaced.
Han-Wen built latest Guile CVS also using libtool 1.5.6 on Cygwin,
which doesn't have this .rdata change?

> and now we're looking at another problem?

Yes, that's right.  Guile now starts fine, but dlopen-ing of a shared
module does not work.

[Because Han-Wen reported that "(+ 1 2)" also worked for him, I think
 Han-Wen found that (see earlier in this thread) linking with -lguile
 just does not resolve at load time, Han-Wen?]

Jan.

09:48:31 janneke@peder:/cygwin/bin
$ wine guile
guile> (version)
"1.7.1"
guile> (use-modules (srfi srfi-1))

In unknown file:
   ?: 11* [resolve-module (srfi srfi-1)]
   ?: 12  (let* ((full-name #)) (let* (#) (if already # #)))
    ...
   ?: 13  (begin (if # #) (make-modules-in # full-name))
   ?: 14* (if (or # #) (try-load-module name))
   ?: 15  [try-load-module (srfi srfi-1)]
   ?: 16  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 17* [try-module-autoload (srfi srfi-1)]
   ?: 18  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
    ...
   ?: 19  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #) ...) ...)
   ?: 20* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 21* [#<procedure #f ()>]
   ?: 22* (let* ((file #)) (cond (# => #) (# => #)))
   ?: 23  [#<procedure #f (full)> "/usr/share/guile/1.7/srfi/srfi-1.scm"]
   ?: 24  [load-file #<primitive-procedure primitive-load> ...]
   ?: 25* [save-module-excursion #<procedure #f ()>]
   ?: 26  (let (# #) (dynamic-wind # thunk #))
   ?: 27  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 28* [#<procedure #f ()>]
   ?: 29* [primitive-load "/usr/share/guile/1.7/srfi/srfi-1.scm"]
In /usr/share/guile/1.7/srfi/srfi-1.scm:
 225: 30* [load-extension "libguile-srfi-srfi-1-v-2" "scm_init_srfi_1"]

/usr/share/guile/1.7/srfi/srfi-1.scm:225:1: In procedure dynamic-link in expression (load-extension "libguile-srfi-srfi-1-v-2" "scm_init_srfi_1"):
/usr/share/guile/1.7/srfi/srfi-1.scm:225:1: file: "libguile-srfi-srfi-1-v-2", message: "unknown error"
Backtrace:
ABORT: (misc-error)

-- 
Jan Nieuwenhuizen <[email-masked]> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/