src/mesa/main/teximage.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  * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  21  * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23  */
  24
  25
  26 /**
  27  * \file teximage.c
  28  * Texture image-related functions.
  29  */
  30
  31 #include <stdbool.h>
  32 #include "glheader.h"
  33 #include "bufferobj.h"
  34 #include "context.h"
  35 #include "enums.h"
  36 #include "fbobject.h"
  37 #include "framebuffer.h"
  38 #include "hash.h"
  39 #include "image.h"
  40 #include "imports.h"
  41 #include "macros.h"
  42 #include "mfeatures.h"
  43 #include "state.h"
  44 #include "texcompress.h"
  45 #include "teximage.h"
  46 #include "texobj.h"
  47 #include "texstate.h"
  48 #include "texpal.h"
  49 #include "mtypes.h"
  50 #include "glformats.h"
  51
  52
  53 /* Inexplicably, GL_HALF_FLOAT_OES has a different value than GL_HALF_FLOAT.
  54  */
  55 #ifndef GL_HALF_FLOAT_OES
  56 #define GL_HALF_FLOAT_OES 0x8D61
  57 #endif
  58
  59 /**
  60  * State changes which we care about for glCopyTex[Sub]Image() calls.
  61  * In particular, we care about pixel transfer state and buffer state
  62  * (such as glReadBuffer to make sure we read from the right renderbuffer).
  63  */
  64 #define NEW_COPY_TEX_STATE (_NEW_BUFFERS | _NEW_PIXEL)
  65
  66
  67
  68 /**
  69  * Return the simple base format for a given internal texture format.
  70  * For example, given GL_LUMINANCE12_ALPHA4, return GL_LUMINANCE_ALPHA.
  71  *
  72  * \param ctx GL context.
  73  * \param internalFormat the internal texture format token or 1, 2, 3, or 4.
  74  *
  75  * \return the corresponding \u base internal format (GL_ALPHA, GL_LUMINANCE,
  76  * GL_LUMANCE_ALPHA, GL_INTENSITY, GL_RGB, or GL_RGBA), or -1 if invalid enum.
  77  *
  78  * This is the format which is used during texture application (i.e. the
  79  * texture format and env mode determine the arithmetic used.
  80  */
  81 GLint
  82 _mesa_base_tex_format( struct gl_context *ctx, GLint internalFormat )
  83 {
  84    switch (internalFormat) {
  85       case GL_ALPHA:
  86       case GL_ALPHA4:
  87       case GL_ALPHA8:
  88       case GL_ALPHA12:
  89       case GL_ALPHA16:
  90          return GL_ALPHA;
  91       case 1:
  92       case GL_LUMINANCE:
  93       case GL_LUMINANCE4:
  94       case GL_LUMINANCE8:
  95       case GL_LUMINANCE12:
  96       case GL_LUMINANCE16:
  97          return GL_LUMINANCE;
  98       case 2:
  99       case GL_LUMINANCE_ALPHA:
 100       case GL_LUMINANCE4_ALPHA4:
 101       case GL_LUMINANCE6_ALPHA2:
 102       case GL_LUMINANCE8_ALPHA8:
 103       case GL_LUMINANCE12_ALPHA4:
 104       case GL_LUMINANCE12_ALPHA12:
 105       case GL_LUMINANCE16_ALPHA16:
 106          return GL_LUMINANCE_ALPHA;
 107       case GL_INTENSITY:
 108       case GL_INTENSITY4:
 109       case GL_INTENSITY8:
 110       case GL_INTENSITY12:
 111       case GL_INTENSITY16:
 112          return GL_INTENSITY;
 113       case 3:
 114       case GL_RGB:
 115       case GL_R3_G3_B2:
 116       case GL_RGB4:
 117       case GL_RGB5:
 118       case GL_RGB8:
 119       case GL_RGB10:
 120       case GL_RGB12:
 121       case GL_RGB16:
 122          return GL_RGB;
 123       case 4:
 124       case GL_RGBA:
 125       case GL_RGBA2:
 126       case GL_RGBA4:
 127       case GL_RGB5_A1:
 128       case GL_RGBA8:
 129       case GL_RGB10_A2:
 130       case GL_RGBA12:
 131       case GL_RGBA16:
 132          return GL_RGBA;
 133       default:
 134          ; /* fallthrough */
 135    }
 136
 137    /* GL_BGRA can be an internal format *only* in OpenGL ES (1.x or 2.0).
 138     */
 139    if (_mesa_is_gles(ctx)) {
 140       switch (internalFormat) {
 141          case GL_BGRA:
 142             return GL_RGBA;
 143          default:
 144             ; /* fallthrough */
 145       }
 146    }
 147
 148    if (ctx->Extensions.ARB_ES2_compatibility) {
 149       switch (internalFormat) {
 150          case GL_RGB565:
 151             return GL_RGB;
 152          default:
 153             ; /* fallthrough */
 154       }
 155    }
 156
 157    if (ctx->Extensions.ARB_depth_texture) {
 158       switch (internalFormat) {
 159          case GL_DEPTH_COMPONENT:
 160          case GL_DEPTH_COMPONENT16:
 161          case GL_DEPTH_COMPONENT24:
 162          case GL_DEPTH_COMPONENT32:
 163             return GL_DEPTH_COMPONENT;
 164          default:
 165             ; /* fallthrough */
 166       }
 167    }
 168
 169    switch (internalFormat) {
 170    case GL_COMPRESSED_ALPHA:
 171       return GL_ALPHA;
 172    case GL_COMPRESSED_LUMINANCE:
 173       return GL_LUMINANCE;
 174    case GL_COMPRESSED_LUMINANCE_ALPHA:
 175       return GL_LUMINANCE_ALPHA;
 176    case GL_COMPRESSED_INTENSITY:
 177       return GL_INTENSITY;
 178    case GL_COMPRESSED_RGB:
 179       return GL_RGB;
 180    case GL_COMPRESSED_RGBA:
 181       return GL_RGBA;
 182    default:
 183       ; /* fallthrough */
 184    }
 185
 186    if (ctx->Extensions.TDFX_texture_compression_FXT1) {
 187       switch (internalFormat) {
 188          case GL_COMPRESSED_RGB_FXT1_3DFX:
 189             return GL_RGB;
 190          case GL_COMPRESSED_RGBA_FXT1_3DFX:
 191             return GL_RGBA;
 192          default:
 193             ; /* fallthrough */
 194       }
 195    }
 196
 197    if (ctx->Extensions.EXT_texture_compression_s3tc) {
 198       switch (internalFormat) {
 199          case GL_COMPRESSED_RGB_S3TC_DXT1_EXT:
 200             return GL_RGB;
 201          case GL_COMPRESSED_RGBA_S3TC_DXT1_EXT:
 202          case GL_COMPRESSED_RGBA_S3TC_DXT3_EXT:
 203          case GL_COMPRESSED_RGBA_S3TC_DXT5_EXT:
 204             return GL_RGBA;
 205          default:
 206             ; /* fallthrough */
 207       }
 208    }
 209
 210    if (ctx->Extensions.S3_s3tc) {
 211       switch (internalFormat) {
 212          case GL_RGB_S3TC:
 213          case GL_RGB4_S3TC:
 214             return GL_RGB;
 215          case GL_RGBA_S3TC:
 216          case GL_RGBA4_S3TC:
 217             return GL_RGBA;
 218          default:
 219             ; /* fallthrough */
 220       }
 221    }
 222
 223    if (ctx->Extensions.MESA_ycbcr_texture) {
 224       if (internalFormat == GL_YCBCR_MESA)
 225          return GL_YCBCR_MESA;
 226    }
 227
 228    if (ctx->Extensions.ARB_texture_float) {
 229       switch (internalFormat) {
 230          case GL_ALPHA16F_ARB:
 231          case GL_ALPHA32F_ARB:
 232             return GL_ALPHA;
 233          case GL_RGBA16F_ARB:
 234          case GL_RGBA32F_ARB:
 235             return GL_RGBA;
 236          case GL_RGB16F_ARB:
 237          case GL_RGB32F_ARB:
 238             return GL_RGB;
 239          case GL_INTENSITY16F_ARB:
 240          case GL_INTENSITY32F_ARB:
 241             return GL_INTENSITY;
 242          case GL_LUMINANCE16F_ARB:
 243          case GL_LUMINANCE32F_ARB:
 244             return GL_LUMINANCE;
 245          case GL_LUMINANCE_ALPHA16F_ARB:
 246          case GL_LUMINANCE_ALPHA32F_ARB:
 247             return GL_LUMINANCE_ALPHA;
 248          default:
 249             ; /* fallthrough */
 250       }
 251    }
 252
 253    if (ctx->Extensions.ATI_envmap_bumpmap) {
 254       switch (internalFormat) {
 255          case GL_DUDV_ATI:
 256          case GL_DU8DV8_ATI:
 257             return GL_DUDV_ATI;
 258          default:
 259             ; /* fallthrough */
 260       }
 261    }
 262
 263    if (ctx->Extensions.EXT_texture_snorm) {
 264       switch (internalFormat) {
 265          case GL_RED_SNORM:
 266          case GL_R8_SNORM:
 267          case GL_R16_SNORM:
 268             return GL_RED;
 269          case GL_RG_SNORM:
 270          case GL_RG8_SNORM:
 271          case GL_RG16_SNORM:
 272             return GL_RG;
 273          case GL_RGB_SNORM:
 274          case GL_RGB8_SNORM:
 275          case GL_RGB16_SNORM:
 276             return GL_RGB;
 277          case GL_RGBA_SNORM:
 278          case GL_RGBA8_SNORM:
 279          case GL_RGBA16_SNORM:
 280             return GL_RGBA;
 281          case GL_ALPHA_SNORM:
 282          case GL_ALPHA8_SNORM:
 283          case GL_ALPHA16_SNORM:
 284             return GL_ALPHA;
 285          case GL_LUMINANCE_SNORM:
 286          case GL_LUMINANCE8_SNORM:
 287          case GL_LUMINANCE16_SNORM:
 288             return GL_LUMINANCE;
 289          case GL_LUMINANCE_ALPHA_SNORM:
 290          case GL_LUMINANCE8_ALPHA8_SNORM:
 291          case GL_LUMINANCE16_ALPHA16_SNORM:
 292             return GL_LUMINANCE_ALPHA;
 293          case GL_INTENSITY_SNORM:
 294          case GL_INTENSITY8_SNORM:
 295          case GL_INTENSITY16_SNORM:
 296             return GL_INTENSITY;
 297          default:
 298             ; /* fallthrough */
 299       }
 300    }
 301
 302    if (ctx->Extensions.EXT_packed_depth_stencil) {
 303       switch (internalFormat) {
 304          case GL_DEPTH_STENCIL_EXT:
 305          case GL_DEPTH24_STENCIL8_EXT:
 306             return GL_DEPTH_STENCIL_EXT;
 307          default:
 308             ; /* fallthrough */
 309       }
 310    }
 311
 312 #if FEATURE_EXT_texture_sRGB
 313    if (ctx->Extensions.EXT_texture_sRGB) {
 314       switch (internalFormat) {
 315       case GL_SRGB_EXT:
 316       case GL_SRGB8_EXT:
 317       case GL_COMPRESSED_SRGB_EXT:
 318       case GL_COMPRESSED_SRGB_S3TC_DXT1_EXT:
 319          return GL_RGB;
 320       case GL_SRGB_ALPHA_EXT:
 321       case GL_SRGB8_ALPHA8_EXT:
 322       case GL_COMPRESSED_SRGB_ALPHA_EXT:
 323       case GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT1_EXT:
 324       case GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT3_EXT:
 325       case GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT5_EXT:
 326          return GL_RGBA;
 327       case GL_SLUMINANCE_ALPHA_EXT:
 328       case GL_SLUMINANCE8_ALPHA8_EXT:
 329       case GL_COMPRESSED_SLUMINANCE_ALPHA_EXT:
 330          return GL_LUMINANCE_ALPHA;
 331       case GL_SLUMINANCE_EXT:
 332       case GL_SLUMINANCE8_EXT:
 333       case GL_COMPRESSED_SLUMINANCE_EXT:
 334          return GL_LUMINANCE;
 335       default:
 336          ; /* fallthrough */
 337       }
 338    }
 339 #endif /* FEATURE_EXT_texture_sRGB */
 340
 341    if (ctx->Version >= 30 ||
 342        ctx->Extensions.EXT_texture_integer) {
 343       switch (internalFormat) {
 344       case GL_RGBA8UI_EXT:
 345       case GL_RGBA16UI_EXT:
 346       case GL_RGBA32UI_EXT:
 347       case GL_RGBA8I_EXT:
 348       case GL_RGBA16I_EXT:
 349       case GL_RGBA32I_EXT:
 350       case GL_RGB10_A2UI:
 351          return GL_RGBA;
 352       case GL_RGB8UI_EXT:
 353       case GL_RGB16UI_EXT:
 354       case GL_RGB32UI_EXT:
 355       case GL_RGB8I_EXT:
 356       case GL_RGB16I_EXT:
 357       case GL_RGB32I_EXT:
 358          return GL_RGB;
 359       }
 360    }
 361
 362    if (ctx->Extensions.EXT_texture_integer) {
 363       switch (internalFormat) {
 364       case GL_ALPHA8UI_EXT:
 365       case GL_ALPHA16UI_EXT:
 366       case GL_ALPHA32UI_EXT:
 367       case GL_ALPHA8I_EXT:
 368       case GL_ALPHA16I_EXT:
 369       case GL_ALPHA32I_EXT:
 370          return GL_ALPHA;
 371       case GL_INTENSITY8UI_EXT:
 372       case GL_INTENSITY16UI_EXT:
 373       case GL_INTENSITY32UI_EXT:
 374       case GL_INTENSITY8I_EXT:
 375       case GL_INTENSITY16I_EXT:
 376       case GL_INTENSITY32I_EXT:
 377          return GL_INTENSITY;
 378       case GL_LUMINANCE8UI_EXT:
 379       case GL_LUMINANCE16UI_EXT:
 380       case GL_LUMINANCE32UI_EXT:
 381       case GL_LUMINANCE8I_EXT:
 382       case GL_LUMINANCE16I_EXT:
 383       case GL_LUMINANCE32I_EXT:
 384          return GL_LUMINANCE;
 385       case GL_LUMINANCE_ALPHA8UI_EXT:
 386       case GL_LUMINANCE_ALPHA16UI_EXT:
 387       case GL_LUMINANCE_ALPHA32UI_EXT:
 388       case GL_LUMINANCE_ALPHA8I_EXT:
 389       case GL_LUMINANCE_ALPHA16I_EXT:
 390       case GL_LUMINANCE_ALPHA32I_EXT:
 391          return GL_LUMINANCE_ALPHA;
 392       default:
 393          ; /* fallthrough */
 394       }
 395    }
 396
 397    if (ctx->Extensions.ARB_texture_rg) {
 398       switch (internalFormat) {
 399       case GL_R16F:
 400          /* R16F depends on both ARB_half_float_pixel and ARB_texture_float.
 401           */
 402          if (!ctx->Extensions.ARB_half_float_pixel)
 403             break;
 404          /* FALLTHROUGH */
 405       case GL_R32F:
 406          if (!ctx->Extensions.ARB_texture_float)
 407             break;
 408          return GL_RED;
 409       case GL_R8I:
 410       case GL_R8UI:
 411       case GL_R16I:
 412       case GL_R16UI:
 413       case GL_R32I:
 414       case GL_R32UI:
 415          if (ctx->Version < 30 && !ctx->Extensions.EXT_texture_integer)
 416             break;
 417          /* FALLTHROUGH */
 418       case GL_R8:
 419       case GL_R16:
 420       case GL_RED:
 421       case GL_COMPRESSED_RED:
 422          return GL_RED;
 423
 424       case GL_RG16F:
 425          /* RG16F depends on both ARB_half_float_pixel and ARB_texture_float.
 426           */
 427          if (!ctx->Extensions.ARB_half_float_pixel)
 428             break;
 429          /* FALLTHROUGH */
 430       case GL_RG32F:
 431          if (!ctx->Extensions.ARB_texture_float)
 432             break;
 433          return GL_RG;
 434       case GL_RG8I:
 435       case GL_RG8UI:
 436       case GL_RG16I:
 437       case GL_RG16UI:
 438       case GL_RG32I:
 439       case GL_RG32UI:
 440          if (ctx->Version < 30 && !ctx->Extensions.EXT_texture_integer)
 441             break;
 442          /* FALLTHROUGH */
 443       case GL_RG:
 444       case GL_RG8:
 445       case GL_RG16:
 446       case GL_COMPRESSED_RG:
 447          return GL_RG;
 448       default:
 449          ; /* fallthrough */
 450       }
 451    }
 452
 453    if (ctx->Extensions.EXT_texture_shared_exponent) {
 454       switch (internalFormat) {
 455       case GL_RGB9_E5_EXT:
 456          return GL_RGB;
 457       default:
 458          ; /* fallthrough */
 459       }
 460    }
 461
 462    if (ctx->Extensions.EXT_packed_float) {
 463       switch (internalFormat) {
 464       case GL_R11F_G11F_B10F_EXT:
 465          return GL_RGB;
 466       default:
 467          ; /* fallthrough */
 468       }
 469    }
 470
 471    if (ctx->Extensions.ARB_depth_buffer_float) {
 472       switch (internalFormat) {
 473       case GL_DEPTH_COMPONENT32F:
 474          return GL_DEPTH_COMPONENT;
 475       case GL_DEPTH32F_STENCIL8:
 476          return GL_DEPTH_STENCIL;
 477       default:
 478          ; /* fallthrough */
 479       }
 480    }
 481
 482    if (ctx->Extensions.ARB_texture_compression_rgtc) {
 483       switch (internalFormat) {
 484       case GL_COMPRESSED_RED_RGTC1:
 485       case GL_COMPRESSED_SIGNED_RED_RGTC1:
 486          return GL_RED;
 487       case GL_COMPRESSED_RG_RGTC2:
 488       case GL_COMPRESSED_SIGNED_RG_RGTC2:
 489          return GL_RG;
 490       default:
 491          ; /* fallthrough */
 492       }
 493    }
 494
 495    if (ctx->Extensions.EXT_texture_compression_latc) {
 496       switch (internalFormat) {
 497       case GL_COMPRESSED_LUMINANCE_LATC1_EXT:
 498       case GL_COMPRESSED_SIGNED_LUMINANCE_LATC1_EXT:
 499          return GL_LUMINANCE;
 500       case GL_COMPRESSED_LUMINANCE_ALPHA_LATC2_EXT:
 501       case GL_COMPRESSED_SIGNED_LUMINANCE_ALPHA_LATC2_EXT:
 502          return GL_LUMINANCE_ALPHA;
 503       default:
 504          ; /* fallthrough */
 505       }
 506    }
 507
 508    if (ctx->Extensions.ATI_texture_compression_3dc) {
 509       switch (internalFormat) {
 510       case GL_COMPRESSED_LUMINANCE_ALPHA_3DC_ATI:
 511          return GL_LUMINANCE_ALPHA;
 512       default:
 513          ; /* fallthrough */
 514       }
 515    }
 516
 517    if (ctx->Extensions.OES_compressed_ETC1_RGB8_texture) {
 518       switch (internalFormat) {
 519       case GL_ETC1_RGB8_OES:
 520          return GL_RGB;
 521       default:
 522          ; /* fallthrough */
 523       }
 524    }
 525
 526    if (ctx->API == API_OPENGLES) {
 527       switch (internalFormat) {
 528       case GL_PALETTE4_RGB8_OES:
 529       case GL_PALETTE4_R5_G6_B5_OES:
 530       case GL_PALETTE8_RGB8_OES:
 531       case GL_PALETTE8_R5_G6_B5_OES:
 532          return GL_RGB;
 533       case GL_PALETTE4_RGBA8_OES:
 534       case GL_PALETTE8_RGB5_A1_OES:
 535       case GL_PALETTE4_RGBA4_OES:
 536       case GL_PALETTE4_RGB5_A1_OES:
 537       case GL_PALETTE8_RGBA8_OES:
 538       case GL_PALETTE8_RGBA4_OES:
 539          return GL_RGBA;
 540       default:
 541          ; /* fallthrough */
 542       }
 543    }
 544
 545    return -1; /* error */
 546 }
 547
 548
 549 /**
 550  * For cube map faces, return a face index in [0,5].
 551  * For other targets return 0;
 552  */
 553 GLuint
 554 _mesa_tex_target_to_face(GLenum target)
 555 {
 556    if (_mesa_is_cube_face(target))
 557       return (GLuint) target - (GLuint) GL_TEXTURE_CUBE_MAP_POSITIVE_X;
 558    else
 559       return 0;
 560 }
 561
 562
 563
 564 /**
 565  * Install gl_texture_image in a gl_texture_object according to the target
 566  * and level parameters.
 567  *
 568  * \param tObj texture object.
 569  * \param target texture target.
 570  * \param level image level.
 571  * \param texImage texture image.
 572  */
 573 static void
 574 set_tex_image(struct gl_texture_object *tObj,
 575               GLenum target, GLint level,
 576               struct gl_texture_image *texImage)
 577 {
 578    const GLuint face = _mesa_tex_target_to_face(target);
 579
 580    ASSERT(tObj);
 581    ASSERT(texImage);
 582    if (target == GL_TEXTURE_RECTANGLE_NV || target == GL_TEXTURE_EXTERNAL_OES)
 583       assert(level == 0);
 584
 585    tObj->Image[face][level] = texImage;
 586
 587    /* Set the 'back' pointer */
 588    texImage->TexObject = tObj;
 589    texImage->Level = level;
 590    texImage->Face = face;
 591 }
 592
 593
 594 /**
 595  * Allocate a texture image structure.
 596  *
 597  * Called via ctx->Driver.NewTextureImage() unless overriden by a device
 598  * driver.
 599  *
 600  * \return a pointer to gl_texture_image struct with all fields initialized to
 601  * zero.
 602  */
 603 struct gl_texture_image *
 604 _mesa_new_texture_image( struct gl_context *ctx )
 605 {
 606    (void) ctx;
 607    return CALLOC_STRUCT(gl_texture_image);
 608 }
 609
 610
 611 /**
 612  * Free a gl_texture_image and associated data.
 613  * This function is a fallback called via ctx->Driver.DeleteTextureImage().
 614  *
 615  * \param texImage texture image.
 616  *
 617  * Free the texture image structure and the associated image data.
 618  */
 619 void
 620 _mesa_delete_texture_image(struct gl_context *ctx,
 621                            struct gl_texture_image *texImage)
 622 {
 623    /* Free texImage->Data and/or any other driver-specific texture
 624     * image storage.
 625     */
 626    ASSERT(ctx->Driver.FreeTextureImageBuffer);
 627    ctx->Driver.FreeTextureImageBuffer( ctx, texImage );
 628    free(texImage);
 629 }
 630
 631
 632 /**
 633  * Test if a target is a proxy target.
 634  *
 635  * \param target texture target.
 636  *
 637  * \return GL_TRUE if the target is a proxy target, GL_FALSE otherwise.
 638  */
 639 GLboolean
 640 _mesa_is_proxy_texture(GLenum target)
 641 {
 642    /*
 643     * NUM_TEXTURE_TARGETS should match number of terms below, except there's no
 644     * proxy for GL_TEXTURE_BUFFER and GL_TEXTURE_EXTERNAL_OES.
 645     */
 646    assert(NUM_TEXTURE_TARGETS == 7 + 2);
 647
 648    return (target == GL_PROXY_TEXTURE_1D ||
 649            target == GL_PROXY_TEXTURE_2D ||
 650            target == GL_PROXY_TEXTURE_3D ||
 651            target == GL_PROXY_TEXTURE_CUBE_MAP_ARB ||
 652            target == GL_PROXY_TEXTURE_RECTANGLE_NV ||
 653            target == GL_PROXY_TEXTURE_1D_ARRAY_EXT ||
 654            target == GL_PROXY_TEXTURE_2D_ARRAY_EXT);
 655 }
 656
 657
 658 /**
 659  * Return the proxy target which corresponds to the given texture target
 660  */
 661 static GLenum
 662 get_proxy_target(GLenum target)
 663 {
 664    switch (target) {
 665    case GL_TEXTURE_1D:
 666    case GL_PROXY_TEXTURE_1D:
 667       return GL_PROXY_TEXTURE_1D;
 668    case GL_TEXTURE_2D:
 669    case GL_PROXY_TEXTURE_2D:
 670       return GL_PROXY_TEXTURE_2D;
 671    case GL_TEXTURE_3D:
 672    case GL_PROXY_TEXTURE_3D:
 673       return GL_PROXY_TEXTURE_3D;
 674    case GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB:
 675    case GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB:
 676    case GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB:
 677    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB:
 678    case GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB:
 679    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB:
 680    case GL_TEXTURE_CUBE_MAP_ARB:
 681    case GL_PROXY_TEXTURE_CUBE_MAP_ARB:
 682       return GL_PROXY_TEXTURE_CUBE_MAP_ARB;
 683    case GL_TEXTURE_RECTANGLE_NV:
 684    case GL_PROXY_TEXTURE_RECTANGLE_NV:
 685       return GL_PROXY_TEXTURE_RECTANGLE_NV;
 686    case GL_TEXTURE_1D_ARRAY_EXT:
 687    case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
 688       return GL_PROXY_TEXTURE_1D_ARRAY_EXT;
 689    case GL_TEXTURE_2D_ARRAY_EXT:
 690    case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
 691       return GL_PROXY_TEXTURE_2D_ARRAY_EXT;
 692    default:
 693       _mesa_problem(NULL, "unexpected target in get_proxy_target()");
 694       return 0;
 695    }
 696 }
 697
 698
 699 /**
 700  * Get the texture object that corresponds to the target of the given
 701  * texture unit.  The target should have already been checked for validity.
 702  *
 703  * \param ctx GL context.
 704  * \param texUnit texture unit.
 705  * \param target texture target.
 706  *
 707  * \return pointer to the texture object on success, or NULL on failure.
 708  */
 709 struct gl_texture_object *
 710 _mesa_select_tex_object(struct gl_context *ctx,
 711                         const struct gl_texture_unit *texUnit,
 712                         GLenum target)
 713 {
 714    const GLboolean arrayTex = (ctx->Extensions.MESA_texture_array ||
 715                                ctx->Extensions.EXT_texture_array);
 716
 717    switch (target) {
 718       case GL_TEXTURE_1D:
 719          return texUnit->CurrentTex[TEXTURE_1D_INDEX];
 720       case GL_PROXY_TEXTURE_1D:
 721          return ctx->Texture.ProxyTex[TEXTURE_1D_INDEX];
 722       case GL_TEXTURE_2D:
 723          return texUnit->CurrentTex[TEXTURE_2D_INDEX];
 724       case GL_PROXY_TEXTURE_2D:
 725          return ctx->Texture.ProxyTex[TEXTURE_2D_INDEX];
 726       case GL_TEXTURE_3D:
 727          return texUnit->CurrentTex[TEXTURE_3D_INDEX];
 728       case GL_PROXY_TEXTURE_3D:
 729          return ctx->Texture.ProxyTex[TEXTURE_3D_INDEX];
 730       case GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB:
 731       case GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB:
 732       case GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB:
 733       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB:
 734       case GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB:
 735       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB:
 736       case GL_TEXTURE_CUBE_MAP_ARB:
 737          return ctx->Extensions.ARB_texture_cube_map
 738                 ? texUnit->CurrentTex[TEXTURE_CUBE_INDEX] : NULL;
 739       case GL_PROXY_TEXTURE_CUBE_MAP_ARB:
 740          return ctx->Extensions.ARB_texture_cube_map
 741                 ? ctx->Texture.ProxyTex[TEXTURE_CUBE_INDEX] : NULL;
 742       case GL_TEXTURE_RECTANGLE_NV:
 743          return ctx->Extensions.NV_texture_rectangle
 744                 ? texUnit->CurrentTex[TEXTURE_RECT_INDEX] : NULL;
 745       case GL_PROXY_TEXTURE_RECTANGLE_NV:
 746          return ctx->Extensions.NV_texture_rectangle
 747                 ? ctx->Texture.ProxyTex[TEXTURE_RECT_INDEX] : NULL;
 748       case GL_TEXTURE_1D_ARRAY_EXT:
 749          return arrayTex ? texUnit->CurrentTex[TEXTURE_1D_ARRAY_INDEX] : NULL;
 750       case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
 751          return arrayTex ? ctx->Texture.ProxyTex[TEXTURE_1D_ARRAY_INDEX] : NULL;
 752       case GL_TEXTURE_2D_ARRAY_EXT:
 753          return arrayTex ? texUnit->CurrentTex[TEXTURE_2D_ARRAY_INDEX] : NULL;
 754       case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
 755          return arrayTex ? ctx->Texture.ProxyTex[TEXTURE_2D_ARRAY_INDEX] : NULL;
 756       case GL_TEXTURE_BUFFER:
 757          return ctx->Extensions.ARB_texture_buffer_object
 758             ? texUnit->CurrentTex[TEXTURE_BUFFER_INDEX] : NULL;
 759       case GL_TEXTURE_EXTERNAL_OES:
 760          return ctx->Extensions.OES_EGL_image_external
 761             ? texUnit->CurrentTex[TEXTURE_EXTERNAL_INDEX] : NULL;
 762       default:
 763          _mesa_problem(NULL, "bad target in _mesa_select_tex_object()");
 764          return NULL;
 765    }
 766 }
 767
 768
 769 /**
 770  * Return pointer to texture object for given target on current texture unit.
 771  */
 772 struct gl_texture_object *
 773 _mesa_get_current_tex_object(struct gl_context *ctx, GLenum target)
 774 {
 775    struct gl_texture_unit *texUnit = _mesa_get_current_tex_unit(ctx);
 776    return _mesa_select_tex_object(ctx, texUnit, target);
 777 }
 778
 779
 780 /**
 781  * Get a texture image pointer from a texture object, given a texture
 782  * target and mipmap level.  The target and level parameters should
 783  * have already been error-checked.
 784  *
 785  * \param ctx GL context.
 786  * \param texObj texture unit.
 787  * \param target texture target.
 788  * \param level image level.
 789  *
 790  * \return pointer to the texture image structure, or NULL on failure.
 791  */
 792 struct gl_texture_image *
 793 _mesa_select_tex_image(struct gl_context *ctx,
 794                        const struct gl_texture_object *texObj,
 795                        GLenum target, GLint level)
 796 {
 797    const GLuint face = _mesa_tex_target_to_face(target);
 798
 799    ASSERT(texObj);
 800    ASSERT(level >= 0);
 801    ASSERT(level < MAX_TEXTURE_LEVELS);
 802
 803    return texObj->Image[face][level];
 804 }
 805
 806
 807 /**
 808  * Like _mesa_select_tex_image() but if the image doesn't exist, allocate
 809  * it and install it.  Only return NULL if passed a bad parameter or run
 810  * out of memory.
 811  */
 812 struct gl_texture_image *
 813 _mesa_get_tex_image(struct gl_context *ctx, struct gl_texture_object *texObj,
 814                     GLenum target, GLint level)
 815 {
 816    struct gl_texture_image *texImage;
 817
 818    if (!texObj)
 819       return NULL;
 820
 821    texImage = _mesa_select_tex_image(ctx, texObj, target, level);
 822    if (!texImage) {
 823       texImage = ctx->Driver.NewTextureImage(ctx);
 824       if (!texImage) {
 825          _mesa_error(ctx, GL_OUT_OF_MEMORY, "texture image allocation");
 826          return NULL;
 827       }
 828
 829       set_tex_image(texObj, target, level, texImage);
 830    }
 831
 832    return texImage;
 833 }
 834
 835
 836 /**
 837  * Return pointer to the specified proxy texture image.
 838  * Note that proxy textures are per-context, not per-texture unit.
 839  * \return pointer to texture image or NULL if invalid target, invalid
 840  *         level, or out of memory.
 841  */
 842 static struct gl_texture_image *
 843 get_proxy_tex_image(struct gl_context *ctx, GLenum target, GLint level)
 844 {
 845    struct gl_texture_image *texImage;
 846    GLuint texIndex;
 847
 848    if (level < 0)
 849       return NULL;
 850
 851    switch (target) {
 852    case GL_PROXY_TEXTURE_1D:
 853       if (level >= ctx->Const.MaxTextureLevels)
 854          return NULL;
 855       texIndex = TEXTURE_1D_INDEX;
 856       break;
 857    case GL_PROXY_TEXTURE_2D:
 858       if (level >= ctx->Const.MaxTextureLevels)
 859          return NULL;
 860       texIndex = TEXTURE_2D_INDEX;
 861       break;
 862    case GL_PROXY_TEXTURE_3D:
 863       if (level >= ctx->Const.Max3DTextureLevels)
 864          return NULL;
 865       texIndex = TEXTURE_3D_INDEX;
 866       break;
 867    case GL_PROXY_TEXTURE_CUBE_MAP:
 868       if (level >= ctx->Const.MaxCubeTextureLevels)
 869          return NULL;
 870       texIndex = TEXTURE_CUBE_INDEX;
 871       break;
 872    case GL_PROXY_TEXTURE_RECTANGLE_NV:
 873       if (level > 0)
 874          return NULL;
 875       texIndex = TEXTURE_RECT_INDEX;
 876       break;
 877    case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
 878       if (level >= ctx->Const.MaxTextureLevels)
 879          return NULL;
 880       texIndex = TEXTURE_1D_ARRAY_INDEX;
 881       break;
 882    case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
 883       if (level >= ctx->Const.MaxTextureLevels)
 884          return NULL;
 885       texIndex = TEXTURE_2D_ARRAY_INDEX;
 886       break;
 887    default:
 888       return NULL;
 889    }
 890
 891    texImage = ctx->Texture.ProxyTex[texIndex]->Image[0][level];
 892    if (!texImage) {
 893       texImage = ctx->Driver.NewTextureImage(ctx);
 894       if (!texImage) {
 895          _mesa_error(ctx, GL_OUT_OF_MEMORY, "proxy texture allocation");
 896          return NULL;
 897       }
 898       ctx->Texture.ProxyTex[texIndex]->Image[0][level] = texImage;
 899       /* Set the 'back' pointer */
 900       texImage->TexObject = ctx->Texture.ProxyTex[texIndex];
 901    }
 902    return texImage;
 903 }
 904
 905
 906 /**
 907  * Get the maximum number of allowed mipmap levels.
 908  *
 909  * \param ctx GL context.
 910  * \param target texture target.
 911  *
 912  * \return the maximum number of allowed mipmap levels for the given
 913  * texture target, or zero if passed a bad target.
 914  *
 915  * \sa gl_constants.
 916  */
 917 GLint
 918 _mesa_max_texture_levels(struct gl_context *ctx, GLenum target)
 919 {
 920    switch (target) {
 921    case GL_TEXTURE_1D:
 922    case GL_PROXY_TEXTURE_1D:
 923    case GL_TEXTURE_2D:
 924    case GL_PROXY_TEXTURE_2D:
 925       return ctx->Const.MaxTextureLevels;
 926    case GL_TEXTURE_3D:
 927    case GL_PROXY_TEXTURE_3D:
 928       return ctx->Const.Max3DTextureLevels;
 929    case GL_TEXTURE_CUBE_MAP:
 930    case GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB:
 931    case GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB:
 932    case GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB:
 933    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB:
 934    case GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB:
 935    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB:
 936    case GL_PROXY_TEXTURE_CUBE_MAP_ARB:
 937       return ctx->Extensions.ARB_texture_cube_map
 938          ? ctx->Const.MaxCubeTextureLevels : 0;
 939    case GL_TEXTURE_RECTANGLE_NV:
 940    case GL_PROXY_TEXTURE_RECTANGLE_NV:
 941       return ctx->Extensions.NV_texture_rectangle ? 1 : 0;
 942    case GL_TEXTURE_1D_ARRAY_EXT:
 943    case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
 944    case GL_TEXTURE_2D_ARRAY_EXT:
 945    case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
 946       return (ctx->Extensions.MESA_texture_array ||
 947               ctx->Extensions.EXT_texture_array)
 948          ? ctx->Const.MaxTextureLevels : 0;
 949    case GL_TEXTURE_BUFFER:
 950       return _mesa_is_desktop_gl(ctx) &&
 951          (ctx->Extensions.ARB_texture_buffer_object ||
 952           (ctx->Version >= 31)) ? 1 : 0;
 953    case GL_TEXTURE_EXTERNAL_OES:
 954       /* fall-through */
 955    default:
 956       return 0; /* bad target */
 957    }
 958 }
 959
 960
 961 /**
 962  * Return number of dimensions per mipmap level for the given texture target.
 963  */
 964 GLint
 965 _mesa_get_texture_dimensions(GLenum target)
 966 {
 967    switch (target) {
 968    case GL_TEXTURE_1D:
 969    case GL_PROXY_TEXTURE_1D:
 970       return 1;
 971    case GL_TEXTURE_2D:
 972    case GL_TEXTURE_RECTANGLE:
 973    case GL_TEXTURE_CUBE_MAP:
 974    case GL_PROXY_TEXTURE_2D:
 975    case GL_PROXY_TEXTURE_RECTANGLE:
 976    case GL_PROXY_TEXTURE_CUBE_MAP:
 977    case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
 978    case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
 979    case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
 980    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
 981    case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
 982    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
 983    case GL_TEXTURE_1D_ARRAY:
 984    case GL_PROXY_TEXTURE_1D_ARRAY:
 985    case GL_TEXTURE_EXTERNAL_OES:
 986       return 2;
 987    case GL_TEXTURE_3D:
 988    case GL_PROXY_TEXTURE_3D:
 989    case GL_TEXTURE_2D_ARRAY:
 990    case GL_PROXY_TEXTURE_2D_ARRAY:
 991       return 3;
 992    case GL_TEXTURE_BUFFER:
 993       /* fall-through */
 994    default:
 995       _mesa_problem(NULL, "invalid target 0x%x in get_texture_dimensions()",
 996                     target);
 997       return 2;
 998    }
 999 }
1000
1001
1002
1003
1004 #if 000 /* not used anymore */
1005 /*
1006  * glTexImage[123]D can accept a NULL image pointer.  In this case we
1007  * create a texture image with unspecified image contents per the OpenGL
1008  * spec.
1009  */
1010 static GLubyte *
1011 make_null_texture(GLint width, GLint height, GLint depth, GLenum format)
1012 {
1013    const GLint components = _mesa_components_in_format(format);
1014    const GLint numPixels = width * height * depth;
1015    GLubyte *data = (GLubyte *) MALLOC(numPixels * components * sizeof(GLubyte));
1016
1017 #ifdef DEBUG
1018    /*
1019     * Let's see if anyone finds this.  If glTexImage2D() is called with
1020     * a NULL image pointer then load the texture image with something
1021     * interesting instead of leaving it indeterminate.
1022     */
1023    if (data) {
1024       static const char message[8][32] = {
1025          "   X   X  XXXXX   XXX     X    ",
1026          "   XX XX  X      X   X   X X   ",
1027          "   X X X  X      X      X   X  ",
1028          "   X   X  XXXX    XXX   XXXXX  ",
1029          "   X   X  X          X  X   X  ",
1030          "   X   X  X      X   X  X   X  ",
1031          "   X   X  XXXXX   XXX   X   X  ",
1032          "                               "
1033       };
1034
1035       GLubyte *imgPtr = data;
1036       GLint h, i, j, k;
1037       for (h = 0; h < depth; h++) {
1038          for (i = 0; i < height; i++) {
1039             GLint srcRow = 7 - (i % 8);
1040             for (j = 0; j < width; j++) {
1041                GLint srcCol = j % 32;
1042                GLubyte texel = (message[srcRow][srcCol]=='X') ? 255 : 70;
1043                for (k = 0; k < components; k++) {
1044                   *imgPtr++ = texel;
1045                }
1046             }
1047          }
1048       }
1049    }
1050 #endif
1051
1052    return data;
1053 }
1054 #endif
1055
1056
1057
1058 /**
1059  * Set the size and format-related fields of a gl_texture_image struct
1060  * to zero.  This is used when a proxy texture test fails.
1061  */
1062 static void
1063 clear_teximage_fields(struct gl_texture_image *img)
1064 {
1065    ASSERT(img);
1066    img->_BaseFormat = 0;
1067    img->InternalFormat = 0;
1068    img->Border = 0;
1069    img->Width = 0;
1070    img->Height = 0;
1071    img->Depth = 0;
1072    img->Width2 = 0;
1073    img->Height2 = 0;
1074    img->Depth2 = 0;
1075    img->WidthLog2 = 0;
1076    img->HeightLog2 = 0;
1077    img->DepthLog2 = 0;
1078    img->TexFormat = MESA_FORMAT_NONE;
1079 }
1080
1081
1082 /**
1083  * Initialize basic fields of the gl_texture_image struct.
1084  *
1085  * \param ctx GL context.
1086  * \param img texture image structure to be initialized.
1087  * \param width image width.
1088  * \param height image height.
1089  * \param depth image depth.
1090  * \param border image border.
1091  * \param internalFormat internal format.
1092  * \param format  the actual hardware format (one of MESA_FORMAT_*)
1093  *
1094  * Fills in the fields of \p img with the given information.
1095  * Note: width, height and depth include the border.
1096  */
1097 void
1098 _mesa_init_teximage_fields(struct gl_context *ctx,
1099                            struct gl_texture_image *img,
1100                            GLsizei width, GLsizei height, GLsizei depth,
1101                            GLint border, GLenum internalFormat,
1102                            gl_format format)
1103 {
1104    GLenum target;
1105    ASSERT(img);
1106    ASSERT(width >= 0);
1107    ASSERT(height >= 0);
1108    ASSERT(depth >= 0);
1109
1110    target = img->TexObject->Target;
1111    img->_BaseFormat = _mesa_base_tex_format( ctx, internalFormat );
1112    ASSERT(img->_BaseFormat > 0);
1113    img->InternalFormat = internalFormat;
1114    img->Border = border;
1115    img->Width = width;
1116    img->Height = height;
1117    img->Depth = depth;
1118
1119    img->Width2 = width - 2 * border;   /* == 1 << img->WidthLog2; */
1120    img->WidthLog2 = _mesa_logbase2(img->Width2);
1121
1122    switch(target) {
1123    case GL_TEXTURE_1D:
1124    case GL_TEXTURE_BUFFER:
1125    case GL_PROXY_TEXTURE_1D:
1126       if (height == 0)
1127          img->Height2 = 0;
1128       else
1129          img->Height2 = 1;
1130       img->HeightLog2 = 0;
1131       if (depth == 0)
1132          img->Depth2 = 0;
1133       else
1134          img->Depth2 = 1;
1135       img->DepthLog2 = 0;
1136       break;
1137    case GL_TEXTURE_1D_ARRAY:
1138    case GL_PROXY_TEXTURE_1D_ARRAY:
1139       img->Height2 = height; /* no border */
1140       img->HeightLog2 = 0; /* not used */
1141       if (depth == 0)
1142          img->Depth2 = 0;
1143       else
1144          img->Depth2 = 1;
1145       img->DepthLog2 = 0;
1146       break;
1147    case GL_TEXTURE_2D:
1148    case GL_TEXTURE_RECTANGLE:
1149    case GL_TEXTURE_CUBE_MAP:
1150    case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
1151    case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
1152    case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
1153    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
1154    case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
1155    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
1156    case GL_TEXTURE_EXTERNAL_OES:
1157    case GL_PROXY_TEXTURE_2D:
1158    case GL_PROXY_TEXTURE_RECTANGLE:
1159    case GL_PROXY_TEXTURE_CUBE_MAP:
1160       img->Height2 = height - 2 * border; /* == 1 << img->HeightLog2; */
1161       img->HeightLog2 = _mesa_logbase2(img->Height2);
1162       if (depth == 0)
1163          img->Depth2 = 0;
1164       else
1165          img->Depth2 = 1;
1166       img->DepthLog2 = 0;
1167       break;
1168    case GL_TEXTURE_2D_ARRAY:
1169    case GL_PROXY_TEXTURE_2D_ARRAY:
1170       img->Height2 = height - 2 * border; /* == 1 << img->HeightLog2; */
1171       img->HeightLog2 = _mesa_logbase2(img->Height2);
1172       img->Depth2 = depth; /* no border */
1173       img->DepthLog2 = 0; /* not used */
1174       break;
1175    case GL_TEXTURE_3D:
1176    case GL_PROXY_TEXTURE_3D:
1177       img->Height2 = height - 2 * border; /* == 1 << img->HeightLog2; */
1178       img->HeightLog2 = _mesa_logbase2(img->Height2);
1179       img->Depth2 = depth - 2 * border;   /* == 1 << img->DepthLog2; */
1180       img->DepthLog2 = _mesa_logbase2(img->Depth2);
1181       break;
1182    default:
1183       _mesa_problem(NULL, "invalid target 0x%x in _mesa_init_teximage_fields()",
1184                     target);
1185    }
1186
1187    img->MaxLog2 = MAX2(img->WidthLog2, img->HeightLog2);
1188    img->TexFormat = format;
1189 }
1190
1191
1192 /**
1193  * Free and clear fields of the gl_texture_image struct.
1194  *
1195  * \param ctx GL context.
1196  * \param texImage texture image structure to be cleared.
1197  *
1198  * After the call, \p texImage will have no data associated with it.  Its
1199  * fields are cleared so that its parent object will test incomplete.
1200  */
1201 void
1202 _mesa_clear_texture_image(struct gl_context *ctx,
1203                           struct gl_texture_image *texImage)
1204 {
1205    ctx->Driver.FreeTextureImageBuffer(ctx, texImage);
1206    clear_teximage_fields(texImage);
1207 }
1208
1209
1210 /**
1211  * This is the fallback for Driver.TestProxyTexImage().  Test the texture
1212  * level, width, height and depth against the ctx->Const limits for textures.
1213  *
1214  * A hardware driver might override this function if, for example, the
1215  * max 3D texture size is 512x512x64 (i.e. not a cube).
1216  *
1217  * Note that width, height, depth == 0 is not an error.  However, a
1218  * texture with zero width/height/depth will be considered "incomplete"
1219  * and texturing will effectively be disabled.
1220  *
1221  * \param target  one of GL_PROXY_TEXTURE_1D, GL_PROXY_TEXTURE_2D,
1222  *                GL_PROXY_TEXTURE_3D, GL_PROXY_TEXTURE_RECTANGLE_NV,
1223  *                GL_PROXY_TEXTURE_CUBE_MAP_ARB.
1224  * \param level  as passed to glTexImage
1225  * \param internalFormat  as passed to glTexImage
1226  * \param format  as passed to glTexImage
1227  * \param type  as passed to glTexImage
1228  * \param width  as passed to glTexImage
1229  * \param height  as passed to glTexImage
1230  * \param depth  as passed to glTexImage
1231  * \param border  as passed to glTexImage
1232  * \return GL_TRUE if the image is acceptable, GL_FALSE if not acceptable.
1233  */
1234 GLboolean
1235 _mesa_test_proxy_teximage(struct gl_context *ctx, GLenum target, GLint level,
1236                           GLint internalFormat, GLenum format, GLenum type,
1237                           GLint width, GLint height, GLint depth, GLint border)
1238 {
1239    GLint maxSize;
1240
1241    (void) internalFormat;
1242    (void) format;
1243    (void) type;
1244
1245    switch (target) {
1246    case GL_PROXY_TEXTURE_1D:
1247       maxSize = 1 << (ctx->Const.MaxTextureLevels - 1);
1248       if (width < 2 * border || width > 2 * border + maxSize)
1249          return GL_FALSE;
1250       if (level >= ctx->Const.MaxTextureLevels)
1251          return GL_FALSE;
1252       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1253          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1254             return GL_FALSE;
1255       }
1256       return GL_TRUE;
1257
1258    case GL_PROXY_TEXTURE_2D:
1259       maxSize = 1 << (ctx->Const.MaxTextureLevels - 1);
1260       if (width < 2 * border || width > 2 * border + maxSize)
1261          return GL_FALSE;
1262       if (height < 2 * border || height > 2 * border + maxSize)
1263          return GL_FALSE;
1264       if (level >= ctx->Const.MaxTextureLevels)
1265          return GL_FALSE;
1266       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1267          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1268             return GL_FALSE;
1269          if (height > 0 && !_mesa_is_pow_two(height - 2 * border))
1270             return GL_FALSE;
1271       }
1272       return GL_TRUE;
1273
1274    case GL_PROXY_TEXTURE_3D:
1275       maxSize = 1 << (ctx->Const.Max3DTextureLevels - 1);
1276       if (width < 2 * border || width > 2 * border + maxSize)
1277          return GL_FALSE;
1278       if (height < 2 * border || height > 2 * border + maxSize)
1279          return GL_FALSE;
1280       if (depth < 2 * border || depth > 2 * border + maxSize)
1281          return GL_FALSE;
1282       if (level >= ctx->Const.Max3DTextureLevels)
1283          return GL_FALSE;
1284       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1285          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1286             return GL_FALSE;
1287          if (height > 0 && !_mesa_is_pow_two(height - 2 * border))
1288             return GL_FALSE;
1289          if (depth > 0 && !_mesa_is_pow_two(depth - 2 * border))
1290             return GL_FALSE;
1291       }
1292       return GL_TRUE;
1293
1294    case GL_PROXY_TEXTURE_RECTANGLE_NV:
1295       maxSize = ctx->Const.MaxTextureRectSize;
1296       if (width < 0 || width > maxSize)
1297          return GL_FALSE;
1298       if (height < 0 || height > maxSize)
1299          return GL_FALSE;
1300       if (level != 0)
1301          return GL_FALSE;
1302       return GL_TRUE;
1303
1304    case GL_PROXY_TEXTURE_CUBE_MAP_ARB:
1305       maxSize = 1 << (ctx->Const.MaxCubeTextureLevels - 1);
1306       if (width < 2 * border || width > 2 * border + maxSize)
1307          return GL_FALSE;
1308       if (height < 2 * border || height > 2 * border + maxSize)
1309          return GL_FALSE;
1310       if (level >= ctx->Const.MaxCubeTextureLevels)
1311          return GL_FALSE;
1312       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1313          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1314             return GL_FALSE;
1315          if (height > 0 && !_mesa_is_pow_two(height - 2 * border))
1316             return GL_FALSE;
1317       }
1318       return GL_TRUE;
1319
1320    case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
1321       maxSize = 1 << (ctx->Const.MaxTextureLevels - 1);
1322       if (width < 2 * border || width > 2 * border + maxSize)
1323          return GL_FALSE;
1324       if (height < 1 || height > ctx->Const.MaxArrayTextureLayers)
1325          return GL_FALSE;
1326       if (level >= ctx->Const.MaxTextureLevels)
1327          return GL_FALSE;
1328       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1329          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1330             return GL_FALSE;
1331       }
1332       return GL_TRUE;
1333
1334    case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
1335       maxSize = 1 << (ctx->Const.MaxTextureLevels - 1);
1336       if (width < 2 * border || width > 2 * border + maxSize)
1337          return GL_FALSE;
1338       if (height < 2 * border || height > 2 * border + maxSize)
1339          return GL_FALSE;
1340       if (depth < 1 || depth > ctx->Const.MaxArrayTextureLayers)
1341          return GL_FALSE;
1342       if (level >= ctx->Const.MaxTextureLevels)
1343          return GL_FALSE;
1344       if (!ctx->Extensions.ARB_texture_non_power_of_two) {
1345          if (width > 0 && !_mesa_is_pow_two(width - 2 * border))
1346             return GL_FALSE;
1347          if (height > 0 && !_mesa_is_pow_two(height - 2 * border))
1348             return GL_FALSE;
1349       }
1350       return GL_TRUE;
1351
1352    default:
1353       _mesa_problem(ctx, "Invalid target in _mesa_test_proxy_teximage");
1354       return GL_FALSE;
1355    }
1356 }
1357
1358
1359 /**
1360  * Check if the memory used by the texture would exceed the driver's limit.
1361  * This lets us support a max 3D texture size of 8K (for example) but
1362  * prevents allocating a full 8K x 8K x 8K texture.
1363  * XXX this could be rolled into the proxy texture size test (above) but
1364  * we don't have the actual texture internal format at that point.
1365  */
1366 static GLboolean
1367 legal_texture_size(struct gl_context *ctx, gl_format format,
1368                    GLint width, GLint height, GLint depth)
1369 {
1370    uint64_t bytes = _mesa_format_image_size64(format, width, height, depth);
1371    uint64_t mbytes = bytes / (1024 * 1024); /* convert to MB */
1372    return mbytes <= (uint64_t) ctx->Const.MaxTextureMbytes;
1373 }
1374
1375
1376 /**
1377  * Return true if the format is only valid for glCompressedTexImage.
1378  */
1379 static GLboolean
1380 compressedteximage_only_format(const struct gl_context *ctx, GLenum format)
1381 {
1382    switch (format) {
1383    case GL_ETC1_RGB8_OES:
1384    case GL_PALETTE4_RGB8_OES:
1385    case GL_PALETTE4_RGBA8_OES:
1386    case GL_PALETTE4_R5_G6_B5_OES:
1387    case GL_PALETTE4_RGBA4_OES:
1388    case GL_PALETTE4_RGB5_A1_OES:
1389    case GL_PALETTE8_RGB8_OES:
1390    case GL_PALETTE8_RGBA8_OES:
1391    case GL_PALETTE8_R5_G6_B5_OES:
1392    case GL_PALETTE8_RGBA4_OES:
1393    case GL_PALETTE8_RGB5_A1_OES:
1394       return GL_TRUE;
1395    default:
1396       return GL_FALSE;
1397    }
1398 }
1399
1400
1401 /**
1402  * Helper function to determine whether a target and specific compression
1403  * format are supported.
1404  */
1405 static GLboolean
1406 target_can_be_compressed(const struct gl_context *ctx, GLenum target,
1407                          GLenum intFormat)
1408 {
1409    (void) intFormat;  /* not used yet */
1410
1411    switch (target) {
1412    case GL_TEXTURE_2D:
1413    case GL_PROXY_TEXTURE_2D:
1414       return GL_TRUE; /* true for any compressed format so far */
1415    case GL_PROXY_TEXTURE_CUBE_MAP:
1416    case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
1417    case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
1418    case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
1419    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
1420    case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
1421    case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
1422       return ctx->Extensions.ARB_texture_cube_map;
1423    case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
1424    case GL_TEXTURE_2D_ARRAY_EXT:
1425       return (ctx->Extensions.MESA_texture_array ||
1426               ctx->Extensions.EXT_texture_array);
1427    default:
1428       return GL_FALSE;
1429    }
1430 }
1431
1432
1433 /**
1434  * Check if the given texture target value is legal for a
1435  * glTexImage1/2/3D call.
1436  */
1437 static GLboolean
1438 legal_teximage_target(struct gl_context *ctx, GLuint dims, GLenum target)
1439 {
1440    switch (dims) {
1441    case 1:
1442       switch (target) {
1443       case GL_TEXTURE_1D:
1444       case GL_PROXY_TEXTURE_1D:
1445          return _mesa_is_desktop_gl(ctx);
1446       default:
1447          return GL_FALSE;
1448       }
1449    case 2:
1450       switch (target) {
1451       case GL_TEXTURE_2D:
1452          return GL_TRUE;
1453       case GL_PROXY_TEXTURE_2D:
1454          return _mesa_is_desktop_gl(ctx);
1455       case GL_PROXY_TEXTURE_CUBE_MAP:
1456          return _mesa_is_desktop_gl(ctx)
1457             && ctx->Extensions.ARB_texture_cube_map;
1458       case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
1459       case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
1460       case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
1461       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
1462       case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
1463       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
1464          return ctx->Extensions.ARB_texture_cube_map;
1465       case GL_TEXTURE_RECTANGLE_NV:
1466       case GL_PROXY_TEXTURE_RECTANGLE_NV:
1467          return _mesa_is_desktop_gl(ctx)
1468             && ctx->Extensions.NV_texture_rectangle;
1469       case GL_TEXTURE_1D_ARRAY_EXT:
1470       case GL_PROXY_TEXTURE_1D_ARRAY_EXT:
1471          return _mesa_is_desktop_gl(ctx)
1472             && (ctx->Extensions.MESA_texture_array ||
1473                 ctx->Extensions.EXT_texture_array);
1474       default:
1475          return GL_FALSE;
1476       }
1477    case 3:
1478       switch (target) {
1479       case GL_TEXTURE_3D:
1480          return GL_TRUE;
1481       case GL_PROXY_TEXTURE_3D:
1482          return _mesa_is_desktop_gl(ctx);
1483       case GL_TEXTURE_2D_ARRAY_EXT:
1484          return (_mesa_is_desktop_gl(ctx)
1485                  && (ctx->Extensions.MESA_texture_array ||
1486                      ctx->Extensions.EXT_texture_array))
1487             || _mesa_is_gles3(ctx);
1488       case GL_PROXY_TEXTURE_2D_ARRAY_EXT:
1489          return _mesa_is_desktop_gl(ctx)
1490             && (ctx->Extensions.MESA_texture_array ||
1491                 ctx->Extensions.EXT_texture_array);
1492       default:
1493          return GL_FALSE;
1494       }
1495    default:
1496       _mesa_problem(ctx, "invalid dims=%u in legal_teximage_target()", dims);
1497       return GL_FALSE;
1498    }
1499 }
1500
1501
1502 /**
1503  * Check if the given texture target value is legal for a
1504  * glTexSubImage, glCopyTexSubImage or glCopyTexImage call.
1505  * The difference compared to legal_teximage_target() above is that
1506  * proxy targets are not supported.
1507  */
1508 static GLboolean
1509 legal_texsubimage_target(struct gl_context *ctx, GLuint dims, GLenum target)
1510 {
1511    switch (dims) {
1512    case 1:
1513       return _mesa_is_desktop_gl(ctx) && target == GL_TEXTURE_1D;
1514    case 2:
1515       switch (target) {
1516       case GL_TEXTURE_2D:
1517          return GL_TRUE;
1518       case GL_TEXTURE_CUBE_MAP_POSITIVE_X:
1519       case GL_TEXTURE_CUBE_MAP_NEGATIVE_X:
1520       case GL_TEXTURE_CUBE_MAP_POSITIVE_Y:
1521       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Y:
1522       case GL_TEXTURE_CUBE_MAP_POSITIVE_Z:
1523       case GL_TEXTURE_CUBE_MAP_NEGATIVE_Z:
1524          return ctx->Extensions.ARB_texture_cube_map;
1525       case GL_TEXTURE_RECTANGLE_NV:
1526          return _mesa_is_desktop_gl(ctx)
1527             && ctx->Extensions.NV_texture_rectangle;
1528       case GL_TEXTURE_1D_ARRAY_EXT:
1529          return _mesa_is_desktop_gl(ctx)
1530             && (ctx->Extensions.MESA_texture_array ||
1531                 ctx->Extensions.EXT_texture_array);
1532       default:
1533          return GL_FALSE;
1534       }
1535    case 3:
1536       switch (target) {
1537       case GL_TEXTURE_3D:
1538          return GL_TRUE;
1539       case GL_TEXTURE_2D_ARRAY_EXT:
1540          return (_mesa_is_desktop_gl(ctx)
1541                  && (ctx->Extensions.MESA_texture_array ||
1542                      ctx->Extensions.EXT_texture_array))
1543             || _mesa_is_gles3(ctx);
1544       default:
1545          return GL_FALSE;
1546       }
1547    default:
1548       _mesa_problem(ctx, "invalid dims=%u in legal_texsubimage_target()",
1549                     dims);
1550       return GL_FALSE;
1551    }
1552 }
1553
1554
1555 /**
1556  * Helper function to determine if a texture object is mutable (in terms
1557  * of GL_ARB_texture_storage).
1558  */
1559 static GLboolean
1560 mutable_tex_object(struct gl_context *ctx, GLenum target)
1561 {
1562    if (ctx->Extensions.ARB_texture_storage) {
1563       struct gl_texture_object *texObj =
1564          _mesa_get_current_tex_object(ctx, target);
1565       return !texObj->Immutable;
1566    }
1567    return GL_TRUE;
1568 }
1569
1570
1571 GLenum
1572 _mesa_es_error_check_format_and_type(GLenum format, GLenum type,
1573                                      unsigned dimensions)
1574 {
1575    bool type_valid = true;
1576
1577    switch (format) {
1578    case GL_ALPHA:
1579    case GL_LUMINANCE:
1580    case GL_LUMINANCE_ALPHA:
1581       type_valid = (type == GL_UNSIGNED_BYTE
1582                     || type == GL_FLOAT
1583                     || type == GL_HALF_FLOAT_OES);
1584       break;
1585
1586    case GL_RGB:
1587       type_valid = (type == GL_UNSIGNED_BYTE
1588                     || type == GL_UNSIGNED_SHORT_5_6_5
1589                     || type == GL_FLOAT
1590                     || type == GL_HALF_FLOAT_OES);
1591       break;
1592
1593    case GL_RGBA:
1594       type_valid = (type == GL_UNSIGNED_BYTE
1595                     || type == GL_UNSIGNED_SHORT_4_4_4_4
1596                     || type == GL_UNSIGNED_SHORT_5_5_5_1
1597                     || type == GL_FLOAT
1598                     || type == GL_HALF_FLOAT_OES
1599                     || type == GL_UNSIGNED_INT_2_10_10_10_REV);
1600       break;
1601
1602    case GL_DEPTH_COMPONENT:
1603       /* This format is filtered against invalid dimensionalities elsewhere.
1604        */
1605       type_valid = (type == GL_UNSIGNED_SHORT
1606                     || type == GL_UNSIGNED_INT);
1607       break;
1608
1609    case GL_DEPTH_STENCIL:
1610       /* This format is filtered against invalid dimensionalities elsewhere.
1611        */
1612       type_valid = (type == GL_UNSIGNED_INT_24_8);
1613       break;
1614
1615    case GL_BGRA_EXT:
1616       type_valid = (type == GL_UNSIGNED_BYTE);
1617
1618       /* This feels like a bug in the EXT_texture_format_BGRA8888 spec, but
1619        * the format does not appear to be allowed for 3D textures in OpenGL
1620        * ES.
1621        */
1622       if (dimensions != 2)
1623          return GL_INVALID_VALUE;
1624
1625       break;
1626
1627    default:
1628       return GL_INVALID_VALUE;
1629    }
1630
1631    return type_valid ? GL_NO_ERROR : GL_INVALID_OPERATION;
1632 }
1633
1634
1635
1636 /**
1637  * Special value returned by error some texture error checking functions when
1638  * an error is detected and the proxy texture image's width/height/depth/format
1639  * fields should be zeroed-out.
1640  */
1641 #define PROXY_ERROR 2
1642
1643
1644 /**
1645  * Test the glTexImage[123]D() parameters for errors.
1646  *
1647  * \param ctx GL context.
1648  * \param dimensions texture image dimensions (must be 1, 2 or 3).
1649  * \param target texture target given by the user.
1650  * \param level image level given by the user.
1651  * \param internalFormat internal format given by the user.
1652  * \param format pixel data format given by the user.
1653  * \param type pixel data type given by the user.
1654  * \param width image width given by the user.
1655  * \param height image height given by the user.
1656  * \param depth image depth given by the user.
1657  * \param border image border given by the user.
1658  *
1659  * \return PROXY_ERROR if there's an error that should zero-out the proxy image,
1660  *         GL_TRUE if a regular GL error is found, or GL_FALSE if no error,
1661  *
1662  * Verifies each of the parameters against the constants specified in
1663  * __struct gl_contextRec::Const and the supported extensions, and according
1664  * to the OpenGL specification.
1665  */
1666 static GLenum
1667 texture_error_check( struct gl_context *ctx,
1668                      GLuint dimensions, GLenum target,
1669                      GLint level, GLint internalFormat,
1670                      GLenum format, GLenum type,
1671                      GLint width, GLint height,
1672                      GLint depth, GLint border )
1673 {
1674    const GLenum proxyTarget = get_proxy_target(target);
1675    const GLboolean isProxy = target == proxyTarget;
1676    GLboolean sizeOK = GL_TRUE;
1677    GLboolean colorFormat;
1678    GLenum err;
1679
1680    /* Even though there are no color-index textures, we still have to support
1681     * uploading color-index data and remapping it to RGB via the
1682     * GL_PIXEL_MAP_I_TO_[RGBA] tables.
1683     */
1684    const GLboolean indexFormat = (format == GL_COLOR_INDEX);
1685
1686    /* Note: for proxy textures, some error conditions immediately generate
1687     * a GL error in the usual way.  But others do not generate a GL error.
1688     * Instead, they cause the width, height, depth, format fields of the
1689     * texture image to be zeroed-out.  The GL spec seems to indicate that the
1690     * zero-out behaviour is only used in cases related to memory allocation.
1691     */
1692
1693    /* Basic level check (more checking in ctx->Driver.TestProxyTexImage) */
1694    if (level < 0 || level >= MAX_TEXTURE_LEVELS) {
1695       _mesa_error(ctx, GL_INVALID_VALUE,
1696                   "glTexImage%dD(level=%d)", dimensions, level);
1697       return GL_TRUE;
1698    }
1699
1700    /* Check border */
1701    if (border < 0 || border > 1 ||
1702        ((ctx->API != API_OPENGL ||
1703          target == GL_TEXTURE_RECTANGLE_NV ||
1704          target == GL_PROXY_TEXTURE_RECTANGLE_NV) && border != 0)) {
1705       _mesa_error(ctx, GL_INVALID_VALUE,
1706                   "glTexImage%dD(border=%d)", dimensions, border);
1707       return GL_TRUE;
1708    }
1709
1710    if (width < 0 || height < 0 || depth < 0) {
1711       _mesa_error(ctx, GL_INVALID_VALUE,
1712                   "glTexImage%dD(width, height or depth < 0)", dimensions);
1713       return GL_TRUE;
1714    }
1715
1716    /* OpenGL ES 1.x and OpenGL ES 2.0 impose additional restrictions on the
1717     * combinations of format, internalFormat, and type that can be used.
1718     * Formats and types that require additional extensions (e.g., GL_FLOAT
1719     * requires GL_OES_texture_float) are filtered elsewhere.
1720     */
1721    if (_mesa_is_gles(ctx) && !_mesa_is_gles3(ctx)) {
1722       if (format != internalFormat) {
1723          _mesa_error(ctx, GL_INVALID_OPERATION,
1724                      "glTexImage%dD(format = %s, internalFormat = %s)",
1725                      dimensions,
1726                      _mesa_lookup_enum_by_nr(format),
1727                      _mesa_lookup_enum_by_nr(internalFormat));
1728          return GL_TRUE;
1729       }
1730
1731       err = _mesa_es_error_check_format_and_type(format, type, dimensions);
1732       if (err != GL_NO_ERROR) {
1733          _mesa_error(ctx, err,
1734                      "glTexImage%dD(format = %s, type = %s)",
1735                      dimensions,
1736                      _mesa_lookup_enum_by_nr(format),
1737                      _mesa_lookup_enum_by_nr(type));
1738          return GL_TRUE;
1739       }
1740    }
1741
1742    /* Do this simple check before calling the TestProxyTexImage() function */
1743    if (proxyTarget == GL_PROXY_TEXTURE_CUBE_MAP_ARB) {
1744       sizeOK = (width == height);
1745    }
1746
1747    /*
1748     * Use the proxy texture driver hook to see if the size/level/etc are
1749     * legal.
1750     */
1751    sizeOK = sizeOK && ctx->Driver.TestProxyTexImage(ctx, proxyTarget, level,
1752                                                     internalFormat, format,
1753                                                     type, width, height,
1754                                                     depth, border);
1755    if (!sizeOK) {
1756       if (isProxy) {
1757          /* No GL error is recorded, but we need to zero-out the image dims */
1758          return PROXY_ERROR;
1759       }
1760       else {
1761          _mesa_error(ctx, GL_INVALID_VALUE,
1762                      "glTexImage%dD(level=%d, width=%d, height=%d, depth=%d)",
1763                      dimensions, level, width, height, depth);
1764          return GL_TRUE;
1765       }
1766    }
1767
1768    /* Check internalFormat */
1769    if (_mesa_base_tex_format(ctx, internalFormat) < 0) {
1770       _mesa_error(ctx, GL_INVALID_VALUE,
1771                   "glTexImage%dD(internalFormat=%s)",
1772                   dimensions, _mesa_lookup_enum_by_nr(internalFormat));
1773       return GL_TRUE;
1774    }
1775
1776    /* Check incoming image format and type */
1777    err = _mesa_error_check_format_and_type(ctx, format, type);
1778    if (err != GL_NO_ERROR) {
1779       _mesa_error(ctx, err,
1780                   "glTexImage%dD(incompatible format 0x%x, type 0x%x)",
1781                   dimensions, format, type);
1782       return GL_TRUE;
1783    }
1784
1785    /* make sure internal format and format basically agree */
1786    colorFormat = _mesa_is_color_format(format);
1787    if ((_mesa_is_color_format(internalFormat) && !colorFormat && !indexFormat) ||
1788        (_mesa_is_depth_format(internalFormat) != _mesa_is_depth_format(format)) ||
1789        (_mesa_is_ycbcr_format(internalFormat) != _mesa_is_ycbcr_format(format)) ||
1790        (_mesa_is_depthstencil_format(internalFormat) != _mesa_is_depthstencil_format(format)) ||
1791        (_mesa_is_dudv_format(internalFormat) != _mesa_is_dudv_format(format))) {
1792       _mesa_error(ctx, GL_INVALID_OPERATION,
1793                   "glTexImage%dD(incompatible internalFormat 0x%x, format 0x%x)",
1794                   dimensions, internalFormat, format);
1795       return GL_TRUE;
1796    }
1797
1798    /* additional checks for ycbcr textures */
1799    if (internalFormat == GL_YCBCR_MESA) {
1800       ASSERT(ctx->Extensions.MESA_ycbcr_texture);
1801       if (type != GL_UNSIGNED_SHORT_8_8_MESA &&
1802           type != GL_UNSIGNED_SHORT_8_8_REV_MESA) {
1803          char message[100];
1804          _mesa_snprintf(message, sizeof(message),
1805                         "glTexImage%dD(format/type YCBCR mismatch)",
1806                         dimensions);
1807          _mesa_error(ctx, GL_INVALID_ENUM, "%s", message);
1808          return GL_TRUE; /* error */
1809       }
1810       if (target != GL_TEXTURE_2D &&
1811           target != GL_PROXY_TEXTURE_2D &&
1812           target != GL_TEXTURE_RECTANGLE_NV &&
1813           target != GL_PROXY_TEXTURE_RECTANGLE_NV) {
1814          _mesa_error(ctx, GL_INVALID_ENUM,
1815                      "glTexImage%dD(bad target for YCbCr texture)",
1816                      dimensions);
1817          return GL_TRUE;
1818       }
1819       if (border != 0) {
1820          char message[100];
1821          _mesa_snprintf(message, sizeof(message),
1822                         "glTexImage%dD(format=GL_YCBCR_MESA and border=%d)",
1823                         dimensions, border);
1824          _mesa_error(ctx, GL_INVALID_VALUE, "%s", message);
1825          return GL_TRUE;
1826       }
1827    }
1828
1829    /* additional checks for depth textures */
1830    if (_mesa_base_tex_format(ctx, internalFormat) == GL_DEPTH_COMPONENT) {
1831       /* Only 1D, 2D, rect, array and cube textures supported, not 3D
1832        * Cubemaps are only supported for GL version > 3.0 or with EXT_gpu_shader4 */
1833       if (target != GL_TEXTURE_1D &&
1834           target != GL_PROXY_TEXTURE_1D &&
1835           target != GL_TEXTURE_2D &&
1836           target != GL_PROXY_TEXTURE_2D &&
1837           target != GL_TEXTURE_1D_ARRAY &&
1838           target != GL_PROXY_TEXTURE_1D_ARRAY &&
1839           target != GL_TEXTURE_2D_ARRAY &&
1840           target != GL_PROXY_TEXTURE_2D_ARRAY &&
1841           target != GL_TEXTURE_RECTANGLE_ARB &&
1842           target != GL_PROXY_TEXTURE_RECTANGLE_ARB &&
1843          !((_mesa_is_cube_face(target) || target == GL_PROXY_TEXTURE_CUBE_MAP) &&
1844            (ctx->Version >= 30 || ctx->Extensions.EXT_gpu_shader4))) {
1845          _mesa_error(ctx, GL_INVALID_ENUM,
1846                      "glTexImage%dD(bad target for depth texture)",
1847                      dimensions);
1848          return GL_TRUE;
1849       }
1850    }
1851
1852    /* additional checks for compressed textures */
1853    if (_mesa_is_compressed_format(ctx, internalFormat)) {
1854       if (!target_can_be_compressed(ctx, target, internalFormat)) {
1855          _mesa_error(ctx, GL_INVALID_ENUM,
1856                      "glTexImage%dD(target can't be compressed)", dimensions);
1857          return GL_TRUE;
1858       }
1859       if (compressedteximage_only_format(ctx, internalFormat)) {
1860          _mesa_error(ctx, GL_INVALID_OPERATION,
1861                      "glTexImage%dD(no compression for format)", dimensions);
1862          return GL_TRUE;
1863       }
1864       if (border != 0) {
1865          _mesa_error(ctx, GL_INVALID_OPERATION,
1866                      "glTexImage%dD(border!=0)", dimensions);
1867          return GL_TRUE;
1868       }
1869    }
1870
1871    /* additional checks for integer textures */
1872    if ((ctx->Version >= 30 || ctx->Extensions.EXT_texture_integer) &&
1873        (_mesa_is_enum_format_integer(format) !=
1874         _mesa_is_enum_format_integer(internalFormat))) {
1875       _mesa_error(ctx, GL_INVALID_OPERATION,
1876                   "glTexImage%dD(integer/non-integer format mismatch)",
1877                   dimensions);
1878       return GL_TRUE;
1879    }
1880
1881    if (!mutable_tex_object(ctx, target)) {
1882       _mesa_error(ctx, GL_INVALID_OPERATION,
1883                   "glTexImage%dD(immutable texture)", dimensions);
1884       return GL_TRUE;
1885    }
1886
1887    /* if we get here, the parameters are OK */
1888    return GL_FALSE;
1889 }
1890
1891
1892 /**
1893  * Test glTexSubImage[123]D() parameters for errors.
1894  *
1895  * \param ctx GL context.
1896  * \param dimensions texture image dimensions (must be 1, 2 or 3).
1897  * \param target texture target given by the user.
1898  * \param level image level given by the user.
1899  * \param xoffset sub-image x offset given by the user.
1900  * \param yoffset sub-image y offset given by the user.
1901  * \param zoffset sub-image z offset given by the user.
1902  * \param format pixel data format given by the user.
1903  * \param type pixel data type given by the user.
1904  * \param width image width given by the user.
1905  * \param height image height given by the user.
1906  * \param depth image depth given by the user.
1907  *
1908  * \return GL_TRUE if an error was detected, or GL_FALSE if no errors.
1909  *
1910  * Verifies each of the parameters against the constants specified in
1911  * __struct gl_contextRec::Const and the supported extensions, and according
1912  * to the OpenGL specification.
1913  */
1914 static GLboolean
1915 subtexture_error_check( struct gl_context *ctx, GLuint dimensions,
1916                         GLenum target, GLint level,
1917                         GLint xoffset, GLint yoffset, GLint zoffset,
1918                         GLint width, GLint height, GLint depth,
1919                         GLenum format, GLenum type )
1920 {
1921    GLenum err;
1922
1923    /* Basic level check */
1924    if (level < 0 || level >= MAX_TEXTURE_LEVELS) {
1925       _mesa_error(ctx, GL_INVALID_ENUM, "glTexSubImage2D(level=%d)", level);
1926       return GL_TRUE;
1927    }
1928
1929    /* Check for negative sizes */
1930    if (width < 0) {
1931       _mesa_error(ctx, GL_INVALID_VALUE,
1932                   "glTexSubImage%dD(width=%d)", dimensions, width);
1933       return GL_TRUE;
1934    }
1935    if (height < 0 && dimensions > 1) {
1936       _mesa_error(ctx, GL_INVALID_VALUE,
1937                   "glTexSubImage%dD(height=%d)", dimensions, height);
1938       return GL_TRUE;
1939    }
1940    if (depth < 0 && dimensions > 2) {
1941       _mesa_error(ctx, GL_INVALID_VALUE,
1942                   "glTexSubImage%dD(depth=%d)", dimensions, depth);
1943       return GL_TRUE;
1944    }
1945
1946    /* OpenGL ES 1.x and OpenGL ES 2.0 impose additional restrictions on the
1947     * combinations of format and type that can be used.  Formats and types
1948     * that require additional extensions (e.g., GL_FLOAT requires
1949     * GL_OES_texture_float) are filtered elsewhere.
1950     */
1951    if (_mesa_is_gles(ctx) && !_mesa_is_gles3(ctx)) {
1952       err = _mesa_es_error_check_format_and_type(format, type, dimensions);
1953       if (err != GL_NO_ERROR) {
1954          _mesa_error(ctx, err,
1955                      "glTexSubImage%dD(format = %s, type = %s)",
1956                      dimensions,
1957                      _mesa_lookup_enum_by_nr(format),
1958                      _mesa_lookup_enum_by_nr(type));
1959          return GL_TRUE;
1960       }
1961    }
1962
1963    err = _mesa_error_check_format_and_type(ctx, format, type);
1964    if (err != GL_NO_ERROR) {
1965       _mesa_error(ctx, err,
1966                   "glTexSubImage%dD(incompatible format 0x%x, type 0x%x)",
1967                   dimensions, format, type);
1968       return GL_TRUE;
1969    }
1970
1971    return GL_FALSE;
1972 }
1973
1974
1975 /**
1976  * Do second part of glTexSubImage which depends on the destination texture.
1977  * \return GL_TRUE if error recorded, GL_FALSE otherwise
1978  */
1979 static GLboolean
1980 subtexture_error_check2( struct gl_context *ctx, GLuint dimensions,
1981                          GLenum target, GLint level,
1982                          GLint xoffset, GLint yoffset, GLint zoffset,
1983                          GLint width, GLint height, GLint depth,
1984                          GLenum format, GLenum type,
1985                          const struct gl_texture_image *destTex )
1986 {
1987    if (!destTex) {
1988       /* undefined image level */
1989       _mesa_error(ctx, GL_INVALID_OPERATION, "glTexSubImage%dD", dimensions);
1990       return GL_TRUE;
1991    }
1992
1993    if (xoffset < -((GLint)destTex->Border)) {
1994       _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage%dD(xoffset)",
1995                   dimensions);
1996       return GL_TRUE;
1997    }
1998    if (xoffset + width > (GLint) (destTex->Width + destTex->Border)) {
1999       _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage%dD(xoffset+width)",
2000                   dimensions);
2001       return GL_TRUE;
2002    }
2003    if (dimensions > 1) {
2004       GLint yBorder = (target == GL_TEXTURE_1D_ARRAY) ? 0 : destTex->Border;
2005       if (yoffset < -yBorder) {
2006          _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage%dD(yoffset)",
2007                      dimensions);
2008          return GL_TRUE;
2009       }
2010       if (yoffset + height > (GLint) destTex->Height + yBorder) {
2011          _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage%dD(yoffset+height)",
2012                      dimensions);
2013          return GL_TRUE;
2014       }
2015    }
2016    if (dimensions > 2) {
2017       GLint zBorder = (target == GL_TEXTURE_2D_ARRAY) ? 0 : destTex->Border;
2018       if (zoffset < -zBorder) {
2019          _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage3D(zoffset)");
2020          return GL_TRUE;
2021       }
2022       if (zoffset + depth  > (GLint) destTex->Depth + zBorder) {
2023          _mesa_error(ctx, GL_INVALID_VALUE, "glTexSubImage3D(zoffset+depth)");
2024          return GL_TRUE;
2025       }
2026    }
2027
2028    if (_mesa_is_format_compressed(destTex->TexFormat)) {
2029       GLuint bw, bh;
2030
2031       if (compressedteximage_only_format(ctx, destTex->InternalFormat)) {
2032          _mesa_error(ctx, GL_INVALID_OPERATION,
2033                "glTexSubImage%dD(no compression for format)", dimensions);
2034          return GL_TRUE;
2035       }
2036
2037       /* do tests which depend on compression block size */
2038       _mesa_get_format_block_size(destTex->TexFormat, &bw, &bh);
2039
2040       /* offset must be multiple of block size */
2041       if ((xoffset % bw != 0) || (yoffset % bh != 0)) {
2042          _mesa_error(ctx, GL_INVALID_OPERATION,
2043                      "glTexSubImage%dD(xoffset = %d, yoffset = %d)",
2044                      dimensions, xoffset, yoffset);
2045          return GL_TRUE;
2046       }
2047       /* size must be multiple of bw by bh or equal to whole texture size */
2048       if ((width % bw != 0) && (GLuint) width != destTex->Width) {
2049          _mesa_error(ctx, GL_INVALID_OPERATION,
2050                      "glTexSubImage%dD(width = %d)", dimensions, width);
2051          return GL_TRUE;
2052       }
2053       if ((height % bh != 0) && (GLuint) height != destTex->Height) {
2054          _mesa_error(ctx, GL_INVALID_OPERATION,
2055                      "glTexSubImage%dD(height = %d)", dimensions, height);
2056          return GL_TRUE;
2057       }
2058    }
2059
2060    if (ctx->Version >= 30 || ctx->Extensions.EXT_texture_integer) {
2061       /* both source and dest must be integer-valued, or neither */
2062       if (_mesa_is_format_integer_color(destTex->TexFormat) !=
2063           _mesa_is_enum_format_integer(format)) {
2064          _mesa_error(ctx, GL_INVALID_OPERATION,
2065                      "glTexSubImage%dD(integer/non-integer format mismatch)",
2066                      dimensions);
2067          return GL_TRUE;
2068       }
2069    }
2070
2071    return GL_FALSE;
2072 }
2073
2074
2075 /**
2076  * Test glCopyTexImage[12]D() parameters for errors.
2077  *
2078  * \param ctx GL context.
2079  * \param dimensions texture image dimensions (must be 1, 2 or 3).
2080  * \param target texture target given by the user.
2081  * \param level image level given by the user.
2082  * \param internalFormat internal format given by the user.
2083  * \param width image width given by the user.
2084  * \param height image height given by the user.
2085  * \param border texture border.
2086  *
2087  * \return GL_TRUE if an error was detected, or GL_FALSE if no errors.
2088  *
2089  * Verifies each of the parameters against the constants specified in
2090  * __struct gl_contextRec::Const and the supported extensions, and according
2091  * to the OpenGL specification.
2092  */
2093 static GLboolean
2094 copytexture_error_check( struct gl_context *ctx, GLuint dimensions,
2095                          GLenum target, GLint level, GLint internalFormat,
2096                          GLint width, GLint height, GLint border )
2097 {
2098    const GLenum proxyTarget = get_proxy_target(target);
2099    const GLenum type = GL_FLOAT;
2100    GLboolean sizeOK;
2101    GLint baseFormat;
2102
2103    /* check target */
2104    if (!legal_texsubimage_target(ctx, dimensions, target)) {
2105       _mesa_error(ctx, GL_INVALID_ENUM, "glCopyTexImage%uD(target=%s)",
2106                   dimensions, _mesa_lookup_enum_by_nr(target));
2107       return GL_TRUE;
2108    }
2109
2110    /* Basic level check (more checking in ctx->Driver.TestProxyTexImage) */
2111    if (level < 0 || level >= MAX_TEXTURE_LEVELS) {
2112       _mesa_error(ctx, GL_INVALID_VALUE,
2113                   "glCopyTexImage%dD(level=%d)", dimensions, level);
2114       return GL_TRUE;
2115    }
2116
2117    /* Check that the source buffer is complete */
2118    if (_mesa_is_user_fbo(ctx->ReadBuffer)) {
2119       if (ctx->ReadBuffer->_Status == 0) {
2120          _mesa_test_framebuffer_completeness(ctx, ctx->ReadBuffer);
2121       }
2122       if (ctx->ReadBuffer->_Status != GL_FRAMEBUFFER_COMPLETE_EXT) {
2123          _mesa_error(ctx, GL_INVALID_FRAMEBUFFER_OPERATION_EXT,
2124                      "glCopyTexImage%dD(invalid readbuffer)", dimensions);
2125          return GL_TRUE;
2126       }
2127
2128       if (ctx->ReadBuffer->Visual.samples > 0) {
2129          _mesa_error(ctx, GL_INVALID_OPERATION,
2130                      "glCopyTexImage%dD(multisample FBO)",
2131                      dimensions);
2132          return GL_TRUE;
2133       }
2134    }
2135
2136    /* Check border */
2137    if (border < 0 || border > 1 ||
2138        ((ctx->API != API_OPENGL ||
2139          target == GL_TEXTURE_RECTANGLE_NV ||
2140          target == GL_PROXY_TEXTURE_RECTANGLE_NV) && border != 0)) {
2141       _mesa_error(ctx, GL_INVALID_VALUE,
2142                   "glCopyTexImage%dD(border=%d)", dimensions, border);
2143       return GL_TRUE;
2144    }
2145
2146    /* OpenGL ES 1.x and OpenGL ES 2.0 impose additional restrictions on the
2147     * internalFormat.
2148     */
2149    if (_mesa_is_gles(ctx) && !_mesa_is_gles3(ctx)) {
2150       switch (internalFormat) {
2151       case GL_ALPHA:
2152       case GL_RGB:
2153       case GL_RGBA:
2154       case GL_LUMINANCE:
2155       case GL_LUMINANCE_ALPHA:
2156          break;
2157       default:
2158          _mesa_error(ctx, GL_INVALID_VALUE,
2159                      "glCopyTexImage%dD(internalFormat)", dimensions);
2160          return GL_TRUE;
2161       }
2162    }
2163
2164    baseFormat = _mesa_base_tex_format(ctx, internalFormat);
2165    if (baseFormat < 0) {
2166       _mesa_error(ctx, GL_INVALID_VALUE,
2167                   "glCopyTexImage%dD(internalFormat)", dimensions);
2168       return GL_TRUE;
2169    }
2170
2171    if (!_mesa_source_buffer_exists(ctx, baseFormat)) {
2172       _mesa_error(ctx, GL_INVALID_OPERATION,
2173                   "glCopyTexImage%dD(missing readbuffer)", dimensions);
2174       return GL_TRUE;
2175    }
2176
2177    /* From the EXT_texture_integer spec:
2178     *
2179     *     "INVALID_OPERATION is generated by CopyTexImage* and CopyTexSubImage*
2180     *      if the texture internalformat is an integer format and the read color
2181     *      buffer is not an integer format, or if the internalformat is not an
2182     *      integer format and the read color buffer is an integer format."
2183     */
2184    if (_mesa_is_color_format(internalFormat)) {
2185       struct gl_renderbuffer *rb = ctx->ReadBuffer->_ColorReadBuffer;
2186
2187       if (_mesa_is_enum_format_integer(rb->InternalFormat) !=
2188           _mesa_is_enum_format_integer(internalFormat)) {
2189          _mesa_error(ctx, GL_INVALID_OPERATION,
2190                      "glCopyTexImage%dD(integer vs non-integer)", dimensions);
2191          return GL_TRUE;
2192       }
2193    }
2194
2195    /* Do size, level checking */
2196    sizeOK = (proxyTarget == GL_PROXY_TEXTURE_CUBE_MAP_ARB)
2197       ? (width == height) : 1;
2198
2199    sizeOK = sizeOK && ctx->Driver.TestProxyTexImage(ctx, proxyTarget, level,
2200                                                     internalFormat, baseFormat,
2201                                                     type, width, height,
2202                                                     1, border);
2203
2204    if (!sizeOK) {
2205       if (dimensions == 1) {
2206          _mesa_error(ctx, GL_INVALID_VALUE,
2207                      "glCopyTexImage1D(width=%d)", width);
2208       }
2209       else {
2210          ASSERT(dimensions == 2);
2211          _mesa_error(ctx, GL_INVALID_VALUE,
2212                      "glCopyTexImage2D(width=%d, height=%d)", width, height);
2213       }
2214       return GL_TRUE;
2215    }
2216
2217    if (_mesa_is_compressed_format(ctx, internalFormat)) {
2218       if (!target_can_be_compressed(ctx, target, internalFormat)) {
2219          _mesa_error(ctx, GL_INVALID_ENUM,
2220                      "glCopyTexImage%dD(target)", dimensions);
2221          return GL_TRUE;
2222       }
2223       if (compressedteximage_only_format(ctx, internalFormat)) {
2224          _mesa_error(ctx, GL_INVALID_OPERATION,
2225                "glCopyTexImage%dD(no compression for format)", dimensions);
2226          return GL_TRUE;
2227       }
2228       if (border != 0) {
2229          _mesa_error(ctx, GL_INVALID_OPERATION,
2230                      "glCopyTexImage%dD(border!=0)", dimensions);
2231          return GL_TRUE;
2232       }
2233    }
2234
2235    if (!mutable_tex_object(ctx, target)) {
2236       _mesa_error(ctx, GL_INVALID_OPERATION,
2237                   "glCopyTexImage%dD(immutable texture)", dimensions);
2238       return GL_TRUE;
2239    }
2240
2241    /* if we get here, the parameters are OK */
2242    return GL_FALSE;
2243 }
2244
2245
2246 /**
2247  * Test glCopyTexSubImage[12]D() parameters for errors.
2248  * Note that this is the first part of error checking.
2249  * See also copytexsubimage_error_check2() below for the second part.
2250  *
2251  * \param ctx GL context.
2252  * \param dimensions texture image dimensions (must be 1, 2 or 3).
2253  * \param target texture target given by the user.
2254  * \param level image level given by the user.
2255  *
2256  * \return GL_TRUE if an error was detected, or GL_FALSE if no errors.
2257  */
2258 static GLboolean
2259 copytexsubimage_error_check1( struct gl_context *ctx, GLuint dimensions,
2260                               GLenum target, GLint level)
2261 {
2262    /* Check that the source buffer is complete */
2263    if (_mesa_is_user_fbo(ctx->ReadBuffer)) {
2264       if (ctx->ReadBuffer->_Status == 0) {
2265          _mesa_test_framebuffer_completeness(ctx, ctx->ReadBuffer);
2266       }
2267       if (ctx->ReadBuffer->_Status != GL_FRAMEBUFFER_COMPLETE_EXT) {
2268          _mesa_error(ctx, GL_INVALID_FRAMEBUFFER_OPERATION_EXT,
2269                      "glCopyTexImage%dD(invalid readbuffer)", dimensions);
2270          return GL_TRUE;
2271       }
2272
2273       if (ctx->ReadBuffer->Visual.samples > 0) {
2274          _mesa_error(ctx, GL_INVALID_OPERATION,
2275                      "glCopyTexSubImage%dD(multisample FBO)",
2276                      dimensions);
2277          return GL_TRUE;
2278       }
2279    }
2280
2281    /* check target (proxies not allowed) */
2282    if (!legal_texsubimage_target(ctx, dimensions, target)) {
2283       _mesa_error(ctx, GL_INVALID_ENUM, "glCopyTexSubImage%uD(target=%s)",
2284                   dimensions, _mesa_lookup_enum_by_nr(target));
2285       return GL_TRUE;
2286    }
2287
2288    /* Check level */
2289    if (level < 0 || level >= MAX_TEXTURE_LEVELS) {
2290       _mesa_error(ctx, GL_INVALID_VALUE,
2291                   "glCopyTexSubImage%dD(level=%d)", dimensions, level);
2292       return GL_TRUE;
2293    }
2294
2295    return GL_FALSE;
2296 }
2297
2298
2299 /**
2300  * Second part of error checking for glCopyTexSubImage[12]D().
2301  * \param xoffset sub-image x offset given by the user.
2302  * \param yoffset sub-image y offset given by the user.
2303  * \param zoffset sub-image z offset given by the user.
2304  * \param width image width given by the user.
2305  * \param height image height given by the user.
2306  */
2307 static GLboolean
2308 copytexsubimage_error_check2( struct gl_context *ctx, GLuint dimensions,
2309                               GLenum target, GLint level,
2310                               GLint xoffset, GLint yoffset, GLint zoffset,
2311                               GLsizei width, GLsizei height,
2312                               const struct gl_texture_image *teximage )
2313 {
2314    /* check that dest tex image exists */
2315    if (!teximage) {
2316       _mesa_error(ctx, GL_INVALID_OPERATION,
2317                   "glCopyTexSubImage%dD(undefined texture level: %d)",
2318                   dimensions, level);
2319       return GL_TRUE;
2320    }
2321
2322    /* Check size */
2323    if (width < 0) {
2324       _mesa_error(ctx, GL_INVALID_VALUE,
2325                   "glCopyTexSubImage%dD(width=%d)", dimensions, width);
2326       return GL_TRUE;
2327    }
2328    if (dimensions > 1 && height < 0) {
2329       _mesa_error(ctx, GL_INVALID_VALUE,
2330                   "glCopyTexSubImage%dD(height=%d)", dimensions, height);
2331       return GL_TRUE;
2332    }
2333
2334    /* check x/y offsets */
2335    if (xoffset < -((GLint)teximage->Border)) {
2336       _mesa_error(ctx, GL_INVALID_VALUE,
2337                   "glCopyTexSubImage%dD(xoffset=%d)", dimensions, xoffset);
2338       return GL_TRUE;
2339    }
2340    if (xoffset + width > (GLint) (teximage->Width + teximage->Border)) {
2341       _mesa_error(ctx, GL_INVALID_VALUE,
2342                   "glCopyTexSubImage%dD(xoffset+width)", dimensions);
2343       return GL_TRUE;
2344    }
2345    if (dimensions > 1) {
2346       GLint yBorder = (target == GL_TEXTURE_1D_ARRAY) ? 0 : teximage->Border;
2347       if (yoffset < -yBorder) {
2348          _mesa_error(ctx, GL_INVALID_VALUE,
2349                      "glCopyTexSubImage%dD(yoffset=%d)", dimensions, yoffset);
2350          return GL_TRUE;
2351       }
2352       /* NOTE: we're adding the border here, not subtracting! */
2353       if (yoffset + height > (GLint) teximage->Height + yBorder) {
2354          _mesa_error(ctx, GL_INVALID_VALUE,
2355                      "glCopyTexSubImage%dD(yoffset+height)", dimensions);
2356          return GL_TRUE;
2357       }
2358    }
2359
2360    /* check z offset */
2361    if (dimensions > 2) {
2362       GLint zBorder = (target == GL_TEXTURE_2D_ARRAY) ? 0 : teximage->Border;
2363       if (zoffset < -zBorder) {
2364          _mesa_error(ctx, GL_INVALID_VALUE,
2365                      "glCopyTexSubImage%dD(zoffset)", dimensions);
2366          return GL_TRUE;
2367       }
2368       if (zoffset > (GLint) teximage->Depth + zBorder) {
2369          _mesa_error(ctx, GL_INVALID_VALUE,
2370                      "glCopyTexSubImage%dD(zoffset+depth)", dimensions);
2371          return GL_TRUE;
2372       }
2373    }
2374
2375    if (_mesa_is_format_compressed(teximage->TexFormat)) {
2376       if (compressedteximage_only_format(ctx, teximage->InternalFormat)) {
2377          _mesa_error(ctx, GL_INVALID_OPERATION,
2378                "glCopyTexSubImage%dD(no compression for format)", dimensions);
2379          return GL_TRUE;
2380       }
2381       /* offset must be multiple of 4 */
2382       if ((xoffset & 3) || (yoffset & 3)) {
2383          _mesa_error(ctx, GL_INVALID_VALUE,
2384                      "glCopyTexSubImage%dD(xoffset or yoffset)", dimensions);
2385          return GL_TRUE;
2386       }
2387       /* size must be multiple of 4 */
2388       if ((width & 3) != 0 && (GLuint) width != teximage->Width) {
2389          _mesa_error(ctx, GL_INVALID_VALUE,
2390                      "glCopyTexSubImage%dD(width)", dimensions);
2391          return GL_TRUE;
2392       }
2393       if ((height & 3) != 0 && (GLuint) height != teximage->Height) {
2394          _mesa_error(ctx, GL_INVALID_VALUE,
2395                      "glCopyTexSubImage%dD(height)", dimensions);
2396          return GL_TRUE;
2397       }
2398    }
2399
2400    if (teximage->InternalFormat == GL_YCBCR_MESA) {
2401       _mesa_error(ctx, GL_INVALID_OPERATION, "glCopyTexSubImage2D");
2402       return GL_TRUE;
2403    }
2404
2405    if (!_mesa_source_buffer_exists(ctx, teximage->_BaseFormat)) {
2406       _mesa_error(ctx, GL_INVALID_OPERATION,
2407                   "glCopyTexSubImage%dD(missing readbuffer, format=0x%x)",
2408                   dimensions, teximage->_BaseFormat);
2409       return GL_TRUE;
2410    }
2411
2412    /* From the EXT_texture_integer spec:
2413     *
2414     *     "INVALID_OPERATION is generated by CopyTexImage* and CopyTexSubImage*
2415     *      if the texture internalformat is an integer format and the read color
2416     *      buffer is not an integer format, or if the internalformat is not an
2417     *      integer format and the read color buffer is an integer format."
2418     */
2419    if (_mesa_is_color_format(teximage->InternalFormat)) {
2420       struct gl_renderbuffer *rb = ctx->ReadBuffer->_ColorReadBuffer;
2421
2422       if (_mesa_is_format_integer_color(rb->Format) !=
2423           _mesa_is_format_integer_color(teximage->TexFormat)) {
2424          _mesa_error(ctx, GL_INVALID_OPERATION,
2425                      "glCopyTexImage%dD(integer vs non-integer)", dimensions);
2426          return GL_TRUE;
2427       }
2428    }
2429
2430    /* if we get here, the parameters are OK */
2431    return GL_FALSE;
2432 }
2433
2434
2435 /** Callback info for walking over FBO hash table */
2436 struct cb_info
2437 {
2438    struct gl_context *ctx;
2439    struct gl_texture_object *texObj;
2440    GLuint level, face;
2441 };
2442
2443
2444 /**
2445  * Check render to texture callback.  Called from _mesa_HashWalk().
2446  */
2447 static void
2448 check_rtt_cb(GLuint key, void *data, void *userData)
2449 {
2450    struct gl_framebuffer *fb = (struct gl_framebuffer *) data;
2451    const struct cb_info *info = (struct cb_info *) userData;
2452    struct gl_context *ctx = info->ctx;
2453    const struct gl_texture_object *texObj = info->texObj;
2454    const GLuint level = info->level, face = info->face;
2455
2456    /* If this is a user-created FBO */
2457    if (_mesa_is_user_fbo(fb)) {
2458       GLuint i;
2459       /* check if any of the FBO's attachments point to 'texObj' */
2460       for (i = 0; i < BUFFER_COUNT; i++) {
2461          struct gl_renderbuffer_attachment *att = fb->Attachment + i;
2462          if (att->Type == GL_TEXTURE &&
2463              att->Texture == texObj &&
2464              att->TextureLevel == level &&
2465              att->CubeMapFace == face) {
2466             ASSERT(_mesa_get_attachment_teximage(att));
2467             /* Tell driver about the new renderbuffer texture */
2468             ctx->Driver.RenderTexture(ctx, ctx->DrawBuffer, att);
2469             /* Mark fb status as indeterminate to force re-validation */
2470             fb->_Status = 0;
2471          }
2472       }
2473    }
2474 }
2475
2476
2477 /**
2478  * When a texture image is specified we have to check if it's bound to
2479  * any framebuffer objects (render to texture) in order to detect changes
2480  * in size or format since that effects FBO completeness.
2481  * Any FBOs rendering into the texture must be re-validated.
2482  */
2483 void
2484 _mesa_update_fbo_texture(struct gl_context *ctx,
2485                          struct gl_texture_object *texObj,
2486                          GLuint face, GLuint level)
2487 {
2488    /* Only check this texture if it's been marked as RenderToTexture */
2489    if (texObj->_RenderToTexture) {
2490       struct cb_info info;
2491       info.ctx = ctx;
2492       info.texObj = texObj;
2493       info.level = level;
2494       info.face = face;
2495       _mesa_HashWalk(ctx->Shared->FrameBuffers, check_rtt_cb, &info);
2496    }
2497 }
2498
2499
2500 /**
2501  * If the texture object's GenerateMipmap flag is set and we've
2502  * changed the texture base level image, regenerate the rest of the
2503  * mipmap levels now.
2504  */
2505 static inline void
2506 check_gen_mipmap(struct gl_context *ctx, GLenum target,
2507                  struct gl_texture_object *texObj, GLint level)
2508 {
2509    ASSERT(target != GL_TEXTURE_CUBE_MAP);
2510    if (texObj->GenerateMipmap &&
2511        level == texObj->BaseLevel &&
2512        level < texObj->MaxLevel) {
2513       ASSERT(ctx->Driver.GenerateMipmap);
2514       ctx->Driver.GenerateMipmap(ctx, target, texObj);
2515    }
2516 }
2517
2518
2519 /** Debug helper: override the user-requested internal format */
2520 static GLenum
2521 override_internal_format(GLenum internalFormat, GLint width, GLint height)
2522 {
2523 #if 0
2524    if (internalFormat == GL_RGBA16F_ARB ||
2525        internalFormat == GL_RGBA32F_ARB) {
2526       printf("Convert rgba float tex to int %d x %d\n", width, height);
2527       return GL_RGBA;
2528    }
2529    else if (internalFormat == GL_RGB16F_ARB ||
2530             internalFormat == GL_RGB32F_ARB) {
2531       printf("Convert rgb float tex to int %d x %d\n", width, height);
2532       return GL_RGB;
2533    }
2534    else if (internalFormat == GL_LUMINANCE_ALPHA16F_ARB ||
2535             internalFormat == GL_LUMINANCE_ALPHA32F_ARB) {
2536       printf("Convert luminance float tex to int %d x %d\n", width, height);
2537       return GL_LUMINANCE_ALPHA;
2538    }
2539    else if (internalFormat == GL_LUMINANCE16F_ARB ||
2540             internalFormat == GL_LUMINANCE32F_ARB) {
2541       printf("Convert luminance float tex to int %d x %d\n", width, height);
2542       return GL_LUMINANCE;
2543    }
2544    else if (internalFormat == GL_ALPHA16F_ARB ||
2545             internalFormat == GL_ALPHA32F_ARB) {
2546       printf("Convert luminance float tex to int %d x %d\n", width, height);
2547       return GL_ALPHA;
2548    }
2549    /*
2550    else if (internalFormat == GL_COMPRESSED_RGBA_S3TC_DXT1_EXT) {
2551       internalFormat = GL_RGBA;
2552    }
2553    */
2554    else {
2555       return internalFormat;
2556    }
2557 #else
2558    return internalFormat;
2559 #endif
2560 }
2561
2562
2563 /**
2564  * Choose the actual hardware format for a texture image.
2565  * Try to use the same format as the previous image level when possible.
2566  * Otherwise, ask the driver for the best format.
2567  * It's important to try to choose a consistant format for all levels
2568  * for efficient texture memory layout/allocation.  In particular, this
2569  * comes up during automatic mipmap generation.
2570  */
2571 gl_format
2572 _mesa_choose_texture_format(struct gl_context *ctx,
2573                             struct gl_texture_object *texObj,
2574                             GLenum target, GLint level,
2575                             GLenum internalFormat, GLenum format, GLenum type)
2576 {
2577    gl_format f;
2578
2579    /* see if we've already chosen a format for the previous level */
2580    if (level > 0) {
2581       struct gl_texture_image *prevImage =
2582          _mesa_select_tex_image(ctx, texObj, target, level - 1);
2583       /* See if the prev level is defined and has an internal format which
2584        * matches the new internal format.
2585        */
2586       if (prevImage &&
2587           prevImage->Width > 0 &&
2588           prevImage->InternalFormat == internalFormat) {
2589          /* use the same format */
2590          ASSERT(prevImage->TexFormat != MESA_FORMAT_NONE);
2591          return prevImage->TexFormat;
2592       }
2593    }
2594
2595    /* choose format from scratch */
2596    f = ctx->Driver.ChooseTextureFormat(ctx, internalFormat, format, type);
2597    ASSERT(f != MESA_FORMAT_NONE);
2598    return f;
2599 }
2600
2601 /**
2602  * Adjust pixel unpack params and image dimensions to strip off the
2603  * one-pixel texture border.
2604  *
2605  * Gallium and intel don't support texture borders.  They've seldem been used
2606  * and seldom been implemented correctly anyway.
2607  *
2608  * \param unpackNew returns the new pixel unpack parameters
2609  */
2610 static void
2611 strip_texture_border(GLenum target,
2612                      GLint *width, GLint *height, GLint *depth,
2613                      const struct gl_pixelstore_attrib *unpack,
2614                      struct gl_pixelstore_attrib *unpackNew)
2615 {
2616    assert(width);
2617    assert(height);
2618    assert(depth);
2619
2620    *unpackNew = *unpack;
2621
2622    if (unpackNew->RowLength == 0)
2623       unpackNew->RowLength = *width;
2624
2625    if (unpackNew->ImageHeight == 0)
2626       unpackNew->ImageHeight = *height;
2627
2628    assert(*width >= 3);
2629    unpackNew->SkipPixels++;  /* skip the border */
2630    *width = *width - 2;      /* reduce the width by two border pixels */
2631
2632    /* The min height of a texture with a border is 3 */
2633    if (*height >= 3 && target != GL_TEXTURE_1D_ARRAY) {
2634       unpackNew->SkipRows++;  /* skip the border */
2635       *height = *height - 2;  /* reduce the height by two border pixels */
2636    }
2637
2638    if (*depth >= 3 && target != GL_TEXTURE_2D_ARRAY) {
2639       unpackNew->SkipImages++;  /* skip the border */
2640       *depth = *depth - 2;      /* reduce the depth by two border pixels */
2641    }
2642 }
2643
2644 /**
2645  * Common code to implement all the glTexImage1D/2D/3D functions.
2646  */
2647 static void
2648 teximage(struct gl_context *ctx, GLuint dims,
2649          GLenum target, GLint level, GLint internalFormat,
2650          GLsizei width, GLsizei height, GLsizei depth,
2651          GLint border, GLenum format, GLenum type,
2652          const GLvoid *pixels)
2653 {
2654    GLenum error;
2655    struct gl_pixelstore_attrib unpack_no_border;
2656    const struct gl_pixelstore_attrib *unpack = &ctx->Unpack;
2657
2658    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
2659
2660    if (MESA_VERBOSE & (VERBOSE_API|VERBOSE_TEXTURE))
2661       _mesa_debug(ctx, "glTexImage%uD %s %d %s %d %d %d %d %s %s %p\n",
2662                   dims,
2663                   _mesa_lookup_enum_by_nr(target), level,
2664                   _mesa_lookup_enum_by_nr(internalFormat),
2665                   width, height, depth, border,
2666                   _mesa_lookup_enum_by_nr(format),
2667                   _mesa_lookup_enum_by_nr(type), pixels);
2668
2669    internalFormat = override_internal_format(internalFormat, width, height);
2670
2671    /* target error checking */
2672    if (!legal_teximage_target(ctx, dims, target)) {
2673       _mesa_error(ctx, GL_INVALID_ENUM, "glTexImage%uD(target=%s)",
2674                   dims, _mesa_lookup_enum_by_nr(target));
2675       return;
2676    }
2677
2678    /* general error checking */
2679    error = texture_error_check(ctx, dims, target, level, internalFormat,
2680                                format, type, width, height, depth, border);
2681
2682    if (_mesa_is_proxy_texture(target)) {
2683       /* Proxy texture: just clear or set state depending on error checking */
2684       struct gl_texture_image *texImage =
2685          get_proxy_tex_image(ctx, target, level);
2686
2687       if (error == PROXY_ERROR) {
2688          /* image too large, etc.  Clear all proxy texture image parameters. */
2689          if (texImage)
2690             clear_teximage_fields(texImage);
2691       }
2692       else if (error == GL_FALSE) {
2693          /* no error, set the tex image parameters */
2694          struct gl_texture_object *texObj =
2695             _mesa_get_current_tex_object(ctx, target);
2696          gl_format texFormat = _mesa_choose_texture_format(ctx, texObj,
2697                                                            target, level,
2698                                                            internalFormat,
2699                                                            format, type);
2700
2701          if (legal_texture_size(ctx, texFormat, width, height, depth)) {
2702             _mesa_init_teximage_fields(ctx, texImage, width, height,
2703                                        depth, border, internalFormat,
2704                                        texFormat);
2705          }
2706          else if (texImage) {
2707             clear_teximage_fields(texImage);
2708          }
2709       }
2710    }
2711    else {
2712       /* non-proxy target */
2713       const GLuint face = _mesa_tex_target_to_face(target);
2714       struct gl_texture_object *texObj;
2715       struct gl_texture_image *texImage;
2716
2717       if (error) {
2718          return;   /* error was recorded */
2719       }
2720
2721       /* Allow a hardware driver to just strip out the border, to provide
2722        * reliable but slightly incorrect hardware rendering instead of
2723        * rarely-tested software fallback rendering.
2724        */
2725       if (border && ctx->Const.StripTextureBorder) {
2726          strip_texture_border(target, &width, &height, &depth, unpack,
2727                               &unpack_no_border);
2728          border = 0;
2729          unpack = &unpack_no_border;
2730       }
2731
2732       if (ctx->NewState & _NEW_PIXEL)
2733          _mesa_update_state(ctx);
2734
2735       texObj = _mesa_get_current_tex_object(ctx, target);
2736
2737       _mesa_lock_texture(ctx, texObj);
2738       {
2739          texImage = _mesa_get_tex_image(ctx, texObj, target, level);
2740
2741          if (!texImage) {
2742             _mesa_error(ctx, GL_OUT_OF_MEMORY, "glTexImage%uD", dims);
2743          }
2744          else {
2745             gl_format texFormat;
2746
2747             ctx->Driver.FreeTextureImageBuffer(ctx, texImage);
2748
2749             texFormat = _mesa_choose_texture_format(ctx, texObj, target, level,
2750                                                     internalFormat, format,
2751                                                     type);
2752
2753             if (legal_texture_size(ctx, texFormat, width, height, depth)) {
2754                _mesa_init_teximage_fields(ctx, texImage,
2755                                           width, height, depth,
2756                                           border, internalFormat, texFormat);
2757
2758                /* Give the texture to the driver.  <pixels> may be null. */
2759                ctx->Driver.TexImage(ctx, dims, texImage, format,
2760                                     type, pixels, unpack);
2761
2762                check_gen_mipmap(ctx, target, texObj, level);
2763
2764                _mesa_update_fbo_texture(ctx, texObj, face, level);
2765
2766                _mesa_dirty_texobj(ctx, texObj, GL_TRUE);
2767             }
2768             else {
2769                _mesa_error(ctx, GL_OUT_OF_MEMORY, "glTexImage%uD", dims);
2770             }
2771          }
2772       }
2773       _mesa_unlock_texture(ctx, texObj);
2774    }
2775 }
2776
2777
2778 /*
2779  * Called from the API.  Note that width includes the border.
2780  */
2781 void GLAPIENTRY
2782 _mesa_TexImage1D( GLenum target, GLint level, GLint internalFormat,
2783                   GLsizei width, GLint border, GLenum format,
2784                   GLenum type, const GLvoid *pixels )
2785 {
2786    GET_CURRENT_CONTEXT(ctx);
2787    teximage(ctx, 1, target, level, internalFormat, width, 1, 1,
2788             border, format, type, pixels);
2789 }
2790
2791
2792 void GLAPIENTRY
2793 _mesa_TexImage2D( GLenum target, GLint level, GLint internalFormat,
2794                   GLsizei width, GLsizei height, GLint border,
2795                   GLenum format, GLenum type,
2796                   const GLvoid *pixels )
2797 {
2798    GET_CURRENT_CONTEXT(ctx);
2799    teximage(ctx, 2, target, level, internalFormat, width, height, 1,
2800             border, format, type, pixels);
2801 }
2802
2803
2804 /*
2805  * Called by the API or display list executor.
2806  * Note that width and height include the border.
2807  */
2808 void GLAPIENTRY
2809 _mesa_TexImage3D( GLenum target, GLint level, GLint internalFormat,
2810                   GLsizei width, GLsizei height, GLsizei depth,
2811                   GLint border, GLenum format, GLenum type,
2812                   const GLvoid *pixels )
2813 {
2814    GET_CURRENT_CONTEXT(ctx);
2815    teximage(ctx, 3, target, level, internalFormat, width, height, depth,
2816             border, format, type, pixels);
2817 }
2818
2819
2820 void GLAPIENTRY
2821 _mesa_TexImage3DEXT( GLenum target, GLint level, GLenum internalFormat,
2822                      GLsizei width, GLsizei height, GLsizei depth,
2823                      GLint border, GLenum format, GLenum type,
2824                      const GLvoid *pixels )
2825 {
2826    _mesa_TexImage3D(target, level, (GLint) internalFormat, width, height,
2827                     depth, border, format, type, pixels);
2828 }
2829
2830
2831 #if FEATURE_OES_EGL_image
2832 void GLAPIENTRY
2833 _mesa_EGLImageTargetTexture2DOES (GLenum target, GLeglImageOES image)
2834 {
2835    struct gl_texture_object *texObj;
2836    struct gl_texture_image *texImage;
2837    bool valid_target;
2838    GET_CURRENT_CONTEXT(ctx);
2839    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
2840
2841    switch (target) {
2842    case GL_TEXTURE_2D:
2843       valid_target = ctx->Extensions.OES_EGL_image;
2844       break;
2845    case GL_TEXTURE_EXTERNAL_OES:
2846       valid_target = ctx->Extensions.OES_EGL_image_external;
2847       break;
2848    default:
2849       valid_target = false;
2850       break;
2851    }
2852
2853    if (!valid_target) {
2854       _mesa_error(ctx, GL_INVALID_ENUM,
2855                   "glEGLImageTargetTexture2D(target=%d)", target);
2856       return;
2857    }
2858
2859    if (ctx->NewState & _NEW_PIXEL)
2860       _mesa_update_state(ctx);
2861
2862    texObj = _mesa_get_current_tex_object(ctx, target);
2863    _mesa_lock_texture(ctx, texObj);
2864
2865    if (texObj->Immutable) {
2866       _mesa_error(ctx, GL_INVALID_OPERATION,
2867                   "glEGLImageTargetTexture2D(texture is immutable)");
2868       _mesa_unlock_texture(ctx, texObj);
2869       return;
2870    }
2871
2872    texImage = _mesa_get_tex_image(ctx, texObj, target, 0);
2873    if (!texImage) {
2874       _mesa_error(ctx, GL_OUT_OF_MEMORY, "glEGLImageTargetTexture2D");
2875    } else {
2876       ctx->Driver.FreeTextureImageBuffer(ctx, texImage);
2877
2878       ctx->Driver.EGLImageTargetTexture2D(ctx, target,
2879                                           texObj, texImage, image);
2880
2881       _mesa_dirty_texobj(ctx, texObj, GL_TRUE);
2882    }
2883    _mesa_unlock_texture(ctx, texObj);
2884
2885 }
2886 #endif
2887
2888
2889
2890 /**
2891  * Implement all the glTexSubImage1/2/3D() functions.
2892  */
2893 static void
2894 texsubimage(struct gl_context *ctx, GLuint dims, GLenum target, GLint level,
2895             GLint xoffset, GLint yoffset, GLint zoffset,
2896             GLsizei width, GLsizei height, GLsizei depth,
2897             GLenum format, GLenum type, const GLvoid *pixels )
2898 {
2899    struct gl_texture_object *texObj;
2900    struct gl_texture_image *texImage;
2901
2902    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
2903
2904    if (MESA_VERBOSE & (VERBOSE_API|VERBOSE_TEXTURE))
2905       _mesa_debug(ctx, "glTexSubImage%uD %s %d %d %d %d %d %d %d %s %s %p\n",
2906                   dims,
2907                   _mesa_lookup_enum_by_nr(target), level,
2908                   xoffset, yoffset, zoffset, width, height, depth,
2909                   _mesa_lookup_enum_by_nr(format),
2910                   _mesa_lookup_enum_by_nr(type), pixels);
2911
2912    /* check target (proxies not allowed) */
2913    if (!legal_texsubimage_target(ctx, dims, target)) {
2914       _mesa_error(ctx, GL_INVALID_ENUM, "glTexSubImage%uD(target=%s)",
2915                   dims, _mesa_lookup_enum_by_nr(target));
2916       return;
2917    }
2918
2919    if (ctx->NewState & _NEW_PIXEL)
2920       _mesa_update_state(ctx);
2921
2922    if (subtexture_error_check(ctx, dims, target, level, xoffset, yoffset, zoffset,
2923                               width, height, depth, format, type)) {
2924       return;   /* error was detected */
2925    }
2926
2927    texObj = _mesa_get_current_tex_object(ctx, target);
2928
2929    _mesa_lock_texture(ctx, texObj);
2930    {
2931       texImage = _mesa_select_tex_image(ctx, texObj, target, level);
2932
2933       if (subtexture_error_check2(ctx, dims, target, level,
2934                                   xoffset, yoffset, zoffset,
2935                                   width, height, depth,
2936                                   format, type, texImage)) {
2937          /* error was recorded */
2938       }
2939       else if (width > 0 && height > 0 && depth > 0) {
2940          /* If we have a border, offset=-1 is legal.  Bias by border width. */
2941          switch (dims) {
2942          case 3:
2943             if (target != GL_TEXTURE_2D_ARRAY)
2944                zoffset += texImage->Border;
2945             /* fall-through */
2946          case 2:
2947             if (target != GL_TEXTURE_1D_ARRAY)
2948                yoffset += texImage->Border;
2949             /* fall-through */
2950          case 1:
2951             xoffset += texImage->Border;
2952          }
2953
2954          ctx->Driver.TexSubImage(ctx, dims, texImage,
2955                                  xoffset, yoffset, zoffset,
2956                                  width, height, depth,
2957                                  format, type, pixels, &ctx->Unpack);
2958
2959          check_gen_mipmap(ctx, target, texObj, level);
2960
2961          ctx->NewState |= _NEW_TEXTURE;
2962       }
2963    }
2964    _mesa_unlock_texture(ctx, texObj);
2965 }
2966
2967
2968 void GLAPIENTRY
2969 _mesa_TexSubImage1D( GLenum target, GLint level,
2970                      GLint xoffset, GLsizei width,
2971                      GLenum format, GLenum type,
2972                      const GLvoid *pixels )
2973 {
2974    GET_CURRENT_CONTEXT(ctx);
2975    texsubimage(ctx, 1, target, level,
2976                xoffset, 0, 0,
2977                width, 1, 1,
2978                format, type, pixels);
2979 }
2980
2981
2982 void GLAPIENTRY
2983 _mesa_TexSubImage2D( GLenum target, GLint level,
2984                      GLint xoffset, GLint yoffset,
2985                      GLsizei width, GLsizei height,
2986                      GLenum format, GLenum type,
2987                      const GLvoid *pixels )
2988 {
2989    GET_CURRENT_CONTEXT(ctx);
2990    texsubimage(ctx, 2, target, level,
2991                xoffset, yoffset, 0,
2992                width, height, 1,
2993                format, type, pixels);
2994 }
2995
2996
2997
2998 void GLAPIENTRY
2999 _mesa_TexSubImage3D( GLenum target, GLint level,
3000                      GLint xoffset, GLint yoffset, GLint zoffset,
3001                      GLsizei width, GLsizei height, GLsizei depth,
3002                      GLenum format, GLenum type,
3003                      const GLvoid *pixels )
3004 {
3005    GET_CURRENT_CONTEXT(ctx);
3006    texsubimage(ctx, 3, target, level,
3007                xoffset, yoffset, zoffset,
3008                width, height, depth,
3009                format, type, pixels);
3010 }
3011
3012
3013
3014 /**
3015  * For glCopyTexSubImage, return the source renderbuffer to copy texel data
3016  * from.  This depends on whether the texture contains color or depth values.
3017  */
3018 static struct gl_renderbuffer *
3019 get_copy_tex_image_source(struct gl_context *ctx, gl_format texFormat)
3020 {
3021    if (_mesa_get_format_bits(texFormat, GL_DEPTH_BITS) > 0) {
3022       /* reading from depth/stencil buffer */
3023       return ctx->ReadBuffer->Attachment[BUFFER_DEPTH].Renderbuffer;
3024    }
3025    else {
3026       /* copying from color buffer */
3027       return ctx->ReadBuffer->_ColorReadBuffer;
3028    }
3029 }
3030
3031
3032
3033 /**
3034  * Implement the glCopyTexImage1/2D() functions.
3035  */
3036 static void
3037 copyteximage(struct gl_context *ctx, GLuint dims,
3038              GLenum target, GLint level, GLenum internalFormat,
3039              GLint x, GLint y, GLsizei width, GLsizei height, GLint border )
3040 {
3041    struct gl_texture_object *texObj;
3042    struct gl_texture_image *texImage;
3043    const GLuint face = _mesa_tex_target_to_face(target);
3044
3045    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
3046
3047    if (MESA_VERBOSE & (VERBOSE_API|VERBOSE_TEXTURE))
3048       _mesa_debug(ctx, "glCopyTexImage%uD %s %d %s %d %d %d %d %d\n",
3049                   dims,
3050                   _mesa_lookup_enum_by_nr(target), level,
3051                   _mesa_lookup_enum_by_nr(internalFormat),
3052                   x, y, width, height, border);
3053
3054    if (ctx->NewState & NEW_COPY_TEX_STATE)
3055       _mesa_update_state(ctx);
3056
3057    if (copytexture_error_check(ctx, dims, target, level, internalFormat,
3058                                width, height, border))
3059       return;
3060
3061    texObj = _mesa_get_current_tex_object(ctx, target);
3062
3063    if (border && ctx->Const.StripTextureBorder) {
3064       x += border;
3065       width -= border * 2;
3066       if (dims == 2) {
3067          y += border;
3068          height -= border * 2;
3069       }
3070       border = 0;
3071    }
3072
3073    _mesa_lock_texture(ctx, texObj);
3074    {
3075       texImage = _mesa_get_tex_image(ctx, texObj, target, level);
3076
3077       if (!texImage) {
3078          _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCopyTexImage%uD", dims);
3079       }
3080       else {
3081          /* choose actual hw format */
3082          gl_format texFormat = _mesa_choose_texture_format(ctx, texObj,
3083                                                            target, level,
3084                                                            internalFormat,
3085                                                            GL_NONE, GL_NONE);
3086
3087          if (legal_texture_size(ctx, texFormat, width, height, 1)) {
3088             GLint srcX = x, srcY = y, dstX = 0, dstY = 0, dstZ = 0;
3089
3090             /* Free old texture image */
3091             ctx->Driver.FreeTextureImageBuffer(ctx, texImage);
3092
3093             _mesa_init_teximage_fields(ctx, texImage, width, height, 1,
3094                                        border, internalFormat, texFormat);
3095
3096             /* Allocate texture memory (no pixel data yet) */
3097             ctx->Driver.TexImage(ctx, dims, texImage,
3098                                  GL_NONE, GL_NONE,
3099                                  NULL, &ctx->Unpack);
3100
3101             if (_mesa_clip_copytexsubimage(ctx, &dstX, &dstY, &srcX, &srcY,
3102                                            &width, &height)) {
3103                struct gl_renderbuffer *srcRb =
3104                   get_copy_tex_image_source(ctx, texImage->TexFormat);
3105
3106                ctx->Driver.CopyTexSubImage(ctx, dims, texImage, dstX, dstY, dstZ,
3107                                            srcRb, srcX, srcY, width, height);
3108             }
3109
3110             check_gen_mipmap(ctx, target, texObj, level);
3111
3112             _mesa_update_fbo_texture(ctx, texObj, face, level);
3113
3114             _mesa_dirty_texobj(ctx, texObj, GL_TRUE);
3115          }
3116          else {
3117             /* probably too large of image */
3118             _mesa_error(ctx, GL_OUT_OF_MEMORY, "glCopyTexImage%uD", dims);
3119          }
3120       }
3121    }
3122    _mesa_unlock_texture(ctx, texObj);
3123 }
3124
3125
3126
3127 void GLAPIENTRY
3128 _mesa_CopyTexImage1D( GLenum target, GLint level,
3129                       GLenum internalFormat,
3130                       GLint x, GLint y,
3131                       GLsizei width, GLint border )
3132 {
3133    GET_CURRENT_CONTEXT(ctx);
3134    copyteximage(ctx, 1, target, level, internalFormat, x, y, width, 1, border);
3135 }
3136
3137
3138
3139 void GLAPIENTRY
3140 _mesa_CopyTexImage2D( GLenum target, GLint level, GLenum internalFormat,
3141                       GLint x, GLint y, GLsizei width, GLsizei height,
3142                       GLint border )
3143 {
3144    GET_CURRENT_CONTEXT(ctx);
3145    copyteximage(ctx, 2, target, level, internalFormat,
3146                 x, y, width, height, border);
3147 }
3148
3149
3150
3151 /**
3152  * Implementation for glCopyTexSubImage1/2/3D() functions.
3153  */
3154 static void
3155 copytexsubimage(struct gl_context *ctx, GLuint dims, GLenum target, GLint level,
3156                 GLint xoffset, GLint yoffset, GLint zoffset,
3157                 GLint x, GLint y, GLsizei width, GLsizei height)
3158 {
3159    struct gl_texture_object *texObj;
3160    struct gl_texture_image *texImage;
3161
3162    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
3163
3164    if (MESA_VERBOSE & (VERBOSE_API|VERBOSE_TEXTURE))
3165       _mesa_debug(ctx, "glCopyTexSubImage%uD %s %d %d %d %d %d %d %d %d\n",
3166                   dims,
3167                   _mesa_lookup_enum_by_nr(target),
3168                   level, xoffset, yoffset, zoffset, x, y, width, height);
3169
3170    if (ctx->NewState & NEW_COPY_TEX_STATE)
3171       _mesa_update_state(ctx);
3172
3173    if (copytexsubimage_error_check1(ctx, dims, target, level))
3174       return;
3175
3176    texObj = _mesa_get_current_tex_object(ctx, target);
3177
3178    _mesa_lock_texture(ctx, texObj);
3179    {
3180       texImage = _mesa_select_tex_image(ctx, texObj, target, level);
3181
3182       if (copytexsubimage_error_check2(ctx, dims, target, level, xoffset, yoffset,
3183                                        zoffset, width, height, texImage)) {
3184          /* error was recored */
3185       }
3186       else {
3187          /* If we have a border, offset=-1 is legal.  Bias by border width. */
3188          switch (dims) {
3189          case 3:
3190             if (target != GL_TEXTURE_2D_ARRAY)
3191                zoffset += texImage->Border;
3192             /* fall-through */
3193          case 2:
3194             if (target != GL_TEXTURE_1D_ARRAY)
3195                yoffset += texImage->Border;
3196             /* fall-through */
3197          case 1:
3198             xoffset += texImage->Border;
3199          }
3200
3201          if (_mesa_clip_copytexsubimage(ctx, &xoffset, &yoffset, &x, &y,
3202                                         &width, &height)) {
3203             struct gl_renderbuffer *srcRb =
3204                get_copy_tex_image_source(ctx, texImage->TexFormat);
3205
3206             ctx->Driver.CopyTexSubImage(ctx, dims, texImage,
3207                                         xoffset, yoffset, zoffset,
3208                                         srcRb, x, y, width, height);
3209
3210             check_gen_mipmap(ctx, target, texObj, level);
3211
3212             ctx->NewState |= _NEW_TEXTURE;
3213          }
3214       }
3215    }
3216    _mesa_unlock_texture(ctx, texObj);
3217 }
3218
3219
3220 void GLAPIENTRY
3221 _mesa_CopyTexSubImage1D( GLenum target, GLint level,
3222                          GLint xoffset, GLint x, GLint y, GLsizei width )
3223 {
3224    GET_CURRENT_CONTEXT(ctx);
3225    copytexsubimage(ctx, 1, target, level, xoffset, 0, 0, x, y, width, 1);
3226 }
3227
3228
3229
3230 void GLAPIENTRY
3231 _mesa_CopyTexSubImage2D( GLenum target, GLint level,
3232                          GLint xoffset, GLint yoffset,
3233                          GLint x, GLint y, GLsizei width, GLsizei height )
3234 {
3235    GET_CURRENT_CONTEXT(ctx);
3236    copytexsubimage(ctx, 2, target, level, xoffset, yoffset, 0, x, y,
3237                    width, height);
3238 }
3239
3240
3241
3242 void GLAPIENTRY
3243 _mesa_CopyTexSubImage3D( GLenum target, GLint level,
3244                          GLint xoffset, GLint yoffset, GLint zoffset,
3245                          GLint x, GLint y, GLsizei width, GLsizei height )
3246 {
3247    GET_CURRENT_CONTEXT(ctx);
3248    copytexsubimage(ctx, 3, target, level, xoffset, yoffset, zoffset,
3249                    x, y, width, height);
3250 }
3251
3252
3253
3254
3255 /**********************************************************************/
3256 /******                   Compressed Textures                    ******/
3257 /**********************************************************************/
3258
3259
3260 /**
3261  * Return expected size of a compressed texture.
3262  */
3263 static GLuint
3264 compressed_tex_size(GLsizei width, GLsizei height, GLsizei depth,
3265                     GLenum glformat)
3266 {
3267    gl_format mesaFormat = _mesa_glenum_to_compressed_format(glformat);
3268    return _mesa_format_image_size(mesaFormat, width, height, depth);
3269 }
3270
3271
3272 /*
3273  * Return compressed texture block size, in pixels.
3274  */
3275 static void
3276 get_compressed_block_size(GLenum glformat, GLuint *bw, GLuint *bh)
3277 {
3278    gl_format mesaFormat = _mesa_glenum_to_compressed_format(glformat);
3279    _mesa_get_format_block_size(mesaFormat, bw, bh);
3280 }
3281
3282
3283 /**
3284  * Error checking for glCompressedTexImage[123]D().
3285  * \param reason  returns reason for error, if any
3286  * \return error code or GL_NO_ERROR or PROXY_ERROR.
3287  */
3288 static GLenum
3289 compressed_texture_error_check(struct gl_context *ctx, GLint dimensions,
3290                                GLenum target, GLint level,
3291                                GLenum internalFormat, GLsizei width,
3292                                GLsizei height, GLsizei depth, GLint border,
3293                                GLsizei imageSize, char **reason)
3294 {
3295    const GLenum proxyTarget = get_proxy_target(target);
3296    const GLint maxLevels = _mesa_max_texture_levels(ctx, target);
3297    GLint expectedSize;
3298    GLenum choose_format;
3299    GLenum choose_type;
3300    GLenum proxy_format;
3301
3302    *reason = ""; /* no error */
3303
3304    if (!target_can_be_compressed(ctx, target, internalFormat)) {
3305       *reason = "target";
3306       return GL_INVALID_ENUM;
3307    }
3308
3309    /* This will detect any invalid internalFormat value */
3310    if (!_mesa_is_compressed_format(ctx, internalFormat)) {
3311       *reason = "internalFormat";
3312       return GL_INVALID_ENUM;
3313    }
3314
3315    switch (internalFormat) {
3316 #if FEATURE_ES
3317    case GL_PALETTE4_RGB8_OES:
3318    case GL_PALETTE4_RGBA8_OES:
3319    case GL_PALETTE4_R5_G6_B5_OES:
3320    case GL_PALETTE4_RGBA4_OES:
3321    case GL_PALETTE4_RGB5_A1_OES:
3322    case GL_PALETTE8_RGB8_OES:
3323    case GL_PALETTE8_RGBA8_OES:
3324    case GL_PALETTE8_R5_G6_B5_OES:
3325    case GL_PALETTE8_RGBA4_OES:
3326    case GL_PALETTE8_RGB5_A1_OES:
3327       _mesa_cpal_compressed_format_type(internalFormat, &choose_format,
3328                                         &choose_type);
3329       proxy_format = choose_format;
3330
3331       /* check level */
3332       if (level > 0 || level < -maxLevels) {
3333          *reason = "level";
3334          return GL_INVALID_VALUE;
3335       }
3336
3337       if (dimensions != 2) {
3338          *reason = "compressed paletted textures must be 2D";
3339          return GL_INVALID_OPERATION;
3340       }
3341
3342       /* Figure out the expected texture size (in bytes).  This will be
3343        * checked against the actual size later.
3344        */
3345       expectedSize = _mesa_cpal_compressed_size(level, internalFormat,
3346                                                 width, height);
3347
3348       /* This is for the benefit of the TestProxyTexImage below.  It expects
3349        * level to be non-negative.  OES_compressed_paletted_texture uses a
3350        * weird mechanism where the level specified to glCompressedTexImage2D
3351        * is -(n-1) number of levels in the texture, and the data specifies the
3352        * complete mipmap stack.  This is done to ensure the palette is the
3353        * same for all levels.
3354        */
3355       level = -level;
3356       break;
3357 #endif
3358
3359    default:
3360       choose_format = GL_NONE;
3361       choose_type = GL_NONE;
3362       proxy_format = internalFormat;
3363
3364       /* check level */
3365       if (level < 0 || level >= maxLevels) {
3366          *reason = "level";
3367          return GL_INVALID_VALUE;
3368       }
3369
3370       /* Figure out the expected texture size (in bytes).  This will be
3371        * checked against the actual size later.
3372        */
3373       expectedSize = compressed_tex_size(width, height, depth, internalFormat);
3374       break;
3375    }
3376
3377    /* This should really never fail */
3378    if (_mesa_base_tex_format(ctx, internalFormat) < 0) {
3379       *reason = "internalFormat";
3380       return GL_INVALID_ENUM;
3381    }
3382
3383    /* No compressed formats support borders at this time */
3384    if (border != 0) {
3385       *reason = "border != 0";
3386       return GL_INVALID_VALUE;
3387    }
3388
3389    /* For cube map, width must equal height */
3390    if (_mesa_is_cube_face(target) && width != height) {
3391       *reason = "width != height";
3392       return GL_INVALID_VALUE;
3393    }
3394
3395    /* check image size against compression block size */
3396    {
3397       gl_format texFormat =
3398          ctx->Driver.ChooseTextureFormat(ctx, proxy_format,
3399                                          choose_format, choose_type);
3400       GLuint bw, bh;
3401
3402       _mesa_get_format_block_size(texFormat, &bw, &bh);
3403       if ((width > bw && width % bw > 0) ||
3404           (height > bh && height % bh > 0)) {
3405          /*
3406           * Per GL_ARB_texture_compression:  GL_INVALID_OPERATION is
3407           * generated [...] if any parameter combinations are not
3408           * supported by the specific compressed internal format.
3409           */
3410          *reason = "invalid width or height for compression format";
3411          return GL_INVALID_OPERATION;
3412       }
3413    }
3414
3415    /* check image sizes */
3416    if (!ctx->Driver.TestProxyTexImage(ctx, proxyTarget, level,
3417                                       proxy_format, choose_format,
3418                                       choose_type,
3419                                       width, height, depth, border)) {
3420       /* See error comment above */
3421       *reason = "invalid width, height or format";
3422       if (target == proxyTarget) {
3423          return PROXY_ERROR;
3424       }
3425       return GL_INVALID_OPERATION;
3426    }
3427
3428    /* check image size in bytes */
3429    if (expectedSize != imageSize) {
3430       /* Per GL_ARB_texture_compression:  GL_INVALID_VALUE is generated [...]
3431        * if <imageSize> is not consistent with the format, dimensions, and
3432        * contents of the specified image.
3433        */
3434       *reason = "imageSize inconsistant with width/height/format";
3435       return GL_INVALID_VALUE;
3436    }
3437
3438    if (!mutable_tex_object(ctx, target)) {
3439       *reason = "immutable texture";
3440       return GL_INVALID_OPERATION;
3441    }
3442
3443    return GL_NO_ERROR;
3444 }
3445
3446
3447 /**
3448  * Error checking for glCompressedTexSubImage[123]D().
3449  * \warning  There are some bad assumptions here about the size of compressed
3450  *           texture tiles (multiple of 4) used to test the validity of the
3451  *           offset and size parameters.
3452  * \return error code or GL_NO_ERROR.
3453  */
3454 static GLenum
3455 compressed_subtexture_error_check(struct gl_context *ctx, GLint dimensions,
3456                                   GLenum target, GLint level,
3457                                   GLint xoffset, GLint yoffset, GLint zoffset,
3458                                   GLsizei width, GLsizei height, GLsizei depth,
3459                                   GLenum format, GLsizei imageSize)
3460 {
3461    GLint expectedSize, maxLevels = 0, maxTextureSize;
3462    GLuint bw, bh;
3463    (void) zoffset;
3464
3465    if (dimensions == 1) {
3466       /* 1D compressed textures not allowed */
3467       return GL_INVALID_ENUM;
3468    }
3469    else if (dimensions == 2) {
3470       if (target == GL_PROXY_TEXTURE_2D) {
3471          maxLevels = ctx->Const.MaxTextureLevels;
3472       }
3473       else if (target == GL_TEXTURE_2D) {
3474          maxLevels = ctx->Const.MaxTextureLevels;
3475       }
3476       else if (target == GL_PROXY_TEXTURE_CUBE_MAP_ARB) {
3477          if (!ctx->Extensions.ARB_texture_cube_map)
3478             return GL_INVALID_ENUM; /*target*/
3479          maxLevels = ctx->Const.MaxCubeTextureLevels;
3480       }
3481       else if (_mesa_is_cube_face(target)) {
3482          if (!ctx->Extensions.ARB_texture_cube_map)
3483             return GL_INVALID_ENUM; /*target*/
3484          maxLevels = ctx->Const.MaxCubeTextureLevels;
3485       }
3486       else {
3487          return GL_INVALID_ENUM; /*target*/
3488       }
3489    }
3490    else if (dimensions == 3) {
3491       /* 3D compressed textures not allowed */
3492       return GL_INVALID_ENUM;
3493    }
3494
3495    maxTextureSize = 1 << (maxLevels - 1);
3496
3497    /* this will catch any invalid compressed format token */
3498    if (!_mesa_is_compressed_format(ctx, format))
3499       return GL_INVALID_ENUM;
3500
3501    if (width < 1 || width > maxTextureSize)
3502       return GL_INVALID_VALUE;
3503
3504    if ((height < 1 || height > maxTextureSize)
3505        && dimensions > 1)
3506       return GL_INVALID_VALUE;
3507
3508    if (level < 0 || level >= maxLevels)
3509       return GL_INVALID_VALUE;
3510
3511    /*
3512     * do checks which depend on compression block size
3513     */
3514    get_compressed_block_size(format, &bw, &bh);
3515
3516    if ((xoffset % bw != 0) || (yoffset % bh != 0))
3517       return GL_INVALID_VALUE;
3518
3519    if ((width % bw != 0) && width != 2 && width != 1)
3520       return GL_INVALID_VALUE;
3521
3522    if ((height % bh != 0) && height != 2 && height != 1)
3523       return GL_INVALID_VALUE;
3524
3525    expectedSize = compressed_tex_size(width, height, depth, format);
3526    if (expectedSize != imageSize)
3527       return GL_INVALID_VALUE;
3528
3529    return GL_NO_ERROR;
3530 }
3531
3532
3533 /**
3534  * Do second part of glCompressedTexSubImage error checking.
3535  * \return GL_TRUE if error found, GL_FALSE otherwise.
3536  */
3537 static GLboolean
3538 compressed_subtexture_error_check2(struct gl_context *ctx, GLuint dims,
3539                                    GLsizei width, GLsizei height,
3540                                    GLsizei depth, GLenum format,
3541                                    struct gl_texture_image *texImage)
3542 {
3543
3544    if ((GLint) format != texImage->InternalFormat) {
3545       _mesa_error(ctx, GL_INVALID_OPERATION,
3546                   "glCompressedTexSubImage%uD(format=0x%x)", dims, format);
3547       return GL_TRUE;
3548    }
3549
3550    if (compressedteximage_only_format(ctx, format)) {
3551       _mesa_error(ctx, GL_INVALID_OPERATION,
3552                   "glCompressedTexSubImage%uD(format=0x%x cannot be updated)"
3553                   , dims, format);
3554       return GL_TRUE;
3555    }
3556
3557    if (((width == 1 || width == 2) &&
3558         width != (GLsizei) texImage->Width) ||
3559        (width > (GLsizei) texImage->Width)) {
3560       _mesa_error(ctx, GL_INVALID_VALUE,
3561                   "glCompressedTexSubImage%uD(width=%d)", dims, width);
3562       return GL_TRUE;
3563    }
3564
3565    if (dims >= 2) {
3566       if (((height == 1 || height == 2) &&
3567            height != (GLsizei) texImage->Height) ||
3568           (height > (GLsizei) texImage->Height)) {
3569          _mesa_error(ctx, GL_INVALID_VALUE,
3570                      "glCompressedTexSubImage%uD(height=%d)", dims, height);
3571          return GL_TRUE;
3572       }
3573    }
3574
3575    if (dims >= 3) {
3576       if (((depth == 1 || depth == 2) &&
3577            depth != (GLsizei) texImage->Depth) ||
3578           (depth > (GLsizei) texImage->Depth)) {
3579          _mesa_error(ctx, GL_INVALID_VALUE,
3580                      "glCompressedTexSubImage%uD(depth=%d)", dims, depth);
3581          return GL_TRUE;
3582       }
3583    }
3584
3585    return GL_FALSE;
3586 }
3587
3588
3589 /**
3590  * Implementation of the glCompressedTexImage1/2/3D() functions.
3591  */
3592 static void
3593 compressedteximage(struct gl_context *ctx, GLuint dims,
3594                    GLenum target, GLint level,
3595                    GLenum internalFormat, GLsizei width,
3596                    GLsizei height, GLsizei depth, GLint border,
3597                    GLsizei imageSize, const GLvoid *data)
3598 {
3599    GLenum error;
3600    char *reason = "";
3601
3602    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
3603
3604    if (MESA_VERBOSE & (VERBOSE_API|VERBOSE_TEXTURE))
3605       _mesa_debug(ctx,
3606                   "glCompressedTexImage%uDARB %s %d %s %d %d %d %d %d %p\n",
3607                   dims,
3608                   _mesa_lookup_enum_by_nr(target), level,
3609                   _mesa_lookup_enum_by_nr(internalFormat),
3610                   width, height, depth, border, imageSize, data);
3611
3612    /* check target */
3613    if (!legal_teximage_target(ctx, dims, target)) {
3614       _mesa_error(ctx, GL_INVALID_ENUM, "glCompressedTexImage%uD(target=%s)",
3615                   dims, _mesa_lookup_enum_by_nr(target));
3616       return;
3617    }
3618
3619    error = compressed_texture_error_check(ctx, dims, target, level,
3620                                           internalFormat, width, height, depth,
3621                                           border, imageSize, &reason);
3622
3623 #if FEATURE_ES
3624    /* XXX this is kind of a hack */
3625    if (!error && dims == 2) {
3626       switch (internalFormat) {
3627       case GL_PALETTE4_RGB8_OES:
3628       case GL_PALETTE4_RGBA8_OES:
3629       case GL_PALETTE4_R5_G6_B5_OES:
3630       case GL_PALETTE4_RGBA4_OES:
3631       case GL_PALETTE4_RGB5_A1_OES:
3632       case GL_PALETTE8_RGB8_OES:
3633       case GL_PALETTE8_RGBA8_OES:
3634       case GL_PALETTE8_R5_G6_B5_OES:
3635       case GL_PALETTE8_RGBA4_OES:
3636       case GL_PALETTE8_RGB5_A1_OES:
3637          _mesa_cpal_compressed_teximage2d(target, level, internalFormat,
3638                                           width, height, imageSize, data);
3639          return;
3640       }
3641    }
3642 #endif
3643
3644    if (_mesa_is_proxy_texture(target)) {
3645       /* Proxy texture: just check for errors and update proxy state */
3646       struct gl_texture_image *texImage;
3647
3648       if (!error) {
3649          /* No parameter errors.  Choose a texture format and see if we
3650           * can really allocate the texture.
3651           */
3652          struct gl_texture_object *texObj =
3653             _mesa_get_current_tex_object(ctx, target);
3654          gl_format texFormat =
3655             _mesa_choose_texture_format(ctx, texObj, target, level,
3656                                         internalFormat, GL_NONE, GL_NONE);
3657          if (!legal_texture_size(ctx, texFormat, width, height, depth)) {
3658             error = PROXY_ERROR;
3659          }
3660       }
3661
3662       texImage = get_proxy_tex_image(ctx, target, level);
3663       if (texImage) {
3664          if (error == PROXY_ERROR) {
3665             /* if error, clear all proxy texture image parameters */
3666             clear_teximage_fields(texImage);
3667          }
3668          else if (error == GL_NO_ERROR) {
3669             /* no error: store the teximage parameters */
3670             _mesa_init_teximage_fields(ctx, texImage, width, height,
3671                                        depth, border, internalFormat,
3672                                        MESA_FORMAT_NONE);
3673          }
3674          else {
3675             /* other, regular error */
3676             _mesa_error(ctx, error, "glCompressedTexImage%uD(%s)", dims, reason);
3677          }
3678       }
3679    }
3680    else {
3681       /* non-proxy target */
3682       struct gl_texture_object *texObj;
3683       struct gl_texture_image *texImage;
3684
3685       if (error) {
3686          _mesa_error(ctx, error, "glCompressedTexImage%uD(%s)", dims, reason);
3687          return;
3688       }
3689
3690       texObj = _mesa_get_current_tex_object(ctx, target);
3691
3692       _mesa_lock_texture(ctx, texObj);
3693       {
3694          texImage = _mesa_get_tex_image(ctx, texObj, target, level);
3695          if (!texImage) {
3696             _mesa_error(ctx, GL_OUT_OF_MEMORY,
3697                         "glCompressedTexImage%uD", dims);
3698          }
3699          else {
3700             gl_format texFormat;
3701
3702             ctx->Driver.FreeTextureImageBuffer(ctx, texImage);
3703
3704             texFormat = _mesa_choose_texture_format(ctx, texObj, target, level,
3705                                                     internalFormat, GL_NONE,
3706                                                     GL_NONE);
3707
3708             if (legal_texture_size(ctx, texFormat, width, height, depth)) {
3709                _mesa_init_teximage_fields(ctx, texImage,
3710                                           width, height, depth,
3711                                           border, internalFormat, texFormat);
3712
3713                ctx->Driver.CompressedTexImage(ctx, dims, texImage, imageSize,
3714                                               data);
3715
3716                check_gen_mipmap(ctx, target, texObj, level);
3717
3718                _mesa_dirty_texobj(ctx, texObj, GL_TRUE);
3719             }
3720             else {
3721                _mesa_error(ctx, GL_OUT_OF_MEMORY,
3722                            "glCompressedTexImage%uD", dims);
3723             }
3724          }
3725       }
3726       _mesa_unlock_texture(ctx, texObj);
3727    }
3728 }
3729
3730
3731 void GLAPIENTRY
3732 _mesa_CompressedTexImage1DARB(GLenum target, GLint level,
3733                               GLenum internalFormat, GLsizei width,
3734                               GLint border, GLsizei imageSize,
3735                               const GLvoid *data)
3736 {
3737    GET_CURRENT_CONTEXT(ctx);
3738    compressedteximage(ctx, 1, target, level, internalFormat,
3739                       width, 1, 1, border, imageSize, data);
3740 }
3741
3742
3743 void GLAPIENTRY
3744 _mesa_CompressedTexImage2DARB(GLenum target, GLint level,
3745                               GLenum internalFormat, GLsizei width,
3746                               GLsizei height, GLint border, GLsizei imageSize,
3747                               const GLvoid *data)
3748 {
3749    GET_CURRENT_CONTEXT(ctx);
3750    compressedteximage(ctx, 2, target, level, internalFormat,
3751                       width, height, 1, border, imageSize, data);
3752 }
3753
3754
3755 void GLAPIENTRY
3756 _mesa_CompressedTexImage3DARB(GLenum target, GLint level,
3757                               GLenum internalFormat, GLsizei width,
3758                               GLsizei height, GLsizei depth, GLint border,
3759                               GLsizei imageSize, const GLvoid *data)
3760 {
3761    GET_CURRENT_CONTEXT(ctx);
3762    compressedteximage(ctx, 3, target, level, internalFormat,
3763                       width, height, depth, border, imageSize, data);
3764 }
3765
3766
3767 /**
3768  * Common helper for glCompressedTexSubImage1/2/3D().
3769  */
3770 static void
3771 compressed_tex_sub_image(GLuint dims, GLenum target, GLint level,
3772                          GLint xoffset, GLint yoffset, GLint zoffset,
3773                          GLsizei width, GLsizei height, GLsizei depth,
3774                          GLenum format, GLsizei imageSize, const GLvoid *data)
3775 {
3776    struct gl_texture_object *texObj;
3777    struct gl_texture_image *texImage;
3778    GLenum error;
3779    GET_CURRENT_CONTEXT(ctx);
3780    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
3781
3782    error = compressed_subtexture_error_check(ctx, dims, target, level,
3783                                              xoffset, 0, 0, /* pos */
3784                                              width, height, depth,   /* size */
3785                                              format, imageSize);
3786    if (error) {
3787       _mesa_error(ctx, error, "glCompressedTexSubImage%uD", dims);
3788       return;
3789    }
3790
3791    texObj = _mesa_get_current_tex_object(ctx, target);
3792
3793    _mesa_lock_texture(ctx, texObj);
3794    {
3795       texImage = _mesa_select_tex_image(ctx, texObj, target, level);
3796       assert(texImage);
3797
3798       if (compressed_subtexture_error_check2(ctx, dims, width, height, depth,
3799                                              format, texImage)) {
3800          /* error was recorded */
3801       }
3802       else if (width > 0 && height > 0 && depth > 0) {
3803          ctx->Driver.CompressedTexSubImage(ctx, dims, texImage,
3804                                            xoffset, yoffset, zoffset,
3805                                            width, height, depth,
3806                                            format, imageSize, data);
3807
3808          check_gen_mipmap(ctx, target, texObj, level);
3809
3810          ctx->NewState |= _NEW_TEXTURE;
3811       }
3812    }
3813    _mesa_unlock_texture(ctx, texObj);
3814 }
3815
3816
3817 void GLAPIENTRY
3818 _mesa_CompressedTexSubImage1DARB(GLenum target, GLint level, GLint xoffset,
3819                                  GLsizei width, GLenum format,
3820                                  GLsizei imageSize, const GLvoid *data)
3821 {
3822    compressed_tex_sub_image(1, target, level, xoffset, 0, 0, width, 1, 1,
3823                             format, imageSize, data);
3824 }
3825
3826
3827 void GLAPIENTRY
3828 _mesa_CompressedTexSubImage2DARB(GLenum target, GLint level, GLint xoffset,
3829                                  GLint yoffset, GLsizei width, GLsizei height,
3830                                  GLenum format, GLsizei imageSize,
3831                                  const GLvoid *data)
3832 {
3833    compressed_tex_sub_image(2, target, level, xoffset, yoffset, 0,
3834                             width, height, 1, format, imageSize, data);
3835 }
3836
3837
3838 void GLAPIENTRY
3839 _mesa_CompressedTexSubImage3DARB(GLenum target, GLint level, GLint xoffset,
3840                                  GLint yoffset, GLint zoffset, GLsizei width,
3841                                  GLsizei height, GLsizei depth, GLenum format,
3842                                  GLsizei imageSize, const GLvoid *data)
3843 {
3844    compressed_tex_sub_image(3, target, level, xoffset, yoffset, zoffset,
3845                             width, height, depth, format, imageSize, data);
3846 }
3847
3848 static gl_format
3849 get_texbuffer_format(const struct gl_context *ctx, GLenum internalFormat)
3850 {
3851    switch (internalFormat) {
3852    case GL_ALPHA8:
3853       return MESA_FORMAT_A8;
3854    case GL_ALPHA16:
3855       return MESA_FORMAT_A16;
3856    case GL_ALPHA16F_ARB:
3857       return MESA_FORMAT_ALPHA_FLOAT16;
3858    case GL_ALPHA32F_ARB:
3859       return MESA_FORMAT_ALPHA_FLOAT32;
3860    case GL_ALPHA8I_EXT:
3861       return MESA_FORMAT_ALPHA_INT8;
3862    case GL_ALPHA16I_EXT:
3863       return MESA_FORMAT_ALPHA_INT16;
3864    case GL_ALPHA32I_EXT:
3865       return MESA_FORMAT_ALPHA_INT32;
3866    case GL_ALPHA8UI_EXT:
3867       return MESA_FORMAT_ALPHA_UINT8;
3868    case GL_ALPHA16UI_EXT:
3869       return MESA_FORMAT_ALPHA_UINT16;
3870    case GL_ALPHA32UI_EXT:
3871       return MESA_FORMAT_ALPHA_UINT32;
3872    case GL_LUMINANCE8:
3873       return MESA_FORMAT_L8;
3874    case GL_LUMINANCE16:
3875       return MESA_FORMAT_L16;
3876    case GL_LUMINANCE16F_ARB:
3877       return MESA_FORMAT_LUMINANCE_FLOAT16;
3878    case GL_LUMINANCE32F_ARB:
3879       return MESA_FORMAT_LUMINANCE_FLOAT32;
3880    case GL_LUMINANCE8I_EXT:
3881       return MESA_FORMAT_LUMINANCE_INT8;
3882    case GL_LUMINANCE16I_EXT:
3883       return MESA_FORMAT_LUMINANCE_INT16;
3884    case GL_LUMINANCE32I_EXT:
3885       return MESA_FORMAT_LUMINANCE_INT32;
3886    case GL_LUMINANCE8UI_EXT:
3887       return MESA_FORMAT_LUMINANCE_UINT8;
3888    case GL_LUMINANCE16UI_EXT:
3889       return MESA_FORMAT_LUMINANCE_UINT16;
3890    case GL_LUMINANCE32UI_EXT:
3891       return MESA_FORMAT_LUMINANCE_UINT32;
3892    case GL_LUMINANCE8_ALPHA8:
3893       return MESA_FORMAT_AL88;
3894    case GL_LUMINANCE16_ALPHA16:
3895       return MESA_FORMAT_AL1616;
3896    case GL_LUMINANCE_ALPHA16F_ARB:
3897       return MESA_FORMAT_LUMINANCE_ALPHA_FLOAT16;
3898    case GL_LUMINANCE_ALPHA32F_ARB:
3899       return MESA_FORMAT_LUMINANCE_ALPHA_FLOAT32;
3900    case GL_LUMINANCE_ALPHA8I_EXT:
3901       return MESA_FORMAT_LUMINANCE_ALPHA_INT8;
3902    case GL_LUMINANCE_ALPHA16I_EXT:
3903       return MESA_FORMAT_LUMINANCE_ALPHA_INT8;
3904    case GL_LUMINANCE_ALPHA32I_EXT:
3905       return MESA_FORMAT_LUMINANCE_ALPHA_INT16;
3906    case GL_LUMINANCE_ALPHA8UI_EXT:
3907       return MESA_FORMAT_LUMINANCE_ALPHA_UINT8;
3908    case GL_LUMINANCE_ALPHA16UI_EXT:
3909       return MESA_FORMAT_LUMINANCE_ALPHA_UINT16;
3910    case GL_LUMINANCE_ALPHA32UI_EXT:
3911       return MESA_FORMAT_LUMINANCE_ALPHA_UINT32;
3912    case GL_INTENSITY8:
3913       return MESA_FORMAT_I8;
3914    case GL_INTENSITY16:
3915       return MESA_FORMAT_I16;
3916    case GL_INTENSITY16F_ARB:
3917       return MESA_FORMAT_INTENSITY_FLOAT16;
3918    case GL_INTENSITY32F_ARB:
3919       return MESA_FORMAT_INTENSITY_FLOAT32;
3920    case GL_INTENSITY8I_EXT:
3921       return MESA_FORMAT_INTENSITY_INT8;
3922    case GL_INTENSITY16I_EXT:
3923       return MESA_FORMAT_INTENSITY_INT16;
3924    case GL_INTENSITY32I_EXT:
3925       return MESA_FORMAT_INTENSITY_INT32;
3926    case GL_INTENSITY8UI_EXT:
3927       return MESA_FORMAT_INTENSITY_UINT8;
3928    case GL_INTENSITY16UI_EXT:
3929       return MESA_FORMAT_INTENSITY_UINT16;
3930    case GL_INTENSITY32UI_EXT:
3931       return MESA_FORMAT_INTENSITY_UINT32;
3932    case GL_RGBA8:
3933       return MESA_FORMAT_RGBA8888_REV;
3934    case GL_RGBA16:
3935       return MESA_FORMAT_RGBA_16;
3936    case GL_RGBA16F_ARB:
3937       return MESA_FORMAT_RGBA_FLOAT16;
3938    case GL_RGBA32F_ARB:
3939       return MESA_FORMAT_RGBA_FLOAT32;
3940    case GL_RGBA8I_EXT:
3941       return MESA_FORMAT_RGBA_INT8;
3942    case GL_RGBA16I_EXT:
3943       return MESA_FORMAT_RGBA_INT16;
3944    case GL_RGBA32I_EXT:
3945       return MESA_FORMAT_RGBA_INT32;
3946    case GL_RGBA8UI_EXT:
3947       return MESA_FORMAT_RGBA_UINT8;
3948    case GL_RGBA16UI_EXT:
3949       return MESA_FORMAT_RGBA_UINT16;
3950    case GL_RGBA32UI_EXT:
3951       return MESA_FORMAT_RGBA_UINT32;
3952
3953    case GL_RG8:
3954       return MESA_FORMAT_GR88;
3955    case GL_RG16:
3956       return MESA_FORMAT_RG1616;
3957    case GL_RG16F:
3958       return MESA_FORMAT_RG_FLOAT16;
3959    case GL_RG32F:
3960       return MESA_FORMAT_RG_FLOAT32;
3961    case GL_RG8I:
3962       return MESA_FORMAT_RG_INT8;
3963    case GL_RG16I:
3964       return MESA_FORMAT_RG_INT16;
3965    case GL_RG32I:
3966       return MESA_FORMAT_RG_INT32;
3967    case GL_RG8UI:
3968       return MESA_FORMAT_RG_UINT8;
3969    case GL_RG16UI:
3970       return MESA_FORMAT_RG_UINT16;
3971    case GL_RG32UI:
3972       return MESA_FORMAT_RG_UINT32;
3973
3974    case GL_R8:
3975       return MESA_FORMAT_R8;
3976    case GL_R16:
3977       return MESA_FORMAT_R16;
3978    case GL_R16F:
3979       return MESA_FORMAT_R_FLOAT16;
3980    case GL_R32F:
3981       return MESA_FORMAT_R_FLOAT32;
3982    case GL_R8I:
3983       return MESA_FORMAT_R_INT8;
3984    case GL_R16I:
3985       return MESA_FORMAT_R_INT16;
3986    case GL_R32I:
3987       return MESA_FORMAT_R_INT32;
3988    case GL_R8UI:
3989       return MESA_FORMAT_R_UINT8;
3990    case GL_R16UI:
3991       return MESA_FORMAT_R_UINT16;
3992    case GL_R32UI:
3993       return MESA_FORMAT_R_UINT32;
3994
3995    default:
3996       return MESA_FORMAT_NONE;
3997    }
3998 }
3999
4000 static gl_format
4001 validate_texbuffer_format(const struct gl_context *ctx, GLenum internalFormat)
4002 {
4003    gl_format format = get_texbuffer_format(ctx, internalFormat);
4004    GLenum datatype;
4005
4006    if (format == MESA_FORMAT_NONE)
4007       return MESA_FORMAT_NONE;
4008
4009    datatype = _mesa_get_format_datatype(format);
4010    if (datatype == GL_FLOAT && !ctx->Extensions.ARB_texture_float)
4011       return MESA_FORMAT_NONE;
4012
4013    if (datatype == GL_HALF_FLOAT && !ctx->Extensions.ARB_half_float_pixel)
4014       return MESA_FORMAT_NONE;
4015
4016    /* The GL_ARB_texture_rg and GL_ARB_texture_buffer_object specs don't make
4017     * any mention of R/RG formats, but they appear in the GL 3.1 core
4018     * specification.
4019     */
4020    if (ctx->Version <= 30) {
4021       GLenum base_format = _mesa_get_format_base_format(format);
4022
4023       if (base_format == GL_R || base_format == GL_RG)
4024          return MESA_FORMAT_NONE;
4025    }
4026    return format;
4027 }
4028
4029
4030 /** GL_ARB_texture_buffer_object */
4031 void GLAPIENTRY
4032 _mesa_TexBuffer(GLenum target, GLenum internalFormat, GLuint buffer)
4033 {
4034    struct gl_texture_object *texObj;
4035    struct gl_buffer_object *bufObj;
4036    gl_format format;
4037
4038    GET_CURRENT_CONTEXT(ctx);
4039    ASSERT_OUTSIDE_BEGIN_END_AND_FLUSH(ctx);
4040
4041    if (!ctx->Extensions.ARB_texture_buffer_object) {
4042       _mesa_error(ctx, GL_INVALID_OPERATION, "glTexBuffer");
4043       return;
4044    }
4045
4046    if (target != GL_TEXTURE_BUFFER_ARB) {
4047       _mesa_error(ctx, GL_INVALID_ENUM, "glTexBuffer(target)");
4048       return;
4049    }
4050
4051    format = validate_texbuffer_format(ctx, internalFormat);
4052    if (format == MESA_FORMAT_NONE) {
4053       _mesa_error(ctx, GL_INVALID_ENUM, "glTexBuffer(internalFormat 0x%x)",
4054                   internalFormat);
4055       return;
4056    }
4057
4058    bufObj = _mesa_lookup_bufferobj(ctx, buffer);
4059    if (buffer && !bufObj) {
4060       _mesa_error(ctx, GL_INVALID_OPERATION, "glTexBuffer(buffer %u)", buffer);
4061       return;
4062    }
4063
4064    texObj = _mesa_get_current_tex_object(ctx, target);
4065
4066    _mesa_lock_texture(ctx, texObj);
4067    {
4068       _mesa_reference_buffer_object(ctx, &texObj->BufferObject, bufObj);
4069       texObj->BufferObjectFormat = internalFormat;
4070       texObj->_BufferObjectFormat = format;
4071    }
4072    _mesa_unlock_texture(ctx, texObj);
4073 }