OSDN Git Service

gallium: implement get_device_vendor() for existing drivers
[android-x86/external-mesa.git] / src / gallium / drivers / vc4 / vc4_screen.c
1 /*
2  * Copyright © 2014 Broadcom
3  * Copyright (C) 2012 Rob Clark <robclark@freedesktop.org>
4  *
5  * Permission is hereby granted, free of charge, to any person obtaining a
6  * copy of this software and associated documentation files (the "Software"),
7  * to deal in the Software without restriction, including without limitation
8  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
9  * and/or sell copies of the Software, and to permit persons to whom the
10  * Software is furnished to do so, subject to the following conditions:
11  *
12  * The above copyright notice and this permission notice (including the next
13  * paragraph) shall be included in all copies or substantial portions of the
14  * Software.
15  *
16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
19  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
22  * IN THE SOFTWARE.
23  */
24
25 #include "os/os_misc.h"
26 #include "pipe/p_defines.h"
27 #include "pipe/p_screen.h"
28 #include "pipe/p_state.h"
29
30 #include "util/u_debug.h"
31 #include "util/u_memory.h"
32 #include "util/u_format.h"
33 #include "util/ralloc.h"
34
35 #include "vc4_screen.h"
36 #include "vc4_context.h"
37 #include "vc4_resource.h"
38
39 static const struct debug_named_value debug_options[] = {
40         { "cl",       VC4_DEBUG_CL,
41           "Dump command list during creation" },
42         { "qpu",      VC4_DEBUG_QPU,
43           "Dump generated QPU instructions" },
44         { "qir",      VC4_DEBUG_QIR,
45           "Dump QPU IR during program compile" },
46         { "tgsi",     VC4_DEBUG_TGSI,
47           "Dump TGSI during program compile" },
48         { "shaderdb", VC4_DEBUG_SHADERDB,
49           "Dump program compile information for shader-db analysis" },
50         { "perf",     VC4_DEBUG_PERF,
51           "Print during performance-related events" },
52         { "norast",   VC4_DEBUG_NORAST,
53           "Skip actual hardware execution of commands" },
54         { "always_flush", VC4_DEBUG_ALWAYS_FLUSH,
55           "Flush after each draw call" },
56         { "always_sync", VC4_DEBUG_ALWAYS_SYNC,
57           "Wait for finish after each flush" },
58         { NULL }
59 };
60
61 DEBUG_GET_ONCE_FLAGS_OPTION(vc4_debug, "VC4_DEBUG", debug_options, 0)
62 uint32_t vc4_debug;
63
64 static const char *
65 vc4_screen_get_name(struct pipe_screen *pscreen)
66 {
67         return "VC4";
68 }
69
70 static const char *
71 vc4_screen_get_vendor(struct pipe_screen *pscreen)
72 {
73         return "Broadcom";
74 }
75
76 static void
77 vc4_screen_destroy(struct pipe_screen *pscreen)
78 {
79         vc4_bufmgr_destroy(pscreen);
80         ralloc_free(pscreen);
81 }
82
83 static int
84 vc4_screen_get_param(struct pipe_screen *pscreen, enum pipe_cap param)
85 {
86         switch (param) {
87                 /* Supported features (boolean caps). */
88         case PIPE_CAP_VERTEX_COLOR_UNCLAMPED:
89         case PIPE_CAP_BUFFER_MAP_PERSISTENT_COHERENT:
90         case PIPE_CAP_NPOT_TEXTURES:
91         case PIPE_CAP_USER_CONSTANT_BUFFERS:
92         case PIPE_CAP_TEXTURE_SHADOW_MAP:
93         case PIPE_CAP_BLEND_EQUATION_SEPARATE:
94         case PIPE_CAP_TWO_SIDED_STENCIL:
95                 return 1;
96
97                 /* lying for GL 2.0 */
98         case PIPE_CAP_OCCLUSION_QUERY:
99         case PIPE_CAP_POINT_SPRITE:
100                 return 1;
101
102         case PIPE_CAP_CONSTANT_BUFFER_OFFSET_ALIGNMENT:
103                 return 256;
104
105         case PIPE_CAP_GLSL_FEATURE_LEVEL:
106                 return 120;
107
108         case PIPE_CAP_MAX_VIEWPORTS:
109                 return 1;
110
111         case PIPE_CAP_TGSI_FS_COORD_ORIGIN_UPPER_LEFT:
112         case PIPE_CAP_TGSI_FS_COORD_PIXEL_CENTER_HALF_INTEGER:
113                 return 1;
114
115         case PIPE_CAP_MIXED_FRAMEBUFFER_SIZES:
116                 return 1;
117
118                 /* Unsupported features. */
119         case PIPE_CAP_ANISOTROPIC_FILTER:
120         case PIPE_CAP_TEXTURE_BUFFER_OBJECTS:
121         case PIPE_CAP_CUBE_MAP_ARRAY:
122         case PIPE_CAP_TEXTURE_MIRROR_CLAMP:
123         case PIPE_CAP_TEXTURE_SWIZZLE:
124         case PIPE_CAP_VERTEX_ELEMENT_INSTANCE_DIVISOR:
125         case PIPE_CAP_MIXED_COLORBUFFER_FORMATS:
126         case PIPE_CAP_SEAMLESS_CUBE_MAP:
127         case PIPE_CAP_QUADS_FOLLOW_PROVOKING_VERTEX_CONVENTION:
128         case PIPE_CAP_TGSI_INSTANCEID:
129         case PIPE_CAP_VERTEX_BUFFER_OFFSET_4BYTE_ALIGNED_ONLY:
130         case PIPE_CAP_VERTEX_BUFFER_STRIDE_4BYTE_ALIGNED_ONLY:
131         case PIPE_CAP_VERTEX_ELEMENT_SRC_OFFSET_4BYTE_ALIGNED_ONLY:
132         case PIPE_CAP_COMPUTE:
133         case PIPE_CAP_START_INSTANCE:
134         case PIPE_CAP_MAX_DUAL_SOURCE_RENDER_TARGETS:
135         case PIPE_CAP_SHADER_STENCIL_EXPORT:
136         case PIPE_CAP_TGSI_TEXCOORD:
137         case PIPE_CAP_PREFER_BLIT_BASED_TEXTURE_TRANSFER:
138         case PIPE_CAP_CONDITIONAL_RENDER:
139         case PIPE_CAP_PRIMITIVE_RESTART:
140         case PIPE_CAP_TEXTURE_MULTISAMPLE:
141         case PIPE_CAP_TEXTURE_BARRIER:
142         case PIPE_CAP_SM3:
143         case PIPE_CAP_INDEP_BLEND_ENABLE:
144         case PIPE_CAP_INDEP_BLEND_FUNC:
145         case PIPE_CAP_DEPTH_CLIP_DISABLE:
146         case PIPE_CAP_SEAMLESS_CUBE_MAP_PER_TEXTURE:
147         case PIPE_CAP_TGSI_FS_COORD_ORIGIN_LOWER_LEFT:
148         case PIPE_CAP_TGSI_FS_COORD_PIXEL_CENTER_INTEGER:
149         case PIPE_CAP_TGSI_CAN_COMPACT_CONSTANTS:
150         case PIPE_CAP_FRAGMENT_COLOR_CLAMPED:
151         case PIPE_CAP_VERTEX_COLOR_CLAMPED:
152         case PIPE_CAP_USER_VERTEX_BUFFERS:
153         case PIPE_CAP_USER_INDEX_BUFFERS:
154         case PIPE_CAP_QUERY_PIPELINE_STATISTICS:
155         case PIPE_CAP_TEXTURE_BORDER_COLOR_QUIRK:
156         case PIPE_CAP_TGSI_VS_LAYER_VIEWPORT:
157         case PIPE_CAP_MAX_TEXTURE_GATHER_COMPONENTS:
158         case PIPE_CAP_TEXTURE_GATHER_SM5:
159         case PIPE_CAP_FAKE_SW_MSAA:
160         case PIPE_CAP_TEXTURE_QUERY_LOD:
161         case PIPE_CAP_SAMPLE_SHADING:
162         case PIPE_CAP_TEXTURE_GATHER_OFFSETS:
163         case PIPE_CAP_MAX_TEXTURE_GATHER_OFFSET:
164         case PIPE_CAP_TGSI_VS_WINDOW_SPACE_POSITION:
165         case PIPE_CAP_MAX_TEXEL_OFFSET:
166         case PIPE_CAP_MAX_VERTEX_STREAMS:
167         case PIPE_CAP_DRAW_INDIRECT:
168         case PIPE_CAP_TGSI_FS_FINE_DERIVATIVE:
169         case PIPE_CAP_CONDITIONAL_RENDER_INVERTED:
170         case PIPE_CAP_SAMPLER_VIEW_TARGET:
171         case PIPE_CAP_CLIP_HALFZ:
172         case PIPE_CAP_VERTEXID_NOBASE:
173         case PIPE_CAP_POLYGON_OFFSET_CLAMP:
174         case PIPE_CAP_MULTISAMPLE_Z_RESOLVE:
175         case PIPE_CAP_RESOURCE_FROM_USER_MEMORY:
176                 return 0;
177
178                 /* Stream output. */
179         case PIPE_CAP_MAX_STREAM_OUTPUT_BUFFERS:
180         case PIPE_CAP_STREAM_OUTPUT_PAUSE_RESUME:
181         case PIPE_CAP_MAX_STREAM_OUTPUT_SEPARATE_COMPONENTS:
182         case PIPE_CAP_MAX_STREAM_OUTPUT_INTERLEAVED_COMPONENTS:
183                 return 0;
184
185                 /* Geometry shader output, unsupported. */
186         case PIPE_CAP_MAX_GEOMETRY_OUTPUT_VERTICES:
187         case PIPE_CAP_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS:
188                 return 0;
189
190                 /* Texturing. */
191         case PIPE_CAP_MAX_TEXTURE_2D_LEVELS:
192         case PIPE_CAP_MAX_TEXTURE_CUBE_LEVELS:
193                 return VC4_MAX_MIP_LEVELS;
194         case PIPE_CAP_MAX_TEXTURE_3D_LEVELS:
195                 /* Note: Not supported in hardware, just faking it. */
196                 return 5;
197         case PIPE_CAP_MAX_TEXTURE_ARRAY_LAYERS:
198                 return 0;
199
200                 /* Render targets. */
201         case PIPE_CAP_MAX_RENDER_TARGETS:
202                 return 1;
203
204                 /* Queries. */
205         case PIPE_CAP_QUERY_TIME_ELAPSED:
206         case PIPE_CAP_QUERY_TIMESTAMP:
207                 return 0;
208
209         case PIPE_CAP_MIN_TEXTURE_GATHER_OFFSET:
210         case PIPE_CAP_MIN_TEXEL_OFFSET:
211                 return 0;
212
213         case PIPE_CAP_MAX_VERTEX_ATTRIB_STRIDE:
214                 return 2048;
215
216         case PIPE_CAP_ENDIANNESS:
217                 return PIPE_ENDIAN_LITTLE;
218
219         case PIPE_CAP_MIN_MAP_BUFFER_ALIGNMENT:
220                 return 64;
221
222         case PIPE_CAP_VENDOR_ID:
223                 return 0x14E4;
224         case PIPE_CAP_DEVICE_ID:
225                 return 0xFFFFFFFF;
226         case PIPE_CAP_ACCELERATED:
227                 return 1;
228         case PIPE_CAP_VIDEO_MEMORY: {
229                 uint64_t system_memory;
230
231                 if (!os_get_total_physical_memory(&system_memory))
232                         return 0;
233
234                 return (int)(system_memory >> 20);
235         }
236         case PIPE_CAP_UMA:
237                 return 1;
238
239         default:
240                 fprintf(stderr, "unknown param %d\n", param);
241                 return 0;
242         }
243 }
244
245 static float
246 vc4_screen_get_paramf(struct pipe_screen *pscreen, enum pipe_capf param)
247 {
248         switch (param) {
249         case PIPE_CAPF_MAX_LINE_WIDTH:
250         case PIPE_CAPF_MAX_LINE_WIDTH_AA:
251                 return 32;
252
253         case PIPE_CAPF_MAX_POINT_WIDTH:
254         case PIPE_CAPF_MAX_POINT_WIDTH_AA:
255                 return 512.0f;
256
257         case PIPE_CAPF_MAX_TEXTURE_ANISOTROPY:
258                 return 0.0f;
259         case PIPE_CAPF_MAX_TEXTURE_LOD_BIAS:
260                 return 0.0f;
261         case PIPE_CAPF_GUARD_BAND_LEFT:
262         case PIPE_CAPF_GUARD_BAND_TOP:
263         case PIPE_CAPF_GUARD_BAND_RIGHT:
264         case PIPE_CAPF_GUARD_BAND_BOTTOM:
265                 return 0.0f;
266         default:
267                 fprintf(stderr, "unknown paramf %d\n", param);
268                 return 0;
269         }
270 }
271
272 static int
273 vc4_screen_get_shader_param(struct pipe_screen *pscreen, unsigned shader,
274                            enum pipe_shader_cap param)
275 {
276         if (shader != PIPE_SHADER_VERTEX &&
277             shader != PIPE_SHADER_FRAGMENT) {
278                 return 0;
279         }
280
281         /* this is probably not totally correct.. but it's a start: */
282         switch (param) {
283         case PIPE_SHADER_CAP_MAX_INSTRUCTIONS:
284         case PIPE_SHADER_CAP_MAX_ALU_INSTRUCTIONS:
285         case PIPE_SHADER_CAP_MAX_TEX_INSTRUCTIONS:
286         case PIPE_SHADER_CAP_MAX_TEX_INDIRECTIONS:
287                 return 16384;
288         case PIPE_SHADER_CAP_MAX_CONTROL_FLOW_DEPTH:
289                 return 0;
290         case PIPE_SHADER_CAP_MAX_INPUTS:
291                 if (shader == PIPE_SHADER_FRAGMENT)
292                         return 8;
293                 else
294                         return 16;
295         case PIPE_SHADER_CAP_MAX_OUTPUTS:
296                 return shader == PIPE_SHADER_FRAGMENT ? 1 : 8;
297         case PIPE_SHADER_CAP_MAX_TEMPS:
298                 return 256; /* GL_MAX_PROGRAM_TEMPORARIES_ARB */
299         case PIPE_SHADER_CAP_MAX_CONST_BUFFER_SIZE:
300                 return 16 * 1024 * sizeof(float);
301         case PIPE_SHADER_CAP_MAX_CONST_BUFFERS:
302                 return 1;
303         case PIPE_SHADER_CAP_MAX_PREDS:
304                 return 0; /* nothing uses this */
305         case PIPE_SHADER_CAP_TGSI_CONT_SUPPORTED:
306                 return 0;
307         case PIPE_SHADER_CAP_INDIRECT_INPUT_ADDR:
308         case PIPE_SHADER_CAP_INDIRECT_OUTPUT_ADDR:
309         case PIPE_SHADER_CAP_INDIRECT_TEMP_ADDR:
310                 return 0;
311         case PIPE_SHADER_CAP_INDIRECT_CONST_ADDR:
312                 return 1;
313         case PIPE_SHADER_CAP_SUBROUTINES:
314                 return 0;
315         case PIPE_SHADER_CAP_TGSI_SQRT_SUPPORTED:
316                 return 0;
317         case PIPE_SHADER_CAP_INTEGERS:
318                 return 1;
319         case PIPE_SHADER_CAP_DOUBLES:
320         case PIPE_SHADER_CAP_TGSI_DROUND_SUPPORTED:
321         case PIPE_SHADER_CAP_TGSI_DFRACEXP_DLDEXP_SUPPORTED:
322         case PIPE_SHADER_CAP_TGSI_FMA_SUPPORTED:
323                 return 0;
324         case PIPE_SHADER_CAP_MAX_TEXTURE_SAMPLERS:
325         case PIPE_SHADER_CAP_MAX_SAMPLER_VIEWS:
326                 return VC4_MAX_TEXTURE_SAMPLERS;
327         case PIPE_SHADER_CAP_PREFERRED_IR:
328                 return PIPE_SHADER_IR_TGSI;
329         default:
330                 fprintf(stderr, "unknown shader param %d\n", param);
331                 return 0;
332         }
333         return 0;
334 }
335
336 static boolean
337 vc4_screen_is_format_supported(struct pipe_screen *pscreen,
338                                enum pipe_format format,
339                                enum pipe_texture_target target,
340                                unsigned sample_count,
341                                unsigned usage)
342 {
343         unsigned retval = 0;
344
345         if ((target >= PIPE_MAX_TEXTURE_TYPES) ||
346             (sample_count > 1) ||
347             !util_format_is_supported(format, usage)) {
348                 return FALSE;
349         }
350
351         if (usage & PIPE_BIND_VERTEX_BUFFER) {
352                 switch (format) {
353                 case PIPE_FORMAT_R32G32B32A32_FLOAT:
354                 case PIPE_FORMAT_R32G32B32_FLOAT:
355                 case PIPE_FORMAT_R32G32_FLOAT:
356                 case PIPE_FORMAT_R32_FLOAT:
357                 case PIPE_FORMAT_R32G32B32A32_SNORM:
358                 case PIPE_FORMAT_R32G32B32_SNORM:
359                 case PIPE_FORMAT_R32G32_SNORM:
360                 case PIPE_FORMAT_R32_SNORM:
361                 case PIPE_FORMAT_R32G32B32A32_SSCALED:
362                 case PIPE_FORMAT_R32G32B32_SSCALED:
363                 case PIPE_FORMAT_R32G32_SSCALED:
364                 case PIPE_FORMAT_R32_SSCALED:
365                 case PIPE_FORMAT_R16G16B16A16_UNORM:
366                 case PIPE_FORMAT_R16G16B16_UNORM:
367                 case PIPE_FORMAT_R16G16_UNORM:
368                 case PIPE_FORMAT_R16_UNORM:
369                 case PIPE_FORMAT_R16G16B16A16_SNORM:
370                 case PIPE_FORMAT_R16G16B16_SNORM:
371                 case PIPE_FORMAT_R16G16_SNORM:
372                 case PIPE_FORMAT_R16_SNORM:
373                 case PIPE_FORMAT_R16G16B16A16_USCALED:
374                 case PIPE_FORMAT_R16G16B16_USCALED:
375                 case PIPE_FORMAT_R16G16_USCALED:
376                 case PIPE_FORMAT_R16_USCALED:
377                 case PIPE_FORMAT_R16G16B16A16_SSCALED:
378                 case PIPE_FORMAT_R16G16B16_SSCALED:
379                 case PIPE_FORMAT_R16G16_SSCALED:
380                 case PIPE_FORMAT_R16_SSCALED:
381                 case PIPE_FORMAT_R8G8B8A8_UNORM:
382                 case PIPE_FORMAT_R8G8B8_UNORM:
383                 case PIPE_FORMAT_R8G8_UNORM:
384                 case PIPE_FORMAT_R8_UNORM:
385                 case PIPE_FORMAT_R8G8B8A8_SNORM:
386                 case PIPE_FORMAT_R8G8B8_SNORM:
387                 case PIPE_FORMAT_R8G8_SNORM:
388                 case PIPE_FORMAT_R8_SNORM:
389                 case PIPE_FORMAT_R8G8B8A8_USCALED:
390                 case PIPE_FORMAT_R8G8B8_USCALED:
391                 case PIPE_FORMAT_R8G8_USCALED:
392                 case PIPE_FORMAT_R8_USCALED:
393                 case PIPE_FORMAT_R8G8B8A8_SSCALED:
394                 case PIPE_FORMAT_R8G8B8_SSCALED:
395                 case PIPE_FORMAT_R8G8_SSCALED:
396                 case PIPE_FORMAT_R8_SSCALED:
397                         retval |= PIPE_BIND_VERTEX_BUFFER;
398                         break;
399                 default:
400                         break;
401                 }
402         }
403
404         if ((usage & PIPE_BIND_RENDER_TARGET) &&
405             vc4_rt_format_supported(format)) {
406                 retval |= PIPE_BIND_RENDER_TARGET;
407         }
408
409         if ((usage & PIPE_BIND_SAMPLER_VIEW) &&
410             (vc4_tex_format_supported(format))) {
411                 retval |= PIPE_BIND_SAMPLER_VIEW;
412         }
413
414         if ((usage & PIPE_BIND_DEPTH_STENCIL) &&
415             (format == PIPE_FORMAT_S8_UINT_Z24_UNORM ||
416              format == PIPE_FORMAT_X8Z24_UNORM)) {
417                 retval |= PIPE_BIND_DEPTH_STENCIL;
418         }
419
420         if ((usage & PIPE_BIND_INDEX_BUFFER) &&
421             (format == PIPE_FORMAT_I8_UINT ||
422              format == PIPE_FORMAT_I16_UINT)) {
423                 retval |= PIPE_BIND_INDEX_BUFFER;
424         }
425
426         if (usage & PIPE_BIND_TRANSFER_READ)
427                 retval |= PIPE_BIND_TRANSFER_READ;
428         if (usage & PIPE_BIND_TRANSFER_WRITE)
429                 retval |= PIPE_BIND_TRANSFER_WRITE;
430
431 #if 0
432         if (retval != usage) {
433                 fprintf(stderr,
434                         "not supported: format=%s, target=%d, sample_count=%d, "
435                         "usage=0x%x, retval=0x%x\n", util_format_name(format),
436                         target, sample_count, usage, retval);
437         }
438 #endif
439
440         return retval == usage;
441 }
442
443 struct pipe_screen *
444 vc4_screen_create(int fd)
445 {
446         struct vc4_screen *screen = rzalloc(NULL, struct vc4_screen);
447         struct pipe_screen *pscreen;
448
449         pscreen = &screen->base;
450
451         pscreen->destroy = vc4_screen_destroy;
452         pscreen->get_param = vc4_screen_get_param;
453         pscreen->get_paramf = vc4_screen_get_paramf;
454         pscreen->get_shader_param = vc4_screen_get_shader_param;
455         pscreen->context_create = vc4_context_create;
456         pscreen->is_format_supported = vc4_screen_is_format_supported;
457
458         screen->fd = fd;
459         make_empty_list(&screen->bo_cache.time_list);
460
461         vc4_fence_init(screen);
462
463         vc4_debug = debug_get_option_vc4_debug();
464         if (vc4_debug & VC4_DEBUG_SHADERDB)
465                 vc4_debug |= VC4_DEBUG_NORAST;
466
467 #if USE_VC4_SIMULATOR
468         vc4_simulator_init(screen);
469 #endif
470
471         vc4_resource_screen_init(pscreen);
472
473         pscreen->get_name = vc4_screen_get_name;
474         pscreen->get_vendor = vc4_screen_get_vendor;
475         pscreen->get_device_vendor = vc4_screen_get_vendor;
476
477         return pscreen;
478 }
479
480 boolean
481 vc4_screen_bo_get_handle(struct pipe_screen *pscreen,
482                          struct vc4_bo *bo,
483                          unsigned stride,
484                          struct winsys_handle *whandle)
485 {
486         whandle->stride = stride;
487
488         switch (whandle->type) {
489         case DRM_API_HANDLE_TYPE_SHARED:
490                 return vc4_bo_flink(bo, &whandle->handle);
491         case DRM_API_HANDLE_TYPE_KMS:
492                 whandle->handle = bo->handle;
493                 return TRUE;
494         case DRM_API_HANDLE_TYPE_FD:
495                 whandle->handle = vc4_bo_get_dmabuf(bo);
496                 return whandle->handle != -1;
497         }
498
499         return FALSE;
500 }
501
502 struct vc4_bo *
503 vc4_screen_bo_from_handle(struct pipe_screen *pscreen,
504                           struct winsys_handle *whandle)
505 {
506         struct vc4_screen *screen = vc4_screen(pscreen);
507
508         switch (whandle->type) {
509         case DRM_API_HANDLE_TYPE_SHARED:
510                 return vc4_bo_open_name(screen, whandle->handle, whandle->stride);
511         case DRM_API_HANDLE_TYPE_FD:
512                 return vc4_bo_open_dmabuf(screen, whandle->handle, whandle->stride);
513         default:
514                 fprintf(stderr,
515                         "Attempt to import unsupported handle type %d\n",
516                         whandle->type);
517                 return NULL;
518         }
519 }