mesa: Make ARB_gpu_shader5 core-profile-only
[mesa.git] / src / mesa / main / extensions.c
1 /*
2 * Mesa 3-D graphics library
3 *
4 * Copyright (C) 1999-2008 Brian Paul All Rights Reserved.
5 * Copyright (C) 2009 VMware, Inc. All Rights Reserved.
6 *
7 * Permission is hereby granted, free of charge, to any person obtaining a
8 * copy of this software and associated documentation files (the "Software"),
9 * to deal in the Software without restriction, including without limitation
10 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
11 * and/or sell copies of the Software, and to permit persons to whom the
12 * Software is furnished to do so, subject to the following conditions:
13 *
14 * The above copyright notice and this permission notice shall be included
15 * in all copies or substantial portions of the Software.
16 *
17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
18 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
20 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
21 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
22 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23 * OTHER DEALINGS IN THE SOFTWARE.
24 */
25
26
27 /**
28 * \file
29 * \brief Extension handling
30 */
31
32
33 #include "glheader.h"
34 #include "imports.h"
35 #include "context.h"
36 #include "extensions.h"
37 #include "macros.h"
38 #include "mtypes.h"
39
40 struct gl_extensions _mesa_extension_override_enables;
41 struct gl_extensions _mesa_extension_override_disables;
42 static char *extra_extensions = NULL;
43 static char *cant_disable_extensions = NULL;
44
45 enum {
46 DISABLE = 0,
47 GLL = 1 << API_OPENGL_COMPAT, /* GL Legacy / Compatibility */
48 GLC = 1 << API_OPENGL_CORE, /* GL Core */
49 GL = (1 << API_OPENGL_COMPAT) | (1 << API_OPENGL_CORE),
50 ES1 = 1 << API_OPENGLES,
51 ES2 = 1 << API_OPENGLES2,
52 ES3 = 1 << (API_OPENGL_LAST + 1),
53 };
54
55 /**
56 * \brief An element of the \c extension_table.
57 */
58 struct extension {
59 /** Name of extension, such as "GL_ARB_depth_clamp". */
60 const char *name;
61
62 /** Offset (in bytes) of the corresponding member in struct gl_extensions. */
63 size_t offset;
64
65 /** Set of API's in which the extension exists, as a bitset. */
66 uint8_t api_set;
67
68 /** Year the extension was proposed or approved. Used to sort the
69 * extension string chronologically. */
70 uint16_t year;
71 };
72
73
74 /**
75 * Given a member \c x of struct gl_extensions, return offset of
76 * \c x in bytes.
77 */
78 #define o(x) offsetof(struct gl_extensions, x)
79
80
81 /**
82 * \brief Table of supported OpenGL extensions for all API's.
83 */
84 static const struct extension extension_table[] = {
85 /* ARB Extensions */
86 { "GL_ARB_ES2_compatibility", o(ARB_ES2_compatibility), GL, 2009 },
87 { "GL_ARB_ES3_compatibility", o(ARB_ES3_compatibility), GL, 2012 },
88 { "GL_ARB_arrays_of_arrays", o(ARB_arrays_of_arrays), GL, 2012 },
89 { "GL_ARB_base_instance", o(ARB_base_instance), GL, 2011 },
90 { "GL_ARB_blend_func_extended", o(ARB_blend_func_extended), GL, 2009 },
91 { "GL_ARB_buffer_storage", o(ARB_buffer_storage), GL, 2013 },
92 { "GL_ARB_clear_buffer_object", o(dummy_true), GL, 2012 },
93 { "GL_ARB_clear_texture", o(ARB_clear_texture), GL, 2013 },
94 { "GL_ARB_color_buffer_float", o(ARB_color_buffer_float), GL, 2004 },
95 { "GL_ARB_compressed_texture_pixel_storage", o(dummy_true), GL, 2011 },
96 { "GL_ARB_compute_shader", o(ARB_compute_shader), GL, 2012 },
97 { "GL_ARB_copy_buffer", o(dummy_true), GL, 2008 },
98 { "GL_ARB_copy_image", o(ARB_copy_image), GL, 2012 },
99 { "GL_ARB_conservative_depth", o(ARB_conservative_depth), GL, 2011 },
100 { "GL_ARB_debug_output", o(dummy_true), GL, 2009 },
101 { "GL_ARB_depth_buffer_float", o(ARB_depth_buffer_float), GL, 2008 },
102 { "GL_ARB_depth_clamp", o(ARB_depth_clamp), GL, 2003 },
103 { "GL_ARB_depth_texture", o(ARB_depth_texture), GLL, 2001 },
104 { "GL_ARB_draw_buffers", o(dummy_true), GL, 2002 },
105 { "GL_ARB_draw_buffers_blend", o(ARB_draw_buffers_blend), GL, 2009 },
106 { "GL_ARB_draw_elements_base_vertex", o(ARB_draw_elements_base_vertex), GL, 2009 },
107 { "GL_ARB_draw_indirect", o(ARB_draw_indirect), GLC, 2010 },
108 { "GL_ARB_draw_instanced", o(ARB_draw_instanced), GL, 2008 },
109 { "GL_ARB_explicit_attrib_location", o(ARB_explicit_attrib_location), GL, 2009 },
110 { "GL_ARB_explicit_uniform_location", o(ARB_explicit_uniform_location), GL, 2012 },
111 { "GL_ARB_fragment_coord_conventions", o(ARB_fragment_coord_conventions), GL, 2009 },
112 { "GL_ARB_fragment_layer_viewport", o(ARB_fragment_layer_viewport), GLC, 2012 },
113 { "GL_ARB_fragment_program", o(ARB_fragment_program), GLL, 2002 },
114 { "GL_ARB_fragment_program_shadow", o(ARB_fragment_program_shadow), GLL, 2003 },
115 { "GL_ARB_fragment_shader", o(ARB_fragment_shader), GL, 2002 },
116 { "GL_ARB_framebuffer_object", o(ARB_framebuffer_object), GL, 2005 },
117 { "GL_ARB_framebuffer_sRGB", o(EXT_framebuffer_sRGB), GL, 1998 },
118 { "GL_ARB_get_program_binary", o(dummy_true), GL, 2010 },
119 { "GL_ARB_gpu_shader5", o(ARB_gpu_shader5), GLC, 2010 },
120 { "GL_ARB_half_float_pixel", o(dummy_true), GL, 2003 },
121 { "GL_ARB_half_float_vertex", o(ARB_half_float_vertex), GL, 2008 },
122 { "GL_ARB_instanced_arrays", o(ARB_instanced_arrays), GL, 2008 },
123 { "GL_ARB_internalformat_query", o(ARB_internalformat_query), GL, 2011 },
124 { "GL_ARB_invalidate_subdata", o(dummy_true), GL, 2012 },
125 { "GL_ARB_map_buffer_alignment", o(dummy_true), GL, 2011 },
126 { "GL_ARB_map_buffer_range", o(ARB_map_buffer_range), GL, 2008 },
127 { "GL_ARB_multi_bind", o(dummy_true), GL, 2013 },
128 { "GL_ARB_multi_draw_indirect", o(ARB_draw_indirect), GLC, 2012 },
129 { "GL_ARB_multisample", o(dummy_true), GLL, 1994 },
130 { "GL_ARB_multitexture", o(dummy_true), GLL, 1998 },
131 { "GL_ARB_occlusion_query2", o(ARB_occlusion_query2), GL, 2003 },
132 { "GL_ARB_occlusion_query", o(ARB_occlusion_query), GLL, 2001 },
133 { "GL_ARB_pixel_buffer_object", o(EXT_pixel_buffer_object), GL, 2004 },
134 { "GL_ARB_point_parameters", o(EXT_point_parameters), GLL, 1997 },
135 { "GL_ARB_point_sprite", o(ARB_point_sprite), GL, 2003 },
136 { "GL_ARB_provoking_vertex", o(EXT_provoking_vertex), GL, 2009 },
137 { "GL_ARB_robustness", o(dummy_true), GL, 2010 },
138 { "GL_ARB_sample_shading", o(ARB_sample_shading), GL, 2009 },
139 { "GL_ARB_sampler_objects", o(dummy_true), GL, 2009 },
140 { "GL_ARB_seamless_cube_map", o(ARB_seamless_cube_map), GL, 2009 },
141 { "GL_ARB_seamless_cubemap_per_texture", o(AMD_seamless_cubemap_per_texture), GL, 2013 },
142 { "GL_ARB_separate_shader_objects", o(dummy_true), GL, 2010 },
143 { "GL_ARB_shader_atomic_counters", o(ARB_shader_atomic_counters), GL, 2011 },
144 { "GL_ARB_shader_bit_encoding", o(ARB_shader_bit_encoding), GL, 2010 },
145 { "GL_ARB_shader_image_load_store", o(ARB_shader_image_load_store), GL, 2011 },
146 { "GL_ARB_shader_objects", o(dummy_true), GL, 2002 },
147 { "GL_ARB_shader_stencil_export", o(ARB_shader_stencil_export), GL, 2009 },
148 { "GL_ARB_shader_texture_lod", o(ARB_shader_texture_lod), GL, 2009 },
149 { "GL_ARB_shading_language_100", o(dummy_true), GLL, 2003 },
150 { "GL_ARB_shading_language_packing", o(ARB_shading_language_packing), GL, 2011 },
151 { "GL_ARB_shading_language_420pack", o(ARB_shading_language_420pack), GL, 2011 },
152 { "GL_ARB_shadow", o(ARB_shadow), GLL, 2001 },
153 { "GL_ARB_stencil_texturing", o(ARB_stencil_texturing), GL, 2012 },
154 { "GL_ARB_sync", o(ARB_sync), GL, 2003 },
155 { "GL_ARB_texture_border_clamp", o(ARB_texture_border_clamp), GLL, 2000 },
156 { "GL_ARB_texture_buffer_object", o(ARB_texture_buffer_object), GLC, 2008 },
157 { "GL_ARB_texture_buffer_object_rgb32", o(ARB_texture_buffer_object_rgb32), GLC, 2009 },
158 { "GL_ARB_texture_buffer_range", o(ARB_texture_buffer_range), GLC, 2012 },
159 { "GL_ARB_texture_compression", o(dummy_true), GLL, 2000 },
160 { "GL_ARB_texture_compression_bptc", o(ARB_texture_compression_bptc), GL, 2010 },
161 { "GL_ARB_texture_compression_rgtc", o(ARB_texture_compression_rgtc), GL, 2004 },
162 { "GL_ARB_texture_cube_map", o(ARB_texture_cube_map), GLL, 1999 },
163 { "GL_ARB_texture_cube_map_array", o(ARB_texture_cube_map_array), GL, 2009 },
164 { "GL_ARB_texture_env_add", o(dummy_true), GLL, 1999 },
165 { "GL_ARB_texture_env_combine", o(ARB_texture_env_combine), GLL, 2001 },
166 { "GL_ARB_texture_env_crossbar", o(ARB_texture_env_crossbar), GLL, 2001 },
167 { "GL_ARB_texture_env_dot3", o(ARB_texture_env_dot3), GLL, 2001 },
168 { "GL_ARB_texture_float", o(ARB_texture_float), GL, 2004 },
169 { "GL_ARB_texture_gather", o(ARB_texture_gather), GL, 2009 },
170 { "GL_ARB_texture_mirrored_repeat", o(dummy_true), GLL, 2001 },
171 { "GL_ARB_texture_mirror_clamp_to_edge", o(ARB_texture_mirror_clamp_to_edge), GL, 2013 },
172 { "GL_ARB_texture_multisample", o(ARB_texture_multisample), GL, 2009 },
173 { "GL_ARB_texture_non_power_of_two", o(ARB_texture_non_power_of_two), GL, 2003 },
174 { "GL_ARB_texture_query_levels", o(ARB_texture_query_levels), GL, 2012 },
175 { "GL_ARB_texture_query_lod", o(ARB_texture_query_lod), GL, 2009 },
176 { "GL_ARB_texture_rectangle", o(NV_texture_rectangle), GL, 2004 },
177 { "GL_ARB_texture_rgb10_a2ui", o(ARB_texture_rgb10_a2ui), GL, 2009 },
178 { "GL_ARB_texture_rg", o(ARB_texture_rg), GL, 2008 },
179 { "GL_ARB_texture_storage", o(dummy_true), GL, 2011 },
180 { "GL_ARB_texture_storage_multisample", o(ARB_texture_multisample), GL, 2012 },
181 { "GL_ARB_texture_view", o(ARB_texture_view), GL, 2012 },
182 { "GL_ARB_texture_swizzle", o(EXT_texture_swizzle), GL, 2008 },
183 { "GL_ARB_timer_query", o(ARB_timer_query), GL, 2010 },
184 { "GL_ARB_transform_feedback2", o(ARB_transform_feedback2), GL, 2010 },
185 { "GL_ARB_transform_feedback3", o(ARB_transform_feedback3), GL, 2010 },
186 { "GL_ARB_transform_feedback_instanced", o(ARB_transform_feedback_instanced), GL, 2011 },
187 { "GL_ARB_transpose_matrix", o(dummy_true), GLL, 1999 },
188 { "GL_ARB_uniform_buffer_object", o(ARB_uniform_buffer_object), GL, 2009 },
189 { "GL_ARB_vertex_array_bgra", o(EXT_vertex_array_bgra), GL, 2008 },
190 { "GL_ARB_vertex_array_object", o(dummy_true), GL, 2006 },
191 { "GL_ARB_vertex_attrib_binding", o(dummy_true), GL, 2012 },
192 { "GL_ARB_vertex_buffer_object", o(dummy_true), GLL, 2003 },
193 { "GL_ARB_vertex_program", o(ARB_vertex_program), GLL, 2002 },
194 { "GL_ARB_vertex_shader", o(ARB_vertex_shader), GL, 2002 },
195 { "GL_ARB_vertex_type_10f_11f_11f_rev", o(ARB_vertex_type_10f_11f_11f_rev), GL, 2013 },
196 { "GL_ARB_vertex_type_2_10_10_10_rev", o(ARB_vertex_type_2_10_10_10_rev), GL, 2009 },
197 { "GL_ARB_viewport_array", o(ARB_viewport_array), GLC, 2010 },
198 { "GL_ARB_window_pos", o(dummy_true), GLL, 2001 },
199 /* EXT extensions */
200 { "GL_EXT_abgr", o(dummy_true), GL, 1995 },
201 { "GL_EXT_bgra", o(dummy_true), GLL, 1995 },
202 { "GL_EXT_blend_color", o(EXT_blend_color), GLL, 1995 },
203 { "GL_EXT_blend_equation_separate", o(EXT_blend_equation_separate), GL, 2003 },
204 { "GL_EXT_blend_func_separate", o(EXT_blend_func_separate), GLL, 1999 },
205 { "GL_EXT_discard_framebuffer", o(dummy_true), ES1 | ES2, 2009 },
206 { "GL_EXT_blend_minmax", o(EXT_blend_minmax), GLL | ES1 | ES2, 1995 },
207 { "GL_EXT_blend_subtract", o(dummy_true), GLL, 1995 },
208 { "GL_EXT_compiled_vertex_array", o(dummy_true), GLL, 1996 },
209 { "GL_EXT_copy_texture", o(dummy_true), GLL, 1995 },
210 { "GL_EXT_depth_bounds_test", o(EXT_depth_bounds_test), GL, 2002 },
211 { "GL_EXT_draw_buffers2", o(EXT_draw_buffers2), GL, 2006 },
212 { "GL_EXT_draw_instanced", o(ARB_draw_instanced), GL, 2006 },
213 { "GL_EXT_draw_range_elements", o(dummy_true), GLL, 1997 },
214 { "GL_EXT_fog_coord", o(dummy_true), GLL, 1999 },
215 { "GL_EXT_framebuffer_blit", o(dummy_true), GL, 2005 },
216 { "GL_EXT_framebuffer_multisample", o(EXT_framebuffer_multisample), GL, 2005 },
217 { "GL_EXT_framebuffer_multisample_blit_scaled", o(EXT_framebuffer_multisample_blit_scaled), GL, 2011 },
218 { "GL_EXT_framebuffer_object", o(dummy_true), GLL, 2000 },
219 { "GL_EXT_framebuffer_sRGB", o(EXT_framebuffer_sRGB), GL, 1998 },
220 { "GL_EXT_gpu_program_parameters", o(EXT_gpu_program_parameters), GLL, 2006 },
221 { "GL_EXT_gpu_shader4", o(EXT_gpu_shader4), GL, 2006 },
222 { "GL_EXT_map_buffer_range", o(ARB_map_buffer_range), ES1 | ES2, 2012 },
223 { "GL_EXT_multi_draw_arrays", o(dummy_true), GLL | ES1 | ES2, 1999 },
224 { "GL_EXT_packed_depth_stencil", o(dummy_true), GL, 2005 },
225 { "GL_EXT_packed_float", o(EXT_packed_float), GL, 2004 },
226 { "GL_EXT_packed_pixels", o(dummy_true), GLL, 1997 },
227 { "GL_EXT_pixel_buffer_object", o(EXT_pixel_buffer_object), GL, 2004 },
228 { "GL_EXT_point_parameters", o(EXT_point_parameters), GLL, 1997 },
229 { "GL_EXT_polygon_offset", o(dummy_true), GLL, 1995 },
230 { "GL_EXT_provoking_vertex", o(EXT_provoking_vertex), GL, 2009 },
231 { "GL_EXT_rescale_normal", o(dummy_true), GLL, 1997 },
232 { "GL_EXT_secondary_color", o(dummy_true), GLL, 1999 },
233 { "GL_EXT_separate_shader_objects", o(dummy_true), ES2, 2013 },
234 { "GL_EXT_separate_specular_color", o(dummy_true), GLL, 1997 },
235 { "GL_EXT_shader_integer_mix", o(EXT_shader_integer_mix), GL | ES3, 2013 },
236 { "GL_EXT_shadow_funcs", o(ARB_shadow), GLL, 2002 },
237 { "GL_EXT_stencil_two_side", o(EXT_stencil_two_side), GLL, 2001 },
238 { "GL_EXT_stencil_wrap", o(dummy_true), GLL, 2002 },
239 { "GL_EXT_subtexture", o(dummy_true), GLL, 1995 },
240 { "GL_EXT_texture3D", o(EXT_texture3D), GLL, 1996 },
241 { "GL_EXT_texture_array", o(EXT_texture_array), GL, 2006 },
242 { "GL_EXT_texture_compression_dxt1", o(ANGLE_texture_compression_dxt), GL | ES1 | ES2, 2004 },
243 { "GL_ANGLE_texture_compression_dxt3", o(ANGLE_texture_compression_dxt), GL | ES1 | ES2, 2011 },
244 { "GL_ANGLE_texture_compression_dxt5", o(ANGLE_texture_compression_dxt), GL | ES1 | ES2, 2011 },
245 { "GL_EXT_texture_compression_latc", o(EXT_texture_compression_latc), GL, 2006 },
246 { "GL_EXT_texture_compression_rgtc", o(ARB_texture_compression_rgtc), GL, 2004 },
247 { "GL_EXT_texture_compression_s3tc", o(EXT_texture_compression_s3tc), GL, 2000 },
248 { "GL_EXT_texture_cube_map", o(ARB_texture_cube_map), GLL, 2001 },
249 { "GL_EXT_texture_edge_clamp", o(dummy_true), GLL, 1997 },
250 { "GL_EXT_texture_env_add", o(dummy_true), GLL, 1999 },
251 { "GL_EXT_texture_env_combine", o(dummy_true), GLL, 2000 },
252 { "GL_EXT_texture_env_dot3", o(EXT_texture_env_dot3), GLL, 2000 },
253 { "GL_EXT_texture_filter_anisotropic", o(EXT_texture_filter_anisotropic), GL | ES1 | ES2, 1999 },
254 { "GL_EXT_texture_format_BGRA8888", o(dummy_true), ES1 | ES2, 2005 },
255 { "GL_EXT_texture_rg", o(ARB_texture_rg), ES2, 2011 },
256 { "GL_EXT_read_format_bgra", o(dummy_true), ES1 | ES2, 2009 },
257 { "GL_EXT_texture_integer", o(EXT_texture_integer), GL, 2006 },
258 { "GL_EXT_texture_lod_bias", o(dummy_true), GLL | ES1, 1999 },
259 { "GL_EXT_texture_mirror_clamp", o(EXT_texture_mirror_clamp), GL, 2004 },
260 { "GL_EXT_texture_object", o(dummy_true), GLL, 1995 },
261 { "GL_EXT_texture", o(dummy_true), GLL, 1996 },
262 { "GL_EXT_texture_rectangle", o(NV_texture_rectangle), GLL, 2004 },
263 { "GL_EXT_texture_shared_exponent", o(EXT_texture_shared_exponent), GL, 2004 },
264 { "GL_EXT_texture_snorm", o(EXT_texture_snorm), GL, 2009 },
265 { "GL_EXT_texture_sRGB", o(EXT_texture_sRGB), GL, 2004 },
266 { "GL_EXT_texture_sRGB_decode", o(EXT_texture_sRGB_decode), GL, 2006 },
267 { "GL_EXT_texture_swizzle", o(EXT_texture_swizzle), GL, 2008 },
268 { "GL_EXT_texture_type_2_10_10_10_REV", o(dummy_true), ES2, 2008 },
269 { "GL_EXT_timer_query", o(EXT_timer_query), GL, 2006 },
270 { "GL_EXT_transform_feedback", o(EXT_transform_feedback), GL, 2011 },
271 { "GL_EXT_unpack_subimage", o(dummy_true), ES2, 2011 },
272 { "GL_EXT_vertex_array_bgra", o(EXT_vertex_array_bgra), GL, 2008 },
273 { "GL_EXT_vertex_array", o(dummy_true), GLL, 1995 },
274 { "GL_EXT_color_buffer_float", o(dummy_true), ES3, 2013 },
275
276 /* OES extensions */
277 { "GL_OES_blend_equation_separate", o(EXT_blend_equation_separate), ES1, 2009 },
278 { "GL_OES_blend_func_separate", o(EXT_blend_func_separate), ES1, 2009 },
279 { "GL_OES_blend_subtract", o(dummy_true), ES1, 2009 },
280 { "GL_OES_byte_coordinates", o(dummy_true), ES1, 2002 },
281 { "GL_OES_compressed_ETC1_RGB8_texture", o(OES_compressed_ETC1_RGB8_texture), ES1 | ES2, 2005 },
282 { "GL_OES_compressed_paletted_texture", o(dummy_true), ES1, 2003 },
283 { "GL_OES_depth24", o(dummy_true), ES1 | ES2, 2005 },
284 { "GL_OES_depth32", o(dummy_false), DISABLE, 2005 },
285 { "GL_OES_depth_texture", o(ARB_depth_texture), ES2, 2006 },
286 { "GL_OES_depth_texture_cube_map", o(OES_depth_texture_cube_map), ES2, 2012 },
287 { "GL_OES_draw_texture", o(OES_draw_texture), ES1, 2004 },
288 /* FIXME: Mesa expects GL_OES_EGL_image to be available in OpenGL contexts. */
289 { "GL_OES_EGL_image", o(OES_EGL_image), GL | ES1 | ES2, 2006 },
290 { "GL_OES_EGL_image_external", o(OES_EGL_image_external), ES1 | ES2, 2010 },
291 { "GL_OES_element_index_uint", o(dummy_true), ES1 | ES2, 2005 },
292 { "GL_OES_fbo_render_mipmap", o(dummy_true), ES1 | ES2, 2005 },
293 { "GL_OES_fixed_point", o(dummy_true), ES1, 2002 },
294 { "GL_OES_framebuffer_object", o(dummy_true), ES1, 2005 },
295 { "GL_OES_get_program_binary", o(dummy_true), ES2, 2008 },
296 { "GL_OES_mapbuffer", o(dummy_true), ES1 | ES2, 2005 },
297 { "GL_OES_packed_depth_stencil", o(dummy_true), ES1 | ES2, 2007 },
298 { "GL_OES_point_size_array", o(dummy_true), ES1, 2004 },
299 { "GL_OES_point_sprite", o(ARB_point_sprite), ES1, 2004 },
300 { "GL_OES_query_matrix", o(dummy_true), ES1, 2003 },
301 { "GL_OES_read_format", o(dummy_true), GL | ES1, 2003 },
302 { "GL_OES_rgb8_rgba8", o(dummy_true), ES1 | ES2, 2005 },
303 { "GL_OES_single_precision", o(dummy_true), ES1, 2003 },
304 { "GL_OES_standard_derivatives", o(OES_standard_derivatives), ES2, 2005 },
305 { "GL_OES_stencil1", o(dummy_false), DISABLE, 2005 },
306 { "GL_OES_stencil4", o(dummy_false), DISABLE, 2005 },
307 { "GL_OES_stencil8", o(dummy_true), ES1 | ES2, 2005 },
308 { "GL_OES_stencil_wrap", o(dummy_true), ES1, 2002 },
309 { "GL_OES_surfaceless_context", o(dummy_true), ES1 | ES2, 2012 },
310 { "GL_OES_texture_3D", o(EXT_texture3D), ES2, 2005 },
311 { "GL_OES_texture_cube_map", o(ARB_texture_cube_map), ES1, 2007 },
312 { "GL_OES_texture_env_crossbar", o(ARB_texture_env_crossbar), ES1, 2005 },
313 { "GL_OES_texture_mirrored_repeat", o(dummy_true), ES1, 2005 },
314 { "GL_OES_texture_npot", o(ARB_texture_non_power_of_two), ES1 | ES2, 2005 },
315 { "GL_OES_vertex_array_object", o(dummy_true), ES1 | ES2, 2010 },
316
317 /* KHR extensions */
318 { "GL_KHR_debug", o(dummy_true), GL, 2012 },
319
320 /* Vendor extensions */
321 { "GL_3DFX_texture_compression_FXT1", o(TDFX_texture_compression_FXT1), GL, 1999 },
322 { "GL_AMD_conservative_depth", o(ARB_conservative_depth), GL, 2009 },
323 { "GL_AMD_draw_buffers_blend", o(ARB_draw_buffers_blend), GL, 2009 },
324 { "GL_AMD_performance_monitor", o(AMD_performance_monitor), GL, 2007 },
325 { "GL_AMD_seamless_cubemap_per_texture", o(AMD_seamless_cubemap_per_texture), GL, 2009 },
326 { "GL_AMD_shader_stencil_export", o(ARB_shader_stencil_export), GL, 2009 },
327 { "GL_AMD_shader_trinary_minmax", o(dummy_true), GL, 2012 },
328 { "GL_AMD_vertex_shader_layer", o(AMD_vertex_shader_layer), GLC, 2012 },
329 { "GL_AMD_vertex_shader_viewport_index", o(AMD_vertex_shader_viewport_index), GLC, 2012 },
330 { "GL_APPLE_object_purgeable", o(APPLE_object_purgeable), GL, 2006 },
331 { "GL_APPLE_packed_pixels", o(dummy_true), GLL, 2002 },
332 { "GL_APPLE_texture_max_level", o(dummy_true), ES1 | ES2, 2009 },
333 { "GL_APPLE_vertex_array_object", o(dummy_true), GLL, 2002 },
334 { "GL_ATI_blend_equation_separate", o(EXT_blend_equation_separate), GL, 2003 },
335 { "GL_ATI_draw_buffers", o(dummy_true), GLL, 2002 },
336 { "GL_ATI_fragment_shader", o(ATI_fragment_shader), GLL, 2001 },
337 { "GL_ATI_separate_stencil", o(ATI_separate_stencil), GLL, 2006 },
338 { "GL_ATI_texture_compression_3dc", o(ATI_texture_compression_3dc), GL, 2004 },
339 { "GL_ATI_texture_env_combine3", o(ATI_texture_env_combine3), GLL, 2002 },
340 { "GL_ATI_texture_float", o(ARB_texture_float), GL, 2002 },
341 { "GL_ATI_texture_mirror_once", o(ATI_texture_mirror_once), GL, 2006 },
342 { "GL_IBM_multimode_draw_arrays", o(dummy_true), GL, 1998 },
343 { "GL_IBM_rasterpos_clip", o(dummy_true), GLL, 1996 },
344 { "GL_IBM_texture_mirrored_repeat", o(dummy_true), GLL, 1998 },
345 { "GL_INGR_blend_func_separate", o(EXT_blend_func_separate), GLL, 1999 },
346 { "GL_INTEL_performance_query", o(INTEL_performance_query), GL | ES2, 2013 },
347 { "GL_MESA_pack_invert", o(MESA_pack_invert), GL, 2002 },
348 { "GL_MESA_texture_signed_rgba", o(EXT_texture_snorm), GL, 2009 },
349 { "GL_MESA_window_pos", o(dummy_true), GLL, 2000 },
350 { "GL_MESA_ycbcr_texture", o(MESA_ycbcr_texture), GL, 2002 },
351 { "GL_NV_blend_square", o(dummy_true), GLL, 1999 },
352 { "GL_NV_conditional_render", o(NV_conditional_render), GL, 2008 },
353 { "GL_NV_depth_clamp", o(ARB_depth_clamp), GL, 2001 },
354 { "GL_NV_draw_buffers", o(dummy_true), ES2, 2011 },
355 { "GL_NV_fbo_color_attachments", o(dummy_true), ES2, 2010 },
356 { "GL_NV_fog_distance", o(NV_fog_distance), GLL, 2001 },
357 { "GL_NV_fragment_program_option", o(NV_fragment_program_option), GLL, 2005 },
358 { "GL_NV_light_max_exponent", o(dummy_true), GLL, 1999 },
359 { "GL_NV_packed_depth_stencil", o(dummy_true), GL, 2000 },
360 { "GL_NV_point_sprite", o(NV_point_sprite), GL, 2001 },
361 { "GL_NV_primitive_restart", o(NV_primitive_restart), GLL, 2002 },
362 { "GL_NV_read_buffer", o(dummy_true), ES2, 2011 },
363 { "GL_NV_texgen_reflection", o(dummy_true), GLL, 1999 },
364 { "GL_NV_texture_barrier", o(NV_texture_barrier), GL, 2009 },
365 { "GL_NV_texture_env_combine4", o(NV_texture_env_combine4), GLL, 1999 },
366 { "GL_NV_texture_rectangle", o(NV_texture_rectangle), GLL, 2000 },
367 { "GL_NV_vdpau_interop", o(NV_vdpau_interop), GL, 2010 },
368 { "GL_S3_s3tc", o(ANGLE_texture_compression_dxt), GL, 1999 },
369 { "GL_SGIS_generate_mipmap", o(dummy_true), GLL, 1997 },
370 { "GL_SGIS_texture_border_clamp", o(ARB_texture_border_clamp), GLL, 1997 },
371 { "GL_SGIS_texture_edge_clamp", o(dummy_true), GLL, 1997 },
372 { "GL_SGIS_texture_lod", o(dummy_true), GLL, 1997 },
373 { "GL_SUN_multi_draw_arrays", o(dummy_true), GLL, 1999 },
374
375 { 0, 0, 0, 0 },
376 };
377
378
379 /**
380 * Given an extension name, lookup up the corresponding member of struct
381 * gl_extensions and return that member's offset (in bytes). If the name is
382 * not found in the \c extension_table, return 0.
383 *
384 * \param name Name of extension.
385 * \return Offset of member in struct gl_extensions.
386 */
387 static size_t
388 name_to_offset(const char* name)
389 {
390 const struct extension *i;
391
392 if (name == 0)
393 return 0;
394
395 for (i = extension_table; i->name != 0; ++i) {
396 if (strcmp(name, i->name) == 0)
397 return i->offset;
398 }
399
400 return 0;
401 }
402
403 /**
404 * Overrides extensions in \c ctx based on the values in
405 * _mesa_extension_override_enables and _mesa_extension_override_disables.
406 */
407 static void
408 override_extensions_in_context(struct gl_context *ctx)
409 {
410 const struct extension *i;
411 const GLboolean *enables =
412 (GLboolean*) &_mesa_extension_override_enables;
413 const GLboolean *disables =
414 (GLboolean*) &_mesa_extension_override_disables;
415 GLboolean *ctx_ext = (GLboolean*)&ctx->Extensions;
416
417 for (i = extension_table; i->name != 0; ++i) {
418 size_t offset = i->offset;
419 assert(!enables[offset] || !disables[offset]);
420 if (enables[offset]) {
421 ctx_ext[offset] = 1;
422 } else if (disables[offset]) {
423 ctx_ext[offset] = 0;
424 }
425 }
426 }
427
428
429 /**
430 * Enable all extensions suitable for a software-only renderer.
431 * This is a convenience function used by the XMesa, OSMesa, GGI drivers, etc.
432 */
433 void
434 _mesa_enable_sw_extensions(struct gl_context *ctx)
435 {
436 ctx->Extensions.ARB_depth_clamp = GL_TRUE;
437 ctx->Extensions.ARB_depth_texture = GL_TRUE;
438 ctx->Extensions.ARB_draw_elements_base_vertex = GL_TRUE;
439 ctx->Extensions.ARB_draw_instanced = GL_TRUE;
440 ctx->Extensions.ARB_explicit_attrib_location = GL_TRUE;
441 ctx->Extensions.ARB_fragment_coord_conventions = GL_TRUE;
442 ctx->Extensions.ARB_fragment_program = GL_TRUE;
443 ctx->Extensions.ARB_fragment_program_shadow = GL_TRUE;
444 ctx->Extensions.ARB_fragment_shader = GL_TRUE;
445 ctx->Extensions.ARB_framebuffer_object = GL_TRUE;
446 ctx->Extensions.ARB_half_float_vertex = GL_TRUE;
447 ctx->Extensions.ARB_map_buffer_range = GL_TRUE;
448 ctx->Extensions.ARB_occlusion_query = GL_TRUE;
449 ctx->Extensions.ARB_occlusion_query2 = GL_TRUE;
450 ctx->Extensions.ARB_point_sprite = GL_TRUE;
451 ctx->Extensions.ARB_shadow = GL_TRUE;
452 ctx->Extensions.ARB_texture_border_clamp = GL_TRUE;
453 ctx->Extensions.ARB_texture_compression_bptc = GL_TRUE;
454 ctx->Extensions.ARB_texture_cube_map = GL_TRUE;
455 ctx->Extensions.ARB_texture_env_combine = GL_TRUE;
456 ctx->Extensions.ARB_texture_env_crossbar = GL_TRUE;
457 ctx->Extensions.ARB_texture_env_dot3 = GL_TRUE;
458 #ifdef TEXTURE_FLOAT_ENABLED
459 ctx->Extensions.ARB_texture_float = GL_TRUE;
460 #endif
461 ctx->Extensions.ARB_texture_mirror_clamp_to_edge = GL_TRUE;
462 ctx->Extensions.ARB_texture_non_power_of_two = GL_TRUE;
463 ctx->Extensions.ARB_texture_rg = GL_TRUE;
464 ctx->Extensions.ARB_texture_compression_rgtc = GL_TRUE;
465 ctx->Extensions.ARB_vertex_program = GL_TRUE;
466 ctx->Extensions.ARB_vertex_shader = GL_TRUE;
467 ctx->Extensions.ARB_sync = GL_TRUE;
468 ctx->Extensions.APPLE_object_purgeable = GL_TRUE;
469 ctx->Extensions.ATI_fragment_shader = GL_TRUE;
470 ctx->Extensions.ATI_texture_compression_3dc = GL_TRUE;
471 ctx->Extensions.ATI_texture_env_combine3 = GL_TRUE;
472 ctx->Extensions.ATI_texture_mirror_once = GL_TRUE;
473 ctx->Extensions.ATI_separate_stencil = GL_TRUE;
474 ctx->Extensions.EXT_blend_color = GL_TRUE;
475 ctx->Extensions.EXT_blend_equation_separate = GL_TRUE;
476 ctx->Extensions.EXT_blend_func_separate = GL_TRUE;
477 ctx->Extensions.EXT_blend_minmax = GL_TRUE;
478 ctx->Extensions.EXT_depth_bounds_test = GL_TRUE;
479 ctx->Extensions.EXT_draw_buffers2 = GL_TRUE;
480 ctx->Extensions.EXT_pixel_buffer_object = GL_TRUE;
481 ctx->Extensions.EXT_point_parameters = GL_TRUE;
482 ctx->Extensions.EXT_provoking_vertex = GL_TRUE;
483 ctx->Extensions.EXT_stencil_two_side = GL_TRUE;
484 ctx->Extensions.EXT_texture_array = GL_TRUE;
485 ctx->Extensions.EXT_texture_compression_latc = GL_TRUE;
486 ctx->Extensions.EXT_texture_env_dot3 = GL_TRUE;
487 ctx->Extensions.EXT_texture_filter_anisotropic = GL_TRUE;
488 ctx->Extensions.EXT_texture_mirror_clamp = GL_TRUE;
489 ctx->Extensions.EXT_texture_shared_exponent = GL_TRUE;
490 ctx->Extensions.EXT_texture_sRGB = GL_TRUE;
491 ctx->Extensions.EXT_texture_sRGB_decode = GL_TRUE;
492 ctx->Extensions.EXT_texture_swizzle = GL_TRUE;
493 /*ctx->Extensions.EXT_transform_feedback = GL_TRUE;*/
494 ctx->Extensions.EXT_vertex_array_bgra = GL_TRUE;
495 ctx->Extensions.MESA_pack_invert = GL_TRUE;
496 ctx->Extensions.MESA_ycbcr_texture = GL_TRUE;
497 ctx->Extensions.NV_conditional_render = GL_TRUE;
498 ctx->Extensions.NV_point_sprite = GL_TRUE;
499 ctx->Extensions.NV_texture_env_combine4 = GL_TRUE;
500 ctx->Extensions.NV_texture_rectangle = GL_TRUE;
501 ctx->Extensions.NV_fragment_program_option = GL_TRUE;
502 ctx->Extensions.EXT_gpu_program_parameters = GL_TRUE;
503 ctx->Extensions.OES_standard_derivatives = GL_TRUE;
504 ctx->Extensions.TDFX_texture_compression_FXT1 = GL_TRUE;
505 if (ctx->Mesa_DXTn) {
506 ctx->Extensions.ANGLE_texture_compression_dxt = GL_TRUE;
507 ctx->Extensions.EXT_texture_compression_s3tc = GL_TRUE;
508 }
509 }
510
511 /**
512 * Either enable or disable the named extension.
513 * \return offset of extensions withint `ext' or 0 if extension is not known
514 */
515 static size_t
516 set_extension(struct gl_extensions *ext, const char *name, GLboolean state)
517 {
518 size_t offset;
519
520 offset = name_to_offset(name);
521 if (offset != 0 && (offset != o(dummy_true) || state != GL_FALSE)) {
522 ((GLboolean *) ext)[offset] = state;
523 }
524
525 return offset;
526 }
527
528 /**
529 * \brief Apply the \c MESA_EXTENSION_OVERRIDE environment variable.
530 *
531 * \c MESA_EXTENSION_OVERRIDE is a space-separated list of extensions to
532 * enable or disable. The list is processed thus:
533 * - Enable recognized extension names that are prefixed with '+'.
534 * - Disable recognized extension names that are prefixed with '-'.
535 * - Enable recognized extension names that are not prefixed.
536 * - Collect unrecognized extension names in a new string.
537 *
538 * \c MESA_EXTENSION_OVERRIDE was previously parsed during
539 * _mesa_one_time_init_extension_overrides. We just use the results of that
540 * parsing in this function.
541 *
542 * \return Space-separated list of unrecognized extension names (which must
543 * be freed). Does not return \c NULL.
544 */
545 static char *
546 get_extension_override( struct gl_context *ctx )
547 {
548 override_extensions_in_context(ctx);
549
550 if (cant_disable_extensions != NULL) {
551 _mesa_problem(ctx,
552 "Trying to disable permanently enabled extensions: %s",
553 cant_disable_extensions);
554 }
555
556 if (extra_extensions == NULL) {
557 return calloc(1, sizeof(char));
558 } else {
559 _mesa_problem(ctx, "Trying to enable unknown extensions: %s",
560 extra_extensions);
561 return strdup(extra_extensions);
562 }
563 }
564
565
566 /**
567 * \brief Free extra_extensions and cant_disable_extensions strings
568 *
569 * These strings are allocated early during the first context creation by
570 * _mesa_one_time_init_extension_overrides.
571 */
572 static void
573 free_unknown_extensions_strings(void)
574 {
575 free(extra_extensions);
576 free(cant_disable_extensions);
577 }
578
579
580 /**
581 * \brief Initialize extension override tables.
582 *
583 * This should be called one time early during first context initialization.
584 */
585 void
586 _mesa_one_time_init_extension_overrides(void)
587 {
588 const char *env_const = _mesa_getenv("MESA_EXTENSION_OVERRIDE");
589 char *env;
590 char *ext;
591 int len;
592 size_t offset;
593
594 atexit(free_unknown_extensions_strings);
595
596 memset(&_mesa_extension_override_enables, 0, sizeof(struct gl_extensions));
597 memset(&_mesa_extension_override_disables, 0, sizeof(struct gl_extensions));
598
599 if (env_const == NULL) {
600 return;
601 }
602
603 /* extra_exts: List of unrecognized extensions. */
604 extra_extensions = calloc(ALIGN(strlen(env_const) + 2, 4), sizeof(char));
605 cant_disable_extensions = calloc(ALIGN(strlen(env_const) + 2, 4), sizeof(char));
606
607 /* Copy env_const because strtok() is destructive. */
608 env = strdup(env_const);
609 for (ext = strtok(env, " "); ext != NULL; ext = strtok(NULL, " ")) {
610 int enable;
611 bool recognized;
612 switch (ext[0]) {
613 case '+':
614 enable = 1;
615 ++ext;
616 break;
617 case '-':
618 enable = 0;
619 ++ext;
620 break;
621 default:
622 enable = 1;
623 break;
624 }
625
626 offset = set_extension(&_mesa_extension_override_enables, ext, enable);
627 if (offset != 0 && (offset != o(dummy_true) || enable != GL_FALSE)) {
628 ((GLboolean *) &_mesa_extension_override_disables)[offset] = !enable;
629 recognized = true;
630 } else {
631 recognized = false;
632 }
633
634 if (!recognized) {
635 if (enable) {
636 strcat(extra_extensions, ext);
637 strcat(extra_extensions, " ");
638 } else if (offset == o(dummy_true)) {
639 strcat(cant_disable_extensions, ext);
640 strcat(cant_disable_extensions, " ");
641 }
642 }
643 }
644
645 free(env);
646
647 /* Remove trailing space, and free if unused. */
648 len = strlen(extra_extensions);
649 if (len == 0) {
650 free(extra_extensions);
651 extra_extensions = NULL;
652 } else if (extra_extensions[len - 1] == ' ') {
653 extra_extensions[len - 1] = '\0';
654 }
655 len = strlen(cant_disable_extensions);
656 if (len == 0) {
657 free(cant_disable_extensions);
658 cant_disable_extensions = NULL;
659 } else if (cant_disable_extensions[len - 1] == ' ') {
660 cant_disable_extensions[len - 1] = '\0';
661 }
662 }
663
664
665 /**
666 * \brief Initialize extension tables and enable default extensions.
667 *
668 * This should be called during context initialization.
669 * Note: Sets gl_extensions.dummy_true to true.
670 */
671 void
672 _mesa_init_extensions(struct gl_extensions *extensions)
673 {
674 GLboolean *base = (GLboolean *) extensions;
675 GLboolean *sentinel = base + o(extension_sentinel);
676 GLboolean *i;
677
678 /* First, turn all extensions off. */
679 for (i = base; i != sentinel; ++i)
680 *i = GL_FALSE;
681
682 /* Then, selectively turn default extensions on. */
683 extensions->dummy_true = GL_TRUE;
684 extensions->EXT_texture3D = GL_TRUE;
685 }
686
687
688 typedef unsigned short extension_index;
689
690
691 /**
692 * Compare two entries of the extensions table. Sorts first by year,
693 * then by name.
694 *
695 * Arguments are indices into extension_table.
696 */
697 static int
698 extension_compare(const void *p1, const void *p2)
699 {
700 extension_index i1 = * (const extension_index *) p1;
701 extension_index i2 = * (const extension_index *) p2;
702 const struct extension *e1 = &extension_table[i1];
703 const struct extension *e2 = &extension_table[i2];
704 int res;
705
706 res = (int)e1->year - (int)e2->year;
707
708 if (res == 0) {
709 res = strcmp(e1->name, e2->name);
710 }
711
712 return res;
713 }
714
715
716 /**
717 * Construct the GL_EXTENSIONS string. Called the first time that
718 * glGetString(GL_EXTENSIONS) is called.
719 */
720 GLubyte*
721 _mesa_make_extension_string(struct gl_context *ctx)
722 {
723 /* The extension string. */
724 char *exts = 0;
725 /* Length of extension string. */
726 size_t length = 0;
727 /* Number of extensions */
728 unsigned count;
729 /* Indices of the extensions sorted by year */
730 extension_index *extension_indices;
731 /* String of extra extensions. */
732 char *extra_extensions = get_extension_override(ctx);
733 GLboolean *base = (GLboolean *) &ctx->Extensions;
734 const struct extension *i;
735 unsigned j;
736 unsigned maxYear = ~0;
737 unsigned api_set = (1 << ctx->API);
738 if (_mesa_is_gles3(ctx))
739 api_set |= ES3;
740
741 /* Check if the MESA_EXTENSION_MAX_YEAR env var is set */
742 {
743 const char *env = getenv("MESA_EXTENSION_MAX_YEAR");
744 if (env) {
745 maxYear = atoi(env);
746 _mesa_debug(ctx, "Note: limiting GL extensions to %u or earlier\n",
747 maxYear);
748 }
749 }
750
751 /* Compute length of the extension string. */
752 count = 0;
753 for (i = extension_table; i->name != 0; ++i) {
754 if (base[i->offset] &&
755 i->year <= maxYear &&
756 (i->api_set & api_set)) {
757 length += strlen(i->name) + 1; /* +1 for space */
758 ++count;
759 }
760 }
761 if (extra_extensions != NULL)
762 length += 1 + strlen(extra_extensions); /* +1 for space */
763
764 exts = calloc(ALIGN(length + 1, 4), sizeof(char));
765 if (exts == NULL) {
766 free(extra_extensions);
767 return NULL;
768 }
769
770 extension_indices = malloc(count * sizeof(extension_index));
771 if (extension_indices == NULL) {
772 free(exts);
773 free(extra_extensions);
774 return NULL;
775 }
776
777 /* Sort extensions in chronological order because certain old applications
778 * (e.g., Quake3 demo) store the extension list in a static size buffer so
779 * chronologically order ensure that the extensions that such applications
780 * expect will fit into that buffer.
781 */
782 j = 0;
783 for (i = extension_table; i->name != 0; ++i) {
784 if (base[i->offset] &&
785 i->year <= maxYear &&
786 (i->api_set & api_set)) {
787 extension_indices[j++] = i - extension_table;
788 }
789 }
790 assert(j == count);
791 qsort(extension_indices, count,
792 sizeof *extension_indices, extension_compare);
793
794 /* Build the extension string.*/
795 for (j = 0; j < count; ++j) {
796 i = &extension_table[extension_indices[j]];
797 assert(base[i->offset] && (i->api_set & api_set));
798 strcat(exts, i->name);
799 strcat(exts, " ");
800 }
801 free(extension_indices);
802 if (extra_extensions != 0) {
803 strcat(exts, extra_extensions);
804 free(extra_extensions);
805 }
806
807 return (GLubyte *) exts;
808 }
809
810 /**
811 * Return number of enabled extensions.
812 */
813 GLuint
814 _mesa_get_extension_count(struct gl_context *ctx)
815 {
816 GLboolean *base;
817 const struct extension *i;
818 unsigned api_set = (1 << ctx->API);
819 if (_mesa_is_gles3(ctx))
820 api_set |= ES3;
821
822 /* only count once */
823 if (ctx->Extensions.Count != 0)
824 return ctx->Extensions.Count;
825
826 base = (GLboolean *) &ctx->Extensions;
827 for (i = extension_table; i->name != 0; ++i) {
828 if (base[i->offset] && (i->api_set & api_set)) {
829 ctx->Extensions.Count++;
830 }
831 }
832 return ctx->Extensions.Count;
833 }
834
835 /**
836 * Return name of i-th enabled extension
837 */
838 const GLubyte *
839 _mesa_get_enabled_extension(struct gl_context *ctx, GLuint index)
840 {
841 const GLboolean *base;
842 size_t n;
843 const struct extension *i;
844 unsigned api_set = (1 << ctx->API);
845 if (_mesa_is_gles3(ctx))
846 api_set |= ES3;
847
848 base = (GLboolean*) &ctx->Extensions;
849 n = 0;
850 for (i = extension_table; i->name != 0; ++i) {
851 if (base[i->offset] && (i->api_set & api_set)) {
852 if (n == index)
853 return (const GLubyte*) i->name;
854 else
855 ++n;
856 }
857 }
858
859 return NULL;
860 }