comparison src/rangetab.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 cf900a2f1fa3
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
47 RANGE_START_OPEN_END_OPEN 47 RANGE_START_OPEN_END_OPEN
48 }; 48 };
49 49
50 struct Lisp_Range_Table 50 struct Lisp_Range_Table
51 { 51 {
52 struct LCRECORD_HEADER header; 52 NORMAL_LISP_OBJECT_HEADER header;
53 range_table_entry_dynarr *entries; 53 range_table_entry_dynarr *entries;
54 enum range_table_type type; 54 enum range_table_type type;
55 }; 55 };
56 typedef struct Lisp_Range_Table Lisp_Range_Table; 56 typedef struct Lisp_Range_Table Lisp_Range_Table;
57 57
58 DECLARE_LRECORD (range_table, Lisp_Range_Table); 58 DECLARE_LISP_OBJECT (range_table, Lisp_Range_Table);
59 #define XRANGE_TABLE(x) XRECORD (x, range_table, Lisp_Range_Table) 59 #define XRANGE_TABLE(x) XRECORD (x, range_table, Lisp_Range_Table)
60 #define wrap_range_table(p) wrap_record (p, range_table) 60 #define wrap_range_table(p) wrap_record (p, range_table)
61 #define RANGE_TABLEP(x) RECORDP (x, range_table) 61 #define RANGE_TABLEP(x) RECORDP (x, range_table)
62 #define CHECK_RANGE_TABLE(x) CHECK_RECORD (x, range_table) 62 #define CHECK_RANGE_TABLE(x) CHECK_RECORD (x, range_table)
63 63