summaryrefslogtreecommitdiff
path: root/libguile/goops.h
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-01-18 16:53:01 +0100
committerLudovic Courtès <ludo@gnu.org>2009-02-03 00:02:50 +0100
commit04795a1cb259c20896fb2edb50c58086027281b0 (patch)
tree21d4d40a7a4148e1e2a8592f6cf5029b23fb4da5 /libguile/goops.h
parent202271f291971cf14175f5a1a193955f72d43d79 (diff)
downloadguile-04795a1cb259c20896fb2edb50c58086027281b0.tar.gz
GOOPS: Statically allocate the SMOB class array.
* libguile/goops.c (scm_smob_class): Statically allocate it. (create_smob_classes): Don't malloc(3) `scm_smob_class'. * libguile/goops.h (scm_smob_class): Update declaration. * libguile/smob.c (scm_make_smob_type, scm_set_smob_apply): When checking whether GOOPS is initialized, check whether the first element of SCM_SMOB_CLASS is non-zero.
Diffstat (limited to 'libguile/goops.h')
-rw-r--r--libguile/goops.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/goops.h b/libguile/goops.h
index 6b88ae267..545dac3d3 100644
--- a/libguile/goops.h
+++ b/libguile/goops.h
@@ -3,7 +3,7 @@
#ifndef SCM_GOOPS_H
#define SCM_GOOPS_H
-/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008 Free Software Foundation, Inc.
+/* Copyright (C) 1998,1999,2000,2001,2002,2003, 2006, 2008, 2009 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@@ -169,7 +169,7 @@ SCM_API SCM scm_class_integer;
SCM_API SCM scm_class_fraction;
SCM_API SCM scm_class_unknown;
SCM_API SCM *scm_port_class;
-SCM_API SCM *scm_smob_class;
+SCM_API SCM scm_smob_class[];
SCM_API SCM scm_class_top;
SCM_API SCM scm_class_object;
SCM_API SCM scm_class_class;