From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Andreas Rottmann Newsgroups: gmane.lisp.guile.bugs Subject: Re: GOOPS bug found? Date: 17 Apr 2002 22:01:47 +0200 Sender: bug-guile-admin@gnu.org Message-ID: <87ofgiccwk.fsf@alice.rhinosaur.lan> References: <87sn5uce57.fsf@alice.rhinosaur.lan> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1019073807 1291 127.0.0.1 (17 Apr 2002 20:03:27 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 17 Apr 2002 20:03:27 +0000 (UTC) Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 16xveJ-0000Kh-00 for ; Wed, 17 Apr 2002 22:03:27 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 16xveH-0000fO-00; Wed, 17 Apr 2002 16:03:25 -0400 Original-Received: from mail.gmx.net ([213.165.64.20]) by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian)) id 16xvci-0000bM-00 for ; Wed, 17 Apr 2002 16:01:48 -0400 Original-Received: (qmail 18477 invoked by uid 0); 17 Apr 2002 20:01:46 -0000 Original-Received: from m174p026.adsl.highway.telekom.at (HELO alice.rhinosaur.lan) (62.47.189.186) by mail.gmx.net (mp011-rz3) with SMTP; 17 Apr 2002 20:01:46 -0000 Original-Received: from andy by alice.rhinosaur.lan with local (Exim 3.35 #1 (Debian)) id 16xvch-0000dN-00; Wed, 17 Apr 2002 22:01:47 +0200 Original-To: bug-guile@gnu.org, guile-devel@gnu.org In-Reply-To: <87sn5uce57.fsf@alice.rhinosaur.lan> Original-Lines: 22 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Errors-To: bug-guile-admin@gnu.org X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.lisp.guile.bugs:146 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:146 --=-=-= Andreas Rottmann writes: > Hi! > > [Note: this bug refers to Guile 1.7.0 from CVS, only some days old] > > 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: --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=backtrace Backtrace: In unknown file: ?: 0* [primitive-load "bug.scm"] In bug.scm: 7: 1* (define-method (initialize (obj ) initargs) (next-method)) 7: 2 (begin (if # #) (add-method! initialize #)) In unknown file: ?: 3 [add-method! #< initialize (13)> ... ?: 4* (method ((obj ) initargs) (next-method)) ?: 5 [make-instance # 80844c0> #:specializers ...] In /usr/local/share/guile/1.7.0/oop/goops.scm: 1420: 6 (let ((instance #)) (initialize instance initargs) instance) 1421: 7* [initialize #< 8086a90> (#:specializers (# #) #:procedure ...)] In unknown file: ?: 8* [memoize-method! #< 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! # # # ...] ... 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 # #] In unknown file: ?: 23* [#] 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): () --=-=-= 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 --=-=-=-- _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile