From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 22395 invoked by alias); 7 Nov 2006 21:14:13 -0000 Received: (qmail 22380 invoked by uid 22791); 7 Nov 2006 21:14:12 -0000 X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (66.187.233.31) by sourceware.org (qpsmtpd/0.31) with ESMTP; Tue, 07 Nov 2006 21:14:08 +0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.12.11.20060308/8.12.11) with ESMTP id kA7LE6t8028569; Tue, 7 Nov 2006 16:14:06 -0500 Received: from pobox.toronto.redhat.com (pobox.toronto.redhat.com [172.16.14.4]) by int-mx1.corp.redhat.com (8.13.1/8.13.1) with ESMTP id kA7LE548030144; Tue, 7 Nov 2006 16:14:06 -0500 Received: from [172.16.14.227] (topaz.toronto.redhat.com [172.16.14.227]) by pobox.toronto.redhat.com (8.12.11.20060308/8.12.11) with ESMTP id kA7LE5Ct002927; Tue, 7 Nov 2006 16:14:05 -0500 Message-ID: <4550F71D.2000101@redhat.com> Date: Tue, 07 Nov 2006 21:14:00 -0000 From: Dave Brolley User-Agent: Thunderbird 1.5.0.5 (X11/20060719) MIME-Version: 1.0 To: cgen@sources.redhat.com, sid@sources.redhat.com Subject: [patch][commit] String Handling in sid-model.scm Content-Type: multipart/mixed; boundary="------------020309050308030904010208" X-IsSubscribed: yes Mailing-List: contact sid-help@sourceware.org; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: sid-owner@sourceware.org X-SW-Source: 2006-q4/txt/msg00013.txt.bz2 This is a multi-part message in MIME format. --------------020309050308030904010208 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-length: 114 Hi, Guile 1.6.4 was choking because of a missing symbol->string call. I've committed the attached patch. Dave --------------020309050308030904010208 Content-Type: text/plain; name="sid-model.ChangeLog" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="sid-model.ChangeLog" Content-length: 129 2006-11-07 Dave Brolley * sid-model.scm (gen-model-unit-fn-decl): Use symbol->string where necessary. --------------020309050308030904010208 Content-Type: text/plain; name="sid-model.patch.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="sid-model.patch.txt" Content-length: 911 Index: cgen/sid-model.scm =================================================================== RCS file: /cvs/src/src/cgen/sid-model.scm,v retrieving revision 1.9 diff -c -p -r1.9 sid-model.scm *** cgen/sid-model.scm 9 May 2006 18:33:04 -0000 1.9 --- cgen/sid-model.scm 7 Nov 2006 21:10:05 -0000 *************** static const MACH_IMP_PROPERTIES @cpu@_i *** 85,91 **** (gen-c-args (map (lambda (arg) (string-append (mode:c-type (mode:lookup (cadr arg))) ! " /*" (car arg) "*/")) (find (lambda (arg) ; Indices of scalars not passed. (not (null? (cdr arg)))) --- 85,91 ---- (gen-c-args (map (lambda (arg) (string-append (mode:c-type (mode:lookup (cadr arg))) ! " /*" (symbol->string (car arg)) "*/")) (find (lambda (arg) ; Indices of scalars not passed. (not (null? (cdr arg)))) --------------020309050308030904010208--