Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
472 /* Don't get stymied when initting the table, or when trying to 472 /* Don't get stymied when initting the table, or when trying to
473 free a pdump object. */ 473 free a pdump object. */
474 if (!EQ (ct->level1[i], Qnull_pointer) && 474 if (!EQ (ct->level1[i], Qnull_pointer) &&
475 CHAR_TABLE_ENTRYP (ct->level1[i]) && 475 CHAR_TABLE_ENTRYP (ct->level1[i]) &&
476 !OBJECT_DUMPED_P (ct->level1[1])) 476 !OBJECT_DUMPED_P (ct->level1[1]))
477 FREE_LCRECORD (ct->level1[i]); 477 FREE_LISP_OBJECT (ct->level1[i]);
478 ct->level1[i] = value; 478 ct->level1[i] = value;
479 } 479 }
480 #endif /* MULE */ 480 #endif /* MULE */
481 481
482 if (ct->type == CHAR_TABLE_TYPE_SYNTAX) 482 if (ct->type == CHAR_TABLE_TYPE_SYNTAX)
1066 else 1066 else
1067 { 1067 {
1068 int lb = XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE; 1068 int lb = XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE;
1069 if (CHAR_TABLE_ENTRYP (ct->level1[lb]) && 1069 if (CHAR_TABLE_ENTRYP (ct->level1[lb]) &&
1070 !OBJECT_DUMPED_P (ct->level1[lb])) 1070 !OBJECT_DUMPED_P (ct->level1[lb]))
1071 FREE_LCRECORD (ct->level1[lb]); 1071 FREE_LISP_OBJECT (ct->level1[lb]);
1072 ct->level1[lb] = val; 1072 ct->level1[lb] = val;
1073 } 1073 }
1074 break; 1074 break;
1075 1075
1076 case CHARTAB_RANGE_ROW: 1076 case CHARTAB_RANGE_ROW: