From da0e6c2baff68dda2abb721e72bdec2972157eb8 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 7 Oct 2003 15:58:19 +0000 Subject: [PATCH] Make type names char const * instead of char *. Thanks to Paul Jarc! --- libguile/ChangeLog | 5 +++++ libguile/goops.c | 4 ++-- libguile/objects.h | 2 +- libguile/smob.c | 2 +- libguile/smob.h | 2 +- 5 files changed, 10 insertions(+), 5 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index da7b12c44..a8dd7ee33 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2003-10-07 Marius Vollmer + + * goops.c, objects.h, smob.c, smob.h: Make type names char + const * instead of char *. Thanks to Paul Jarc! + 2003-10-02 Kevin Ryde * strports.c (s_scm_call_with_output_string): scm_get_output_string diff --git a/libguile/goops.c b/libguile/goops.c index 44da20efe..cccdf205a 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -2435,7 +2435,7 @@ create_standard_classes (void) **********************************************************************/ 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 @@ make_class_from_template (char *template, char *type_name, SCM supers, int appli } 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, diff --git a/libguile/objects.h b/libguile/objects.h index d500c9ada..3217df025 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -197,7 +197,7 @@ SCM_API SCM *scm_smob_class; 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); diff --git a/libguile/smob.c b/libguile/smob.c index c73b2a9ca..8153d44bb 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -269,7 +269,7 @@ scm_smob_apply_3_error (SCM smob, 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; diff --git a/libguile/smob.h b/libguile/smob.h index 279e0cbf5..3ca8de8a4 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -30,7 +30,7 @@ typedef struct scm_smob_descriptor { - char *name; + char const *name; size_t size; SCM (*mark) (SCM); size_t (*free) (SCM); -- 2.20.1