Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 647:b39c14581166

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 190b164ddcac
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
348 internal_hash (s->global_specs, depth + 1), 348 internal_hash (s->global_specs, depth + 1),
349 internal_hash (s->frame_specs, depth + 1), 349 internal_hash (s->frame_specs, depth + 1),
350 internal_hash (s->buffer_specs, depth + 1)); 350 internal_hash (s->buffer_specs, depth + 1));
351 } 351 }
352 352
353 inline static size_t 353 inline static Memory_Count
354 aligned_sizeof_specifier (size_t specifier_type_specific_size) 354 aligned_sizeof_specifier (Memory_Count specifier_type_specific_size)
355 { 355 {
356 return ALIGN_SIZE (offsetof (Lisp_Specifier, data) 356 return ALIGN_SIZE (offsetof (Lisp_Specifier, data)
357 + specifier_type_specific_size, 357 + specifier_type_specific_size,
358 ALIGNOF (max_align_t)); 358 ALIGNOF (max_align_t));
359 } 359 }
360 360
361 static size_t 361 static Memory_Count
362 sizeof_specifier (const void *header) 362 sizeof_specifier (const void *header)
363 { 363 {
364 const Lisp_Specifier *p = (const Lisp_Specifier *) header; 364 const Lisp_Specifier *p = (const Lisp_Specifier *) header;
365 return aligned_sizeof_specifier (GHOST_SPECIFIER_P (p) 365 return aligned_sizeof_specifier (GHOST_SPECIFIER_P (p)
366 ? 0 366 ? 0
471 Vspecifier_type_list = Fcons (symbol, Vspecifier_type_list); 471 Vspecifier_type_list = Fcons (symbol, Vspecifier_type_list);
472 } 472 }
473 473
474 static Lisp_Object 474 static Lisp_Object
475 make_specifier_internal (struct specifier_methods *spec_meths, 475 make_specifier_internal (struct specifier_methods *spec_meths,
476 size_t data_size, int call_create_meth) 476 Memory_Count data_size, int call_create_meth)
477 { 477 {
478 Lisp_Object specifier; 478 Lisp_Object specifier;
479 Lisp_Specifier *sp = (Lisp_Specifier *) 479 Lisp_Specifier *sp = (Lisp_Specifier *)
480 alloc_lcrecord (aligned_sizeof_specifier (data_size), &lrecord_specifier); 480 alloc_lcrecord (aligned_sizeof_specifier (data_size), &lrecord_specifier);
481 481