Mercurial > hg > xemacs-beta

comparison src/extents.c @ 2551:9f70af3ac939

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 16:14:02 by james] Commit Olivier Galibert's dumper updates for bignums and use them. See xemacs-patches message with ID <ps8y685c6p.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 16:14:08 +0000
parents 8c96bdabcaf9
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2550:317f30471f4e 2551:9f70af3ac939
1027 1027
1028 extern const struct sized_memory_description gap_array_marker_description; 1028 extern const struct sized_memory_description gap_array_marker_description;
1029 1029
1030 static const struct memory_description gap_array_marker_description_1[] = { 1030 static const struct memory_description gap_array_marker_description_1[] = {
1031 { XD_BLOCK_PTR, offsetof (Gap_Array_Marker, next), 1, 1031 { XD_BLOCK_PTR, offsetof (Gap_Array_Marker, next), 1,
1032 &gap_array_marker_description }, 1032 { &gap_array_marker_description } },
1033 { XD_END } 1033 { XD_END }
1034 }; 1034 };
1035 1035
1036 const struct sized_memory_description gap_array_marker_description = { 1036 const struct sized_memory_description gap_array_marker_description = {
1037 sizeof (Gap_Array_Marker), 1037 sizeof (Gap_Array_Marker),
1041 static const struct memory_description lispobj_gap_array_description_1[] = { 1041 static const struct memory_description lispobj_gap_array_description_1[] = {
1042 { XD_INT, offsetof (Gap_Array, gap) }, 1042 { XD_INT, offsetof (Gap_Array, gap) },
1043 { XD_INT, offsetof (Gap_Array, offset_past_gap) }, 1043 { XD_INT, offsetof (Gap_Array, offset_past_gap) },
1044 { XD_INT, offsetof (Gap_Array, els_past_gap) }, 1044 { XD_INT, offsetof (Gap_Array, els_past_gap) },
1045 { XD_BLOCK_PTR, offsetof (Gap_Array, markers), 1, 1045 { XD_BLOCK_PTR, offsetof (Gap_Array, markers), 1,
1046 &gap_array_marker_description, XD_FLAG_NO_KKCC }, 1046 { &gap_array_marker_description }, XD_FLAG_NO_KKCC },
1047 { XD_BLOCK_ARRAY, offsetof (Gap_Array, array), XD_INDIRECT (0, 0), 1047 { XD_BLOCK_ARRAY, offsetof (Gap_Array, array), XD_INDIRECT (0, 0),
1048 &lisp_object_description }, 1048 { &lisp_object_description } },
1049 { XD_BLOCK_ARRAY, XD_INDIRECT (1, offsetof (Gap_Array, array)), 1049 { XD_BLOCK_ARRAY, XD_INDIRECT (1, offsetof (Gap_Array, array)),
1050 XD_INDIRECT (2, 0), &lisp_object_description }, 1050 XD_INDIRECT (2, 0), { &lisp_object_description } },
1051 { XD_END } 1051 { XD_END }
1052 }; 1052 };
1053 1053
1054 static const struct sized_memory_description lispobj_gap_array_description = { 1054 static const struct sized_memory_description lispobj_gap_array_description = {
1055 sizeof (Gap_Array), 1055 sizeof (Gap_Array),
1058 1058
1059 extern const struct sized_memory_description extent_list_marker_description; 1059 extern const struct sized_memory_description extent_list_marker_description;
1060 1060
1061 static const struct memory_description extent_list_marker_description_1[] = { 1061 static const struct memory_description extent_list_marker_description_1[] = {
1062 { XD_BLOCK_PTR, offsetof (Extent_List_Marker, m), 1, 1062 { XD_BLOCK_PTR, offsetof (Extent_List_Marker, m), 1,
1063 &gap_array_marker_description }, 1063 { &gap_array_marker_description } },
1064 { XD_BLOCK_PTR, offsetof (Extent_List_Marker, next), 1, 1064 { XD_BLOCK_PTR, offsetof (Extent_List_Marker, next), 1,
1065 &extent_list_marker_description }, 1065 { &extent_list_marker_description } },
1066 { XD_END } 1066 { XD_END }
1067 }; 1067 };
1068 1068
1069 const struct sized_memory_description extent_list_marker_description = { 1069 const struct sized_memory_description extent_list_marker_description = {
1070 sizeof (Extent_List_Marker), 1070 sizeof (Extent_List_Marker),
1071 extent_list_marker_description_1 1071 extent_list_marker_description_1
1072 }; 1072 };
1073 1073
1074 static const struct memory_description extent_list_description_1[] = { 1074 static const struct memory_description extent_list_description_1[] = {
1075 { XD_BLOCK_PTR, offsetof (Extent_List, start), 1, &lispobj_gap_array_description }, 1075 { XD_BLOCK_PTR, offsetof (Extent_List, start), 1,
1076 { XD_BLOCK_PTR, offsetof (Extent_List, end), 1, &lispobj_gap_array_description, XD_FLAG_NO_KKCC }, 1076 { &lispobj_gap_array_description } },
1077 { XD_BLOCK_PTR, offsetof (Extent_List, markers), 1, &extent_list_marker_description, XD_FLAG_NO_KKCC }, 1077 { XD_BLOCK_PTR, offsetof (Extent_List, end), 1,
1078 { &lispobj_gap_array_description }, XD_FLAG_NO_KKCC },
1079 { XD_BLOCK_PTR, offsetof (Extent_List, markers), 1,
1080 { &extent_list_marker_description }, XD_FLAG_NO_KKCC },
1078 { XD_END } 1081 { XD_END }
1079 }; 1082 };
1080 1083
1081 static const struct sized_memory_description extent_list_description = { 1084 static const struct sized_memory_description extent_list_description = {
1082 sizeof (Extent_List), 1085 sizeof (Extent_List),
1083 extent_list_description_1 1086 extent_list_description_1
1084 }; 1087 };
1085 1088
1086 static const struct memory_description stack_of_extents_description_1[] = { 1089 static const struct memory_description stack_of_extents_description_1[] = {
1087 { XD_BLOCK_PTR, offsetof (Stack_Of_Extents, extents), 1, &extent_list_description }, 1090 { XD_BLOCK_PTR, offsetof (Stack_Of_Extents, extents), 1,
1091 { &extent_list_description } },
1088 { XD_END } 1092 { XD_END }
1089 }; 1093 };
1090 1094
1091 static const struct sized_memory_description stack_of_extents_description = { 1095 static const struct sized_memory_description stack_of_extents_description = {
1092 sizeof (Stack_Of_Extents), 1096 sizeof (Stack_Of_Extents),
1093 stack_of_extents_description_1 1097 stack_of_extents_description_1
1094 }; 1098 };
1095 1099
1096 static const struct memory_description extent_info_description [] = { 1100 static const struct memory_description extent_info_description [] = {
1097 { XD_BLOCK_PTR, offsetof (struct extent_info, extents), 1, 1101 { XD_BLOCK_PTR, offsetof (struct extent_info, extents), 1,
1098 &extent_list_description }, 1102 { &extent_list_description } },
1099 { XD_BLOCK_PTR, offsetof (struct extent_info, soe), 1, 1103 { XD_BLOCK_PTR, offsetof (struct extent_info, soe), 1,
1100 &stack_of_extents_description, XD_FLAG_NO_KKCC }, 1104 { &stack_of_extents_description }, XD_FLAG_NO_KKCC },
1101 { XD_END } 1105 { XD_END }
1102 }; 1106 };
1103 1107
1104 static Lisp_Object 1108 static Lisp_Object
1105 mark_extent_info (Lisp_Object obj) 1109 mark_extent_info (Lisp_Object obj)