From: Andreas Rottmann <a.rottmann@gmx.at>
Subject: Re: GOOPS bug found?
Date: 17 Apr 2002 22:01:47 +0200 [thread overview]
Message-ID: <87ofgiccwk.fsf@alice.rhinosaur.lan> (raw)
In-Reply-To: <87sn5uce57.fsf@alice.rhinosaur.lan>
[-- Attachment #1: Type: text/plain, Size: 343 bytes --]
Andreas Rottmann <a.rottmann@gmx.at> writes:
> Hi!
>
> [Note: this bug refers to Guile 1.7.0 from CVS, only some days old]
>
<snip/>
> A backtrace (using my original code) is attached, but you should
> easily be able to reproduce and investigate this strange behaviour
> using the attached C program.
>
Forgot the backtrace, here it is:
[-- Attachment #2: backtrace --]
[-- Type: application/octet-stream, Size: 2594 bytes --]
Backtrace:
In unknown file:
?: 0* [primitive-load "bug.scm"]
In bug.scm:
7: 1* (define-method (initialize (obj <MyObject>) initargs) (next-method))
7: 2 (begin (if # #) (add-method! initialize #))
In unknown file:
?: 3 [add-method! #<<generic> initialize (13)> ...
?: 4* (method ((obj <MyObject>) initargs) (next-method))
?: 5 [make-instance #<ucxx:meta:<Plugin> <method> 80844c0> #:specializers ...]
In /usr/local/share/guile/1.7.0/oop/goops.scm:
1420: 6 (let ((instance #)) (initialize instance initargs) instance)
1421: 7* [initialize #<<method> 8086a90> (#:specializers (# #) #:procedure ...)]
In unknown file:
?: 8* [memoize-method! #<<generic> initialize (13)> (# #) ...]
In /usr/local/share/guile/1.7.0/oop/goops/dispatch.scm:
241: 9* (let ((applicable #)) (cond (applicable #) (# #) (else # # #)))
245: 10 (cond (applicable #) (# #) (else # # #))
251: 11 (let* ((new #) (res #)) (set-cdr! (cdr exp) (cddr new)) res)
253: 12* (cond (# #) (# #) (else #))
257: 13 [method-cache-install! #<procedure hashed-method-cache-insert! #> # # ...]
...
289: 14 (let* ((types #) (entry+cmethod #)) (insert! exp (car entry+cmethod)) ...)
291: 15* [hashed-method-cache-insert! (#@dispatch args 2 0 ...) (# # # # ...)]
169: 16 (let* ((cache #) (size #)) (let* (# # # ...) (do # # ...) ...))
171: 17 (let* ((entries #) (size #) (min-misses size) ...) (do (#) (#) ...) ...)
180: 18* (do ((hashset 0 (+ 1 hashset))) ((= hashset hashsets)) ...)
182: 19* (let* ((test-cache #) (misses #)) (cond (# # # # ...) (# # # #)))
183: 20* [cache-try-hash! 4 0 ...]
210: 21 (let ((max-misses 0) (mask #)) (catch (quote misses) (lambda () #) ...))
212: 22 [catch misses #<procedure #f ()> #<procedure #f (key misses)>]
In unknown file:
?: 23* [#<procedure #f ()>]
In /usr/local/share/guile/1.7.0/oop/goops/dispatch.scm:
214: 24* (do ((ls entries (cdr ls)) (misses 0 0)) ((null? ls) max-misses) ...)
217: 25* (do ((i # #)) ((not #) (vector-set! cache i ...)) ...)
217: 26* [logand 3 ...
217: 27* [cache-hashval 0 (# # () # ...)]
203: 28 (let ((hashset-index #)) (do (# #) (# sum) (set! sum #)))
204: 29 (do ((sum 0) (classes entry #)) ((environment? #) sum) ...)
207: 30* (set! sum (+ sum (struct-ref (car classes) hashset-index)))
207: 31* [+ 4312081437 ...
207: 32* [struct-ref () 6]
/usr/local/share/guile/1.7.0/oop/goops/dispatch.scm:207:24: In procedure struct-ref in expression (struct-ref (car classes) hashset-index):
/usr/local/share/guile/1.7.0/oop/goops/dispatch.scm:207:24: Wrong type argument in position 1 (expecting STRUCTP): ()
[-- Attachment #3: Type: text/plain, Size: 237 bytes --]
Andy
--
Andreas Rottmann | Dru@ICQ | 118634484@ICQ | a.rottmann@gmx.at
http://www.8ung.at/rotty | GnuPG Key: http://www.8ung.at/rotty/gpg.asc
Fingerprint | DFB4 4EB4 78A4 5EEE 6219 F228 F92F CFC5 01FD 5B62
next parent reply other threads:[~2002-04-17 20:01 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <87sn5uce57.fsf@alice.rhinosaur.lan>
2002-04-17 20:01 ` Andreas Rottmann [this message]
2002-05-07 18:19 ` GOOPS bug found? Marius Vollmer
2002-05-12 13:17 ` Andreas Rottmann
2002-04-17 19:35 Andreas Rottmann
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ofgiccwk.fsf@alice.rhinosaur.lan \
--to=a.rottmann@gmx.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).