projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(char_byte_table): Change name from "char-code-table" to
[chise/xemacs-chise.git]
/
src
/
opaque.c
diff --git
a/src/opaque.c
b/src/opaque.c
index
c93805a
..
70d29b9
100644
(file)
--- a/
src/opaque.c
+++ b/
src/opaque.c
@@
-42,7
+42,6
@@
Boston, MA 02111-1307, USA. */
#include <config.h>
#include "lisp.h"
#include "opaque.h"
#include <config.h>
#include "lisp.h"
#include "opaque.h"
-#include <stddef.h>
Lisp_Object Qopaquep;
Lisp_Object Qopaquep;
@@
-115,7
+114,7
@@
Lisp_Object
make_opaque (size_t size, CONST void *data)
{
Lisp_Opaque *p = (Lisp_Opaque *)
make_opaque (size_t size, CONST void *data)
{
Lisp_Opaque *p = (Lisp_Opaque *)
- alloc_lcrecord (offsetof (Lisp_Opaque, data) + size, lrecord_opaque);
+ alloc_lcrecord (offsetof (Lisp_Opaque, data) + size, &lrecord_opaque);
p->markfun = 0;
p->size_or_chain = make_int (size);
p->markfun = 0;
p->size_or_chain = make_int (size);
@@
-176,7
+175,7
@@
hash_opaque (Lisp_Object obj, int depth)
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("opaque", opaque,
mark_opaque, print_opaque, 0,
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("opaque", opaque,
mark_opaque, print_opaque, 0,
- equal_opaque, hash_opaque,
+ equal_opaque, hash_opaque, 0,
sizeof_opaque, Lisp_Opaque);
static Lisp_Object
sizeof_opaque, Lisp_Opaque);
static Lisp_Object
@@
-195,7
+194,7
@@
make_opaque_list (size_t size,
{
Lisp_Object val;
Lisp_Opaque_List *p =
{
Lisp_Object val;
Lisp_Opaque_List *p =
- alloc_lcrecord_type (Lisp_Opaque_List, lrecord_opaque_list);
+ alloc_lcrecord_type (Lisp_Opaque_List, &lrecord_opaque_list);
p->markfun = markfun;
p->size = size;
p->markfun = markfun;
p->size = size;
@@
-206,7
+205,7
@@
make_opaque_list (size_t size,
DEFINE_LRECORD_IMPLEMENTATION ("opaque-list", opaque_list,
mark_opaque_list, internal_object_printer,
DEFINE_LRECORD_IMPLEMENTATION ("opaque-list", opaque_list,
mark_opaque_list, internal_object_printer,
- 0, 0, 0, Lisp_Opaque_List);
+ 0, 0, 0, 0, Lisp_Opaque_List);
Lisp_Object
allocate_managed_opaque (Lisp_Object opaque_list, CONST void *data)
Lisp_Object
allocate_managed_opaque (Lisp_Object opaque_list, CONST void *data)