mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

Make type names char const * instead of char *. Thanks to Paul Jarc!

Browse source
This commit is contained in:
Marius Vollmer 2003-10-07 15:58:19 +00:00
parent 41a80feb8a
commit da0e6c2baf
5 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-10-07 Marius Vollmer <mvo@zagadka.de>
* 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 <user42@zip.com.au> 2003-10-02 Kevin Ryde <user42@zip.com.au>
* strports.c (s_scm_call_with_output_string): scm_get_output_string * strports.c (s_scm_call_with_output_string): scm_get_output_string

4
libguile/goops.c
View file

@ -2435,7 +2435,7 @@ create_standard_classes (void)
**********************************************************************/ **********************************************************************/
static SCM 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; SCM class, name;
if (type_name) if (type_name)
@ -2462,7 +2462,7 @@ make_class_from_template (char *template, char *type_name, SCM supers, int appli
} }
SCM 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>", return make_class_from_template ("<%s>",
type_name, type_name,

2
libguile/objects.h
View file

@ -197,7 +197,7 @@ SCM_API SCM *scm_smob_class;
SCM_API SCM scm_no_applicable_method; SCM_API SCM scm_no_applicable_method;
/* Goops functions. */ /* 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_i_inherit_applicable (SCM c);
SCM_API void scm_make_port_classes (long ptobnum, char *type_name); SCM_API void scm_make_port_classes (long ptobnum, char *type_name);
SCM_API void scm_change_object_class (SCM, SCM, SCM); SCM_API void scm_change_object_class (SCM, SCM, SCM);

2
libguile/smob.c
View file

@ -269,7 +269,7 @@ scm_smob_apply_3_error (SCM smob,
scm_t_bits 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" #define FUNC_NAME "scm_make_smob_type"
{ {
long new_smob; long new_smob;

2
libguile/smob.h
View file

@ -30,7 +30,7 @@
typedef struct scm_smob_descriptor typedef struct scm_smob_descriptor
{ {
char *name; char const *name;
size_t size; size_t size;
SCM (*mark) (SCM); SCM (*mark) (SCM);
size_t (*free) (SCM); size_t (*free) (SCM);