Mercurial > hg > xemacs-beta
diff src/opaque.c @ 647:b39c14581166
[xemacs-hg @ 2001-08-13 04:45:47 by ben]
removal of unsigned, size_t, etc.
| author | ben |
|---|---|
| date | Mon, 13 Aug 2001 04:46:48 +0000 |
| parents | e7ef97881643 |
| children | fdefd0186b75 |
line wrap: on
line diff
--- a/src/opaque.c Wed Aug 08 12:15:04 2001 +0000 +++ b/src/opaque.c Mon Aug 13 04:46:48 2001 +0000 @@ -52,14 +52,14 @@ write_c_string (buf, printcharfun); } -inline static size_t -aligned_sizeof_opaque (size_t opaque_size) +inline static Memory_Count +aligned_sizeof_opaque (Memory_Count opaque_size) { return ALIGN_SIZE (offsetof (Lisp_Opaque, data) + opaque_size, ALIGNOF (max_align_t)); } -static size_t +static Memory_Count sizeof_opaque (const void *header) { return aligned_sizeof_opaque (((const Lisp_Opaque *) header)->size); @@ -70,7 +70,7 @@ If DATA is OPAQUE_UNINIT, the object's data is uninitialized. Else the object's data is initialized by copying from DATA. */ Lisp_Object -make_opaque (const void *data, size_t size) +make_opaque (const void *data, Memory_Count size) { Lisp_Opaque *p = (Lisp_Opaque *) alloc_lcrecord (aligned_sizeof_opaque (size), &lrecord_opaque); @@ -95,7 +95,7 @@ static int equal_opaque (Lisp_Object obj1, Lisp_Object obj2, int depth) { - size_t size; + Memory_Count size; return ((size = XOPAQUE_SIZE (obj1)) == XOPAQUE_SIZE (obj2) && !memcmp (XOPAQUE_DATA (obj1), XOPAQUE_DATA (obj2), size)); } @@ -172,7 +172,8 @@ void reinit_opaque_once_early (void) { - Vopaque_ptr_free_list = make_lcrecord_list (sizeof (Lisp_Opaque_Ptr), &lrecord_opaque_ptr); + Vopaque_ptr_free_list = make_lcrecord_list (sizeof (Lisp_Opaque_Ptr), + &lrecord_opaque_ptr); staticpro_nodump (&Vopaque_ptr_free_list); }