Re: GOOPS bug found?

[Andreas Rottmann <a.rottmann@gmx.at>]

[-- 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