From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: prj@po.cwru.edu (Paul Jarc) Newsgroups: gmane.lisp.guile.devel Subject: Re: compilation warnings Date: Mon, 22 Sep 2003 17:58:36 -0400 Organization: What did you have in mind? A short, blunt, human pyramid? Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: References: <87y8yjq56w.fsf@zagadka.ping.de> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Boundary_(ID_KyCJZEYXqwz8unqu0lziPg)" X-Trace: sea.gmane.org 1064267937 32063 80.91.224.253 (22 Sep 2003 21:58:57 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 22 Sep 2003 21:58:57 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Sep 22 23:58:55 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1A1Yhr-0006vu-00 for ; Mon, 22 Sep 2003 23:58:55 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 1A1Yhp-0000XM-93 for guile-devel@m.gmane.org; Mon, 22 Sep 2003 17:58:53 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 1A1Yhc-0000W1-Ot for guile-devel@gnu.org; Mon, 22 Sep 2003 17:58:40 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 1A1Yhb-0000VU-7k for guile-devel@gnu.org; Mon, 22 Sep 2003 17:58:39 -0400 Original-Received: from [129.22.104.63] (helo=harris.CNS.CWRU.Edu) by monty-python.gnu.org with esmtp (Exim 4.22) id 1A1Yha-0000V0-Qm for guile-devel@gnu.org; Mon, 22 Sep 2003 17:58:39 -0400 Original-Received: from conversion-daemon.smtp-a.cwru.edu by smtp-a.cwru.edu (iPlanet Messaging Server 5.2 HotFix 1.14 (built Mar 18 2003)) id <0HLM00C01YB7J5@smtp-a.cwru.edu> for guile-devel@gnu.org; Mon, 22 Sep 2003 17:58:37 -0400 (EDT) Original-Received: from multivac.cwru.edu (multivac.ITS.CWRU.Edu [129.22.114.26]) by smtp-a.cwru.edu (iPlanet Messaging Server 5.2 HotFix 1.14 (built Mar 18 2003)) with SMTP id <0HLM008J5YDP9Y@smtp-a.cwru.edu> for guile-devel@gnu.org; Mon, 22 Sep 2003 17:58:37 -0400 (EDT) Original-Received: (qmail 6332 invoked by uid 500); Mon, 22 Sep 2003 21:58:59 +0000 In-reply-to: <87y8yjq56w.fsf@zagadka.ping.de> Original-To: guile-devel@gnu.org Mail-followup-to: guile-devel@gnu.org Mail-Copies-To: nobody User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) Original-Lines: 15 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:2818 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:2818 --Boundary_(ID_KyCJZEYXqwz8unqu0lziPg) Content-type: TEXT/PLAIN Content-transfer-encoding: 7BIT Here's a patch to silence some warnings produced by -Wwrite-strings. (I only used -Wwrite-strings while compiling a Guile extension, not Guile itself. Using -Wwrite-strings for Guile itself would likely produce lots more similar warnings, but none of them should be too hard to fix.) * goops.c, objects.h, smob.c, smob.h: Make type names char const * instead of char *. BTW, what version of auto* should be used to build/test CVS checkouts? paul --Boundary_(ID_KyCJZEYXqwz8unqu0lziPg) Content-type: text/x-patch; NAME=guile-const.patch Content-transfer-encoding: 7BIT Content-disposition: attachment; filename=guile-const.patch Index: libguile/goops.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/goops.c,v retrieving revision 1.71 diff -u -r1.71 goops.c --- libguile/goops.c 18 Sep 2003 20:55:40 -0000 1.71 +++ libguile/goops.c 22 Sep 2003 21:48:05 -0000 @@ -2435,7 +2435,7 @@ **********************************************************************/ static SCM -make_class_from_template (char *template, char *type_name, SCM supers, int applicablep) +make_class_from_template (char const *template, char const *type_name, SCM supers, int applicablep) { SCM class, name; if (type_name) @@ -2462,7 +2462,7 @@ } SCM -scm_make_extended_class (char *type_name, int applicablep) +scm_make_extended_class (char const *type_name, int applicablep) { return make_class_from_template ("<%s>", type_name, Index: libguile/objects.h =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/objects.h,v retrieving revision 1.41 diff -u -r1.41 objects.h --- libguile/objects.h 5 Apr 2003 19:10:22 -0000 1.41 +++ libguile/objects.h 22 Sep 2003 21:48:05 -0000 @@ -197,7 +197,7 @@ SCM_API SCM scm_no_applicable_method; /* Goops functions. */ -SCM_API SCM scm_make_extended_class (char *type_name, int applicablep); +SCM_API SCM scm_make_extended_class (char const *type_name, int applicablep); SCM_API void scm_i_inherit_applicable (SCM c); SCM_API void scm_make_port_classes (long ptobnum, char *type_name); SCM_API void scm_change_object_class (SCM, SCM, SCM); Index: libguile/smob.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/smob.c,v retrieving revision 1.58 diff -u -r1.58 smob.c --- libguile/smob.c 18 Sep 2003 20:55:40 -0000 1.58 +++ libguile/smob.c 22 Sep 2003 21:48:05 -0000 @@ -269,7 +269,7 @@ scm_t_bits -scm_make_smob_type (char *name, size_t size) +scm_make_smob_type (char const *name, size_t size) #define FUNC_NAME "scm_make_smob_type" { long new_smob; Index: libguile/smob.h =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/smob.h,v retrieving revision 1.48 diff -u -r1.48 smob.h --- libguile/smob.h 5 Apr 2003 19:10:22 -0000 1.48 +++ libguile/smob.h 22 Sep 2003 21:48:05 -0000 @@ -30,7 +30,7 @@ typedef struct scm_smob_descriptor { - char *name; + char const *name; size_t size; SCM (*mark) (SCM); size_t (*free) (SCM); --Boundary_(ID_KyCJZEYXqwz8unqu0lziPg) Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel --Boundary_(ID_KyCJZEYXqwz8unqu0lziPg)--