comparison src/syntax.h @ 5133:444a448b2f53

Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents a9c41067dd88
children 308d34e9f07d
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
294 need to recalculate, we can update the info from the previous info 294 need to recalculate, we can update the info from the previous info
295 faster than if we did the whole calculation from scratch. */ 295 faster than if we did the whole calculation from scratch. */
296 struct syntax_cache 296 struct syntax_cache
297 { 297 {
298 #ifdef NEW_GC 298 #ifdef NEW_GC
299 struct lrecord_header header; 299 NORMAL_LISP_OBJECT_HEADER header;
300 #endif /* NEW_GC */ 300 #endif /* NEW_GC */
301 int use_code; /* Whether to use syntax_code or 301 int use_code; /* Whether to use syntax_code or
302 syntax_table. This is set 302 syntax_table. This is set
303 depending on whether the 303 depending on whether the
304 syntax-table property is a 304 syntax-table property is a
337 }; 337 };
338 338
339 #ifdef NEW_GC 339 #ifdef NEW_GC
340 typedef struct syntax_cache Lisp_Syntax_Cache; 340 typedef struct syntax_cache Lisp_Syntax_Cache;
341 341
342 DECLARE_LRECORD (syntax_cache, Lisp_Syntax_Cache); 342 DECLARE_LISP_OBJECT (syntax_cache, Lisp_Syntax_Cache);
343 343
344 #define XSYNTAX_CACHE(x) \ 344 #define XSYNTAX_CACHE(x) \
345 XRECORD (x, syntax_cache, Lisp_Syntax_Cache) 345 XRECORD (x, syntax_cache, Lisp_Syntax_Cache)
346 #define wrap_syntax_cache(p) wrap_record (p, syntax_cache) 346 #define wrap_syntax_cache(p) wrap_record (p, syntax_cache)
347 #define SYNTAX_CACHE_P(x) RECORDP (x, syntax_cache) 347 #define SYNTAX_CACHE_P(x) RECORDP (x, syntax_cache)