From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 6096 invoked by alias); 24 Jun 2002 17:01:32 -0000 Mailing-List: contact cgen-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cgen-owner@sources.redhat.com Received: (qmail 6051 invoked from network); 24 Jun 2002 17:01:30 -0000 Received: from unknown (HELO mx1.mail.ru) (194.67.57.11) by sources.redhat.com with SMTP; 24 Jun 2002 17:01:30 -0000 Received: from [195.161.13.136] (helo=ppp08.orient.net.ru) by mx1.mail.ru with esmtp (Exim SMTP.1) id 17MXDT-000CHh-00 for cgen@sources.redhat.com; Mon, 24 Jun 2002 21:01:28 +0400 Received: from 10.0.0.2 by router with smtp (masqmail 0.2.7) id 17MXDm-0AM-00 for ; Tue, 25 Jun 2002 02:01:46 +0900 Date: Mon, 24 Jun 2002 10:01:00 -0000 From: Dmitry Morozhnikov To: cgen@sources.redhat.com Subject: problems with guile? Message-Id: <20020625015825.63015fb5.dmiceman@mail.ru> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-SW-Source: 2002-q2/txt/msg00040.txt.bz2 hello. i want to play with cgen, but can`t get it run. what version of guile must be used for cgen? i try 1.3.4 and 1.4.1, but they both complain in map procedure: guile> (load "dev.scm") guile> (load-opc) guile> (cload #:arch "ia32") Backtrace: 9 [dynamic-wind # # #] 10* [#] 11* (letrec ((loop (lambda # #))) (loop (read))) 12 [loop (include "simplify.inc")] ... 13 (begin (reader-process entry) (loop (read))) 14* [reader-process (dsmf f-mod-r/m "entire mod-r/m byte" ...)] 15 (let ((expansion (if # entry #))) (-reader-process-expanded expansion)) ... 16 [-reader-process-expanded-1 #] 17* (let ((command #)) (if command (let* # #) ...)) 18 (if command (let* (# # #) (if # # ...)) ...) ... 19 [define-full-multi-ifield f-mod-r/m "entire mod-r/m byte" ...] 20 (let ((f #)) (current-ifld-add! f) f) 21* [-multi-ifield-parse "define-full-multi-ifield" f-mod-r/m ...] 22 (let (# # #) (elm-xset! result # name) (elm-xset! result # #) ...) 23* (if insert (elm-xset! result (quote insert) ...) ...) 24 [elm-xset! #(#("object" # f-mod-r/m ...) (# #f # ...)) insert ... 25* [-multi-ifield-make-default-insert f-mod-r/m (#(# #) #(# #) #(# #))] 26 (let* ((lengths #) (shifts #)) (let (#) (apply rtx-make #))) 27 (let ((exprs #)) (apply rtx-make (cons # #))) 28* [map # (#(# #) #(# #) #(# #)) (2 3 3) ...] ./ifield.scm:824:18: In procedure map in expression (map (lambda # #) subfields ...): ./ifield.scm:824:18: Argument out of range: (0 0 2 5) ABORT: (out-of-range) actually, lists 'shifts' in strings 827 and 846 are larger then lists 'subfields' and 'lengths'. when i remove one '(cons 0 ...' from 'shifts' constructor -- cgen starts, but also can`t produce anything from ia32.cpu (which is interesting for me). tried with cgen-1.0 and cvs version. -- DM, Dmitry Morozhnikov, PGPKEY 0xB6C14D95, music at http://mp3.com/DMIceman