src/gallium/auxiliary/tgsi/tgsi_exec.c

   1 /**************************************************************************
   2  *
   3  * Copyright 2007-2008 Tungsten Graphics, Inc., Cedar Park, Texas.
   4  * All Rights Reserved.
   5  * Copyright 2009-2010 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
   9  * "Software"), to deal in the Software without restriction, including
  10  * without limitation the rights to use, copy, modify, merge, publish,
  11  * distribute, sub license, and/or sell copies of the Software, and to
  12  * permit persons to whom the Software is furnished to do so, subject to
  13  * the following conditions:
  14  *
  15  * The above copyright notice and this permission notice (including the
  16  * next paragraph) shall be included in all copies or substantial portions
  17  * of the Software.
  18  *
  19  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  20  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  21  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
  22  * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
  23  * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  24  * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  25  * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  26  *
  27  **************************************************************************/
  28
  29 /**
  30  * TGSI interpreter/executor.
  31  *
  32  * Flow control information:
  33  *
  34  * Since we operate on 'quads' (4 pixels or 4 vertices in parallel)
  35  * flow control statements (IF/ELSE/ENDIF, LOOP/ENDLOOP) require special
  36  * care since a condition may be true for some quad components but false
  37  * for other components.
  38  *
  39  * We basically execute all statements (even if they're in the part of
  40  * an IF/ELSE clause that's "not taken") and use a special mask to
  41  * control writing to destination registers.  This is the ExecMask.
  42  * See store_dest().
  43  *
  44  * The ExecMask is computed from three other masks (CondMask, LoopMask and
  45  * ContMask) which are controlled by the flow control instructions (namely:
  46  * (IF/ELSE/ENDIF, LOOP/ENDLOOP and CONT).
  47  *
  48  *
  49  * Authors:
  50  *   Michal Krol
  51  *   Brian Paul
  52  */
  53
  54 #include "pipe/p_compiler.h"
  55 #include "pipe/p_state.h"
  56 #include "pipe/p_shader_tokens.h"
  57 #include "tgsi/tgsi_dump.h"
  58 #include "tgsi/tgsi_parse.h"
  59 #include "tgsi/tgsi_util.h"
  60 #include "tgsi_exec.h"
  61 #include "util/u_memory.h"
  62 #include "util/u_math.h"
  63
  64
  65 #define FAST_MATH 1
  66
  67 #define TILE_TOP_LEFT     0
  68 #define TILE_TOP_RIGHT    1
  69 #define TILE_BOTTOM_LEFT  2
  70 #define TILE_BOTTOM_RIGHT 3
  71
  72 static void
  73 micro_abs(union tgsi_exec_channel *dst,
  74           const union tgsi_exec_channel *src)
  75 {
  76    dst->f[0] = fabsf(src->f[0]);
  77    dst->f[1] = fabsf(src->f[1]);
  78    dst->f[2] = fabsf(src->f[2]);
  79    dst->f[3] = fabsf(src->f[3]);
  80 }
  81
  82 static void
  83 micro_arl(union tgsi_exec_channel *dst,
  84           const union tgsi_exec_channel *src)
  85 {
  86    dst->i[0] = (int)floorf(src->f[0]);
  87    dst->i[1] = (int)floorf(src->f[1]);
  88    dst->i[2] = (int)floorf(src->f[2]);
  89    dst->i[3] = (int)floorf(src->f[3]);
  90 }
  91
  92 static void
  93 micro_arr(union tgsi_exec_channel *dst,
  94           const union tgsi_exec_channel *src)
  95 {
  96    dst->i[0] = (int)floorf(src->f[0] + 0.5f);
  97    dst->i[1] = (int)floorf(src->f[1] + 0.5f);
  98    dst->i[2] = (int)floorf(src->f[2] + 0.5f);
  99    dst->i[3] = (int)floorf(src->f[3] + 0.5f);
 100 }
 101
 102 static void
 103 micro_ceil(union tgsi_exec_channel *dst,
 104            const union tgsi_exec_channel *src)
 105 {
 106    dst->f[0] = ceilf(src->f[0]);
 107    dst->f[1] = ceilf(src->f[1]);
 108    dst->f[2] = ceilf(src->f[2]);
 109    dst->f[3] = ceilf(src->f[3]);
 110 }
 111
 112 static void
 113 micro_clamp(union tgsi_exec_channel *dst,
 114             const union tgsi_exec_channel *src0,
 115             const union tgsi_exec_channel *src1,
 116             const union tgsi_exec_channel *src2)
 117 {
 118    dst->f[0] = src0->f[0] < src1->f[0] ? src1->f[0] : src0->f[0] > src2->f[0] ? src2->f[0] : src0->f[0];
 119    dst->f[1] = src0->f[1] < src1->f[1] ? src1->f[1] : src0->f[1] > src2->f[1] ? src2->f[1] : src0->f[1];
 120    dst->f[2] = src0->f[2] < src1->f[2] ? src1->f[2] : src0->f[2] > src2->f[2] ? src2->f[2] : src0->f[2];
 121    dst->f[3] = src0->f[3] < src1->f[3] ? src1->f[3] : src0->f[3] > src2->f[3] ? src2->f[3] : src0->f[3];
 122 }
 123
 124 static void
 125 micro_cmp(union tgsi_exec_channel *dst,
 126           const union tgsi_exec_channel *src0,
 127           const union tgsi_exec_channel *src1,
 128           const union tgsi_exec_channel *src2)
 129 {
 130    dst->f[0] = src0->f[0] < 0.0f ? src1->f[0] : src2->f[0];
 131    dst->f[1] = src0->f[1] < 0.0f ? src1->f[1] : src2->f[1];
 132    dst->f[2] = src0->f[2] < 0.0f ? src1->f[2] : src2->f[2];
 133    dst->f[3] = src0->f[3] < 0.0f ? src1->f[3] : src2->f[3];
 134 }
 135
 136 static void
 137 micro_cnd(union tgsi_exec_channel *dst,
 138           const union tgsi_exec_channel *src0,
 139           const union tgsi_exec_channel *src1,
 140           const union tgsi_exec_channel *src2)
 141 {
 142    dst->f[0] = src2->f[0] > 0.5f ? src0->f[0] : src1->f[0];
 143    dst->f[1] = src2->f[1] > 0.5f ? src0->f[1] : src1->f[1];
 144    dst->f[2] = src2->f[2] > 0.5f ? src0->f[2] : src1->f[2];
 145    dst->f[3] = src2->f[3] > 0.5f ? src0->f[3] : src1->f[3];
 146 }
 147
 148 static void
 149 micro_cos(union tgsi_exec_channel *dst,
 150           const union tgsi_exec_channel *src)
 151 {
 152    dst->f[0] = cosf(src->f[0]);
 153    dst->f[1] = cosf(src->f[1]);
 154    dst->f[2] = cosf(src->f[2]);
 155    dst->f[3] = cosf(src->f[3]);
 156 }
 157
 158 static void
 159 micro_ddx(union tgsi_exec_channel *dst,
 160           const union tgsi_exec_channel *src)
 161 {
 162    dst->f[0] =
 163    dst->f[1] =
 164    dst->f[2] =
 165    dst->f[3] = src->f[TILE_BOTTOM_RIGHT] - src->f[TILE_BOTTOM_LEFT];
 166 }
 167
 168 static void
 169 micro_ddy(union tgsi_exec_channel *dst,
 170           const union tgsi_exec_channel *src)
 171 {
 172    dst->f[0] =
 173    dst->f[1] =
 174    dst->f[2] =
 175    dst->f[3] = src->f[TILE_BOTTOM_LEFT] - src->f[TILE_TOP_LEFT];
 176 }
 177
 178 static void
 179 micro_exp2(union tgsi_exec_channel *dst,
 180            const union tgsi_exec_channel *src)
 181 {
 182 #if FAST_MATH
 183    dst->f[0] = util_fast_exp2(src->f[0]);
 184    dst->f[1] = util_fast_exp2(src->f[1]);
 185    dst->f[2] = util_fast_exp2(src->f[2]);
 186    dst->f[3] = util_fast_exp2(src->f[3]);
 187 #else
 188 #if DEBUG
 189    /* Inf is okay for this instruction, so clamp it to silence assertions. */
 190    uint i;
 191    union tgsi_exec_channel clamped;
 192
 193    for (i = 0; i < 4; i++) {
 194       if (src->f[i] > 127.99999f) {
 195          clamped.f[i] = 127.99999f;
 196       } else if (src->f[i] < -126.99999f) {
 197          clamped.f[i] = -126.99999f;
 198       } else {
 199          clamped.f[i] = src->f[i];
 200       }
 201    }
 202    src = &clamped;
 203 #endif /* DEBUG */
 204
 205    dst->f[0] = powf(2.0f, src->f[0]);
 206    dst->f[1] = powf(2.0f, src->f[1]);
 207    dst->f[2] = powf(2.0f, src->f[2]);
 208    dst->f[3] = powf(2.0f, src->f[3]);
 209 #endif /* FAST_MATH */
 210 }
 211
 212 static void
 213 micro_flr(union tgsi_exec_channel *dst,
 214           const union tgsi_exec_channel *src)
 215 {
 216    dst->f[0] = floorf(src->f[0]);
 217    dst->f[1] = floorf(src->f[1]);
 218    dst->f[2] = floorf(src->f[2]);
 219    dst->f[3] = floorf(src->f[3]);
 220 }
 221
 222 static void
 223 micro_frc(union tgsi_exec_channel *dst,
 224           const union tgsi_exec_channel *src)
 225 {
 226    dst->f[0] = src->f[0] - floorf(src->f[0]);
 227    dst->f[1] = src->f[1] - floorf(src->f[1]);
 228    dst->f[2] = src->f[2] - floorf(src->f[2]);
 229    dst->f[3] = src->f[3] - floorf(src->f[3]);
 230 }
 231
 232 static void
 233 micro_iabs(union tgsi_exec_channel *dst,
 234            const union tgsi_exec_channel *src)
 235 {
 236    dst->i[0] = src->i[0] >= 0 ? src->i[0] : -src->i[0];
 237    dst->i[1] = src->i[1] >= 0 ? src->i[1] : -src->i[1];
 238    dst->i[2] = src->i[2] >= 0 ? src->i[2] : -src->i[2];
 239    dst->i[3] = src->i[3] >= 0 ? src->i[3] : -src->i[3];
 240 }
 241
 242 static void
 243 micro_ineg(union tgsi_exec_channel *dst,
 244            const union tgsi_exec_channel *src)
 245 {
 246    dst->i[0] = -src->i[0];
 247    dst->i[1] = -src->i[1];
 248    dst->i[2] = -src->i[2];
 249    dst->i[3] = -src->i[3];
 250 }
 251
 252 static void
 253 micro_lg2(union tgsi_exec_channel *dst,
 254           const union tgsi_exec_channel *src)
 255 {
 256 #if FAST_MATH
 257    dst->f[0] = util_fast_log2(src->f[0]);
 258    dst->f[1] = util_fast_log2(src->f[1]);
 259    dst->f[2] = util_fast_log2(src->f[2]);
 260    dst->f[3] = util_fast_log2(src->f[3]);
 261 #else
 262    dst->f[0] = logf(src->f[0]) * 1.442695f;
 263    dst->f[1] = logf(src->f[1]) * 1.442695f;
 264    dst->f[2] = logf(src->f[2]) * 1.442695f;
 265    dst->f[3] = logf(src->f[3]) * 1.442695f;
 266 #endif
 267 }
 268
 269 static void
 270 micro_lrp(union tgsi_exec_channel *dst,
 271           const union tgsi_exec_channel *src0,
 272           const union tgsi_exec_channel *src1,
 273           const union tgsi_exec_channel *src2)
 274 {
 275    dst->f[0] = src0->f[0] * (src1->f[0] - src2->f[0]) + src2->f[0];
 276    dst->f[1] = src0->f[1] * (src1->f[1] - src2->f[1]) + src2->f[1];
 277    dst->f[2] = src0->f[2] * (src1->f[2] - src2->f[2]) + src2->f[2];
 278    dst->f[3] = src0->f[3] * (src1->f[3] - src2->f[3]) + src2->f[3];
 279 }
 280
 281 static void
 282 micro_mad(union tgsi_exec_channel *dst,
 283           const union tgsi_exec_channel *src0,
 284           const union tgsi_exec_channel *src1,
 285           const union tgsi_exec_channel *src2)
 286 {
 287    dst->f[0] = src0->f[0] * src1->f[0] + src2->f[0];
 288    dst->f[1] = src0->f[1] * src1->f[1] + src2->f[1];
 289    dst->f[2] = src0->f[2] * src1->f[2] + src2->f[2];
 290    dst->f[3] = src0->f[3] * src1->f[3] + src2->f[3];
 291 }
 292
 293 static void
 294 micro_mov(union tgsi_exec_channel *dst,
 295           const union tgsi_exec_channel *src)
 296 {
 297    dst->u[0] = src->u[0];
 298    dst->u[1] = src->u[1];
 299    dst->u[2] = src->u[2];
 300    dst->u[3] = src->u[3];
 301 }
 302
 303 static void
 304 micro_rcp(union tgsi_exec_channel *dst,
 305           const union tgsi_exec_channel *src)
 306 {
 307 #if 0 /* for debugging */
 308    assert(src->f[0] != 0.0f);
 309    assert(src->f[1] != 0.0f);
 310    assert(src->f[2] != 0.0f);
 311    assert(src->f[3] != 0.0f);
 312 #endif
 313    dst->f[0] = 1.0f / src->f[0];
 314    dst->f[1] = 1.0f / src->f[1];
 315    dst->f[2] = 1.0f / src->f[2];
 316    dst->f[3] = 1.0f / src->f[3];
 317 }
 318
 319 static void
 320 micro_rnd(union tgsi_exec_channel *dst,
 321           const union tgsi_exec_channel *src)
 322 {
 323    dst->f[0] = floorf(src->f[0] + 0.5f);
 324    dst->f[1] = floorf(src->f[1] + 0.5f);
 325    dst->f[2] = floorf(src->f[2] + 0.5f);
 326    dst->f[3] = floorf(src->f[3] + 0.5f);
 327 }
 328
 329 static void
 330 micro_rsq(union tgsi_exec_channel *dst,
 331           const union tgsi_exec_channel *src)
 332 {
 333 #if 0 /* for debugging */
 334    assert(src->f[0] != 0.0f);
 335    assert(src->f[1] != 0.0f);
 336    assert(src->f[2] != 0.0f);
 337    assert(src->f[3] != 0.0f);
 338 #endif
 339    dst->f[0] = 1.0f / sqrtf(fabsf(src->f[0]));
 340    dst->f[1] = 1.0f / sqrtf(fabsf(src->f[1]));
 341    dst->f[2] = 1.0f / sqrtf(fabsf(src->f[2]));
 342    dst->f[3] = 1.0f / sqrtf(fabsf(src->f[3]));
 343 }
 344
 345 static void
 346 micro_seq(union tgsi_exec_channel *dst,
 347           const union tgsi_exec_channel *src0,
 348           const union tgsi_exec_channel *src1)
 349 {
 350    dst->f[0] = src0->f[0] == src1->f[0] ? 1.0f : 0.0f;
 351    dst->f[1] = src0->f[1] == src1->f[1] ? 1.0f : 0.0f;
 352    dst->f[2] = src0->f[2] == src1->f[2] ? 1.0f : 0.0f;
 353    dst->f[3] = src0->f[3] == src1->f[3] ? 1.0f : 0.0f;
 354 }
 355
 356 static void
 357 micro_sge(union tgsi_exec_channel *dst,
 358           const union tgsi_exec_channel *src0,
 359           const union tgsi_exec_channel *src1)
 360 {
 361    dst->f[0] = src0->f[0] >= src1->f[0] ? 1.0f : 0.0f;
 362    dst->f[1] = src0->f[1] >= src1->f[1] ? 1.0f : 0.0f;
 363    dst->f[2] = src0->f[2] >= src1->f[2] ? 1.0f : 0.0f;
 364    dst->f[3] = src0->f[3] >= src1->f[3] ? 1.0f : 0.0f;
 365 }
 366
 367 static void
 368 micro_sgn(union tgsi_exec_channel *dst,
 369           const union tgsi_exec_channel *src)
 370 {
 371    dst->f[0] = src->f[0] < 0.0f ? -1.0f : src->f[0] > 0.0f ? 1.0f : 0.0f;
 372    dst->f[1] = src->f[1] < 0.0f ? -1.0f : src->f[1] > 0.0f ? 1.0f : 0.0f;
 373    dst->f[2] = src->f[2] < 0.0f ? -1.0f : src->f[2] > 0.0f ? 1.0f : 0.0f;
 374    dst->f[3] = src->f[3] < 0.0f ? -1.0f : src->f[3] > 0.0f ? 1.0f : 0.0f;
 375 }
 376
 377 static void
 378 micro_sgt(union tgsi_exec_channel *dst,
 379           const union tgsi_exec_channel *src0,
 380           const union tgsi_exec_channel *src1)
 381 {
 382    dst->f[0] = src0->f[0] > src1->f[0] ? 1.0f : 0.0f;
 383    dst->f[1] = src0->f[1] > src1->f[1] ? 1.0f : 0.0f;
 384    dst->f[2] = src0->f[2] > src1->f[2] ? 1.0f : 0.0f;
 385    dst->f[3] = src0->f[3] > src1->f[3] ? 1.0f : 0.0f;
 386 }
 387
 388 static void
 389 micro_sin(union tgsi_exec_channel *dst,
 390           const union tgsi_exec_channel *src)
 391 {
 392    dst->f[0] = sinf(src->f[0]);
 393    dst->f[1] = sinf(src->f[1]);
 394    dst->f[2] = sinf(src->f[2]);
 395    dst->f[3] = sinf(src->f[3]);
 396 }
 397
 398 static void
 399 micro_sle(union tgsi_exec_channel *dst,
 400           const union tgsi_exec_channel *src0,
 401           const union tgsi_exec_channel *src1)
 402 {
 403    dst->f[0] = src0->f[0] <= src1->f[0] ? 1.0f : 0.0f;
 404    dst->f[1] = src0->f[1] <= src1->f[1] ? 1.0f : 0.0f;
 405    dst->f[2] = src0->f[2] <= src1->f[2] ? 1.0f : 0.0f;
 406    dst->f[3] = src0->f[3] <= src1->f[3] ? 1.0f : 0.0f;
 407 }
 408
 409 static void
 410 micro_slt(union tgsi_exec_channel *dst,
 411           const union tgsi_exec_channel *src0,
 412           const union tgsi_exec_channel *src1)
 413 {
 414    dst->f[0] = src0->f[0] < src1->f[0] ? 1.0f : 0.0f;
 415    dst->f[1] = src0->f[1] < src1->f[1] ? 1.0f : 0.0f;
 416    dst->f[2] = src0->f[2] < src1->f[2] ? 1.0f : 0.0f;
 417    dst->f[3] = src0->f[3] < src1->f[3] ? 1.0f : 0.0f;
 418 }
 419
 420 static void
 421 micro_sne(union tgsi_exec_channel *dst,
 422           const union tgsi_exec_channel *src0,
 423           const union tgsi_exec_channel *src1)
 424 {
 425    dst->f[0] = src0->f[0] != src1->f[0] ? 1.0f : 0.0f;
 426    dst->f[1] = src0->f[1] != src1->f[1] ? 1.0f : 0.0f;
 427    dst->f[2] = src0->f[2] != src1->f[2] ? 1.0f : 0.0f;
 428    dst->f[3] = src0->f[3] != src1->f[3] ? 1.0f : 0.0f;
 429 }
 430
 431 static void
 432 micro_sfl(union tgsi_exec_channel *dst)
 433 {
 434    dst->f[0] = 0.0f;
 435    dst->f[1] = 0.0f;
 436    dst->f[2] = 0.0f;
 437    dst->f[3] = 0.0f;
 438 }
 439
 440 static void
 441 micro_str(union tgsi_exec_channel *dst)
 442 {
 443    dst->f[0] = 1.0f;
 444    dst->f[1] = 1.0f;
 445    dst->f[2] = 1.0f;
 446    dst->f[3] = 1.0f;
 447 }
 448
 449 static void
 450 micro_trunc(union tgsi_exec_channel *dst,
 451             const union tgsi_exec_channel *src)
 452 {
 453    dst->f[0] = (float)(int)src->f[0];
 454    dst->f[1] = (float)(int)src->f[1];
 455    dst->f[2] = (float)(int)src->f[2];
 456    dst->f[3] = (float)(int)src->f[3];
 457 }
 458
 459
 460 #define CHAN_X  0
 461 #define CHAN_Y  1
 462 #define CHAN_Z  2
 463 #define CHAN_W  3
 464
 465 enum tgsi_exec_datatype {
 466    TGSI_EXEC_DATA_FLOAT,
 467    TGSI_EXEC_DATA_INT,
 468    TGSI_EXEC_DATA_UINT
 469 };
 470
 471 /*
 472  * Shorthand locations of various utility registers (_I = Index, _C = Channel)
 473  */
 474 #define TEMP_KILMASK_I     TGSI_EXEC_TEMP_KILMASK_I
 475 #define TEMP_KILMASK_C     TGSI_EXEC_TEMP_KILMASK_C
 476 #define TEMP_OUTPUT_I      TGSI_EXEC_TEMP_OUTPUT_I
 477 #define TEMP_OUTPUT_C      TGSI_EXEC_TEMP_OUTPUT_C
 478 #define TEMP_PRIMITIVE_I   TGSI_EXEC_TEMP_PRIMITIVE_I
 479 #define TEMP_PRIMITIVE_C   TGSI_EXEC_TEMP_PRIMITIVE_C
 480
 481
 482 /** The execution mask depends on the conditional mask and the loop mask */
 483 #define UPDATE_EXEC_MASK(MACH) \
 484       MACH->ExecMask = MACH->CondMask & MACH->LoopMask & MACH->ContMask & MACH->Switch.mask & MACH->FuncMask
 485
 486
 487 static const union tgsi_exec_channel ZeroVec =
 488    { { 0.0, 0.0, 0.0, 0.0 } };
 489
 490 static const union tgsi_exec_channel OneVec = {
 491    {1.0f, 1.0f, 1.0f, 1.0f}
 492 };
 493
 494 static const union tgsi_exec_channel P128Vec = {
 495    {128.0f, 128.0f, 128.0f, 128.0f}
 496 };
 497
 498 static const union tgsi_exec_channel M128Vec = {
 499    {-128.0f, -128.0f, -128.0f, -128.0f}
 500 };
 501
 502
 503 /**
 504  * Assert that none of the float values in 'chan' are infinite or NaN.
 505  * NaN and Inf may occur normally during program execution and should
 506  * not lead to crashes, etc.  But when debugging, it's helpful to catch
 507  * them.
 508  */
 509 static INLINE void
 510 check_inf_or_nan(const union tgsi_exec_channel *chan)
 511 {
 512    assert(!util_is_inf_or_nan((chan)->f[0]));
 513    assert(!util_is_inf_or_nan((chan)->f[1]));
 514    assert(!util_is_inf_or_nan((chan)->f[2]));
 515    assert(!util_is_inf_or_nan((chan)->f[3]));
 516 }
 517
 518
 519 #ifdef DEBUG
 520 static void
 521 print_chan(const char *msg, const union tgsi_exec_channel *chan)
 522 {
 523    debug_printf("%s = {%f, %f, %f, %f}\n",
 524                 msg, chan->f[0], chan->f[1], chan->f[2], chan->f[3]);
 525 }
 526 #endif
 527
 528
 529 #ifdef DEBUG
 530 static void
 531 print_temp(const struct tgsi_exec_machine *mach, uint index)
 532 {
 533    const struct tgsi_exec_vector *tmp = &mach->Temps[index];
 534    int i;
 535    debug_printf("Temp[%u] =\n", index);
 536    for (i = 0; i < 4; i++) {
 537       debug_printf("  %c: { %f, %f, %f, %f }\n",
 538                    "XYZW"[i],
 539                    tmp->xyzw[i].f[0],
 540                    tmp->xyzw[i].f[1],
 541                    tmp->xyzw[i].f[2],
 542                    tmp->xyzw[i].f[3]);
 543    }
 544 }
 545 #endif
 546
 547
 548 void
 549 tgsi_exec_set_constant_buffers(struct tgsi_exec_machine *mach,
 550                                unsigned num_bufs,
 551                                const void **bufs,
 552                                const unsigned *buf_sizes)
 553 {
 554    unsigned i;
 555
 556    for (i = 0; i < num_bufs; i++) {
 557       mach->Consts[i] = bufs[i];
 558       mach->ConstsSize[i] = buf_sizes[i];
 559    }
 560 }
 561
 562
 563 /**
 564  * Check if there's a potential src/dst register data dependency when
 565  * using SOA execution.
 566  * Example:
 567  *   MOV T, T.yxwz;
 568  * This would expand into:
 569  *   MOV t0, t1;
 570  *   MOV t1, t0;
 571  *   MOV t2, t3;
 572  *   MOV t3, t2;
 573  * The second instruction will have the wrong value for t0 if executed as-is.
 574  */
 575 boolean
 576 tgsi_check_soa_dependencies(const struct tgsi_full_instruction *inst)
 577 {
 578    uint i, chan;
 579
 580    uint writemask = inst->Dst[0].Register.WriteMask;
 581    if (writemask == TGSI_WRITEMASK_X ||
 582        writemask == TGSI_WRITEMASK_Y ||
 583        writemask == TGSI_WRITEMASK_Z ||
 584        writemask == TGSI_WRITEMASK_W ||
 585        writemask == TGSI_WRITEMASK_NONE) {
 586       /* no chance of data dependency */
 587       return FALSE;
 588    }
 589
 590    /* loop over src regs */
 591    for (i = 0; i < inst->Instruction.NumSrcRegs; i++) {
 592       if ((inst->Src[i].Register.File ==
 593            inst->Dst[0].Register.File) &&
 594           ((inst->Src[i].Register.Index ==
 595             inst->Dst[0].Register.Index) ||
 596            inst->Src[i].Register.Indirect ||
 597            inst->Dst[0].Register.Indirect)) {
 598          /* loop over dest channels */
 599          uint channelsWritten = 0x0;
 600          for (chan = 0; chan < NUM_CHANNELS; chan++) {
 601             if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
 602                /* check if we're reading a channel that's been written */
 603                uint swizzle = tgsi_util_get_full_src_register_swizzle(&inst->Src[i], chan);
 604                if (channelsWritten & (1 << swizzle)) {
 605                   return TRUE;
 606                }
 607
 608                channelsWritten |= (1 << chan);
 609             }
 610          }
 611       }
 612    }
 613    return FALSE;
 614 }
 615
 616
 617 /**
 618  * Initialize machine state by expanding tokens to full instructions,
 619  * allocating temporary storage, setting up constants, etc.
 620  * After this, we can call tgsi_exec_machine_run() many times.
 621  */
 622 void
 623 tgsi_exec_machine_bind_shader(
 624    struct tgsi_exec_machine *mach,
 625    const struct tgsi_token *tokens,
 626    uint numSamplers,
 627    struct tgsi_sampler **samplers)
 628 {
 629    uint k;
 630    struct tgsi_parse_context parse;
 631    struct tgsi_full_instruction *instructions;
 632    struct tgsi_full_declaration *declarations;
 633    uint maxInstructions = 10, numInstructions = 0;
 634    uint maxDeclarations = 10, numDeclarations = 0;
 635
 636 #if 0
 637    tgsi_dump(tokens, 0);
 638 #endif
 639
 640    util_init_math();
 641
 642    if (numSamplers) {
 643       assert(samplers);
 644    }
 645
 646    mach->Tokens = tokens;
 647    mach->Samplers = samplers;
 648
 649    if (!tokens) {
 650       /* unbind and free all */
 651       if (mach->Declarations) {
 652          FREE( mach->Declarations );
 653       }
 654       mach->Declarations = NULL;
 655       mach->NumDeclarations = 0;
 656
 657       if (mach->Instructions) {
 658          FREE( mach->Instructions );
 659       }
 660       mach->Instructions = NULL;
 661       mach->NumInstructions = 0;
 662
 663       return;
 664    }
 665
 666    k = tgsi_parse_init (&parse, mach->Tokens);
 667    if (k != TGSI_PARSE_OK) {
 668       debug_printf( "Problem parsing!\n" );
 669       return;
 670    }
 671
 672    mach->Processor = parse.FullHeader.Processor.Processor;
 673    mach->ImmLimit = 0;
 674
 675    if (mach->Processor == TGSI_PROCESSOR_GEOMETRY &&
 676        !mach->UsedGeometryShader) {
 677       struct tgsi_exec_vector *inputs =
 678          align_malloc(sizeof(struct tgsi_exec_vector) *
 679                       TGSI_MAX_PRIM_VERTICES * PIPE_MAX_ATTRIBS,
 680                       16);
 681       struct tgsi_exec_vector *outputs =
 682          align_malloc(sizeof(struct tgsi_exec_vector) *
 683                       TGSI_MAX_TOTAL_VERTICES, 16);
 684
 685       if (!inputs)
 686          return;
 687       if (!outputs) {
 688          align_free(inputs);
 689          return;
 690       }
 691
 692       align_free(mach->Inputs);
 693       align_free(mach->Outputs);
 694
 695       mach->Inputs = inputs;
 696       mach->Outputs = outputs;
 697       mach->UsedGeometryShader = TRUE;
 698    }
 699
 700    declarations = (struct tgsi_full_declaration *)
 701       MALLOC( maxDeclarations * sizeof(struct tgsi_full_declaration) );
 702
 703    if (!declarations) {
 704       return;
 705    }
 706
 707    instructions = (struct tgsi_full_instruction *)
 708       MALLOC( maxInstructions * sizeof(struct tgsi_full_instruction) );
 709
 710    if (!instructions) {
 711       FREE( declarations );
 712       return;
 713    }
 714
 715    while( !tgsi_parse_end_of_tokens( &parse ) ) {
 716       uint i;
 717
 718       tgsi_parse_token( &parse );
 719       switch( parse.FullToken.Token.Type ) {
 720       case TGSI_TOKEN_TYPE_DECLARATION:
 721          /* save expanded declaration */
 722          if (numDeclarations == maxDeclarations) {
 723             declarations = REALLOC(declarations,
 724                                    maxDeclarations
 725                                    * sizeof(struct tgsi_full_declaration),
 726                                    (maxDeclarations + 10)
 727                                    * sizeof(struct tgsi_full_declaration));
 728             maxDeclarations += 10;
 729          }
 730          if (parse.FullToken.FullDeclaration.Declaration.File == TGSI_FILE_OUTPUT) {
 731             unsigned reg;
 732             for (reg = parse.FullToken.FullDeclaration.Range.First;
 733                  reg <= parse.FullToken.FullDeclaration.Range.Last;
 734                  ++reg) {
 735                ++mach->NumOutputs;
 736             }
 737          }
 738          if (parse.FullToken.FullDeclaration.Declaration.File ==
 739              TGSI_FILE_IMMEDIATE_ARRAY) {
 740             unsigned reg;
 741             struct tgsi_full_declaration *decl =
 742                &parse.FullToken.FullDeclaration;
 743             debug_assert(decl->Range.Last < TGSI_EXEC_NUM_IMMEDIATES);
 744             for (reg = decl->Range.First; reg <= decl->Range.Last; ++reg) {
 745                for( i = 0; i < 4; i++ ) {
 746                   int idx = reg * 4 + i;
 747                   mach->ImmArray[reg][i] = decl->ImmediateData.u[idx].Float;
 748                }
 749             }
 750          }
 751          memcpy(declarations + numDeclarations,
 752                 &parse.FullToken.FullDeclaration,
 753                 sizeof(declarations[0]));
 754          numDeclarations++;
 755          break;
 756
 757       case TGSI_TOKEN_TYPE_IMMEDIATE:
 758          {
 759             uint size = parse.FullToken.FullImmediate.Immediate.NrTokens - 1;
 760             assert( size <= 4 );
 761             assert( mach->ImmLimit + 1 <= TGSI_EXEC_NUM_IMMEDIATES );
 762
 763             for( i = 0; i < size; i++ ) {
 764                mach->Imms[mach->ImmLimit][i] =
 765                   parse.FullToken.FullImmediate.u[i].Float;
 766             }
 767             mach->ImmLimit += 1;
 768          }
 769          break;
 770
 771       case TGSI_TOKEN_TYPE_INSTRUCTION:
 772
 773          /* save expanded instruction */
 774          if (numInstructions == maxInstructions) {
 775             instructions = REALLOC(instructions,
 776                                    maxInstructions
 777                                    * sizeof(struct tgsi_full_instruction),
 778                                    (maxInstructions + 10)
 779                                    * sizeof(struct tgsi_full_instruction));
 780             maxInstructions += 10;
 781          }
 782
 783          memcpy(instructions + numInstructions,
 784                 &parse.FullToken.FullInstruction,
 785                 sizeof(instructions[0]));
 786
 787          numInstructions++;
 788          break;
 789
 790       case TGSI_TOKEN_TYPE_PROPERTY:
 791          break;
 792
 793       default:
 794          assert( 0 );
 795       }
 796    }
 797    tgsi_parse_free (&parse);
 798
 799    if (mach->Declarations) {
 800       FREE( mach->Declarations );
 801    }
 802    mach->Declarations = declarations;
 803    mach->NumDeclarations = numDeclarations;
 804
 805    if (mach->Instructions) {
 806       FREE( mach->Instructions );
 807    }
 808    mach->Instructions = instructions;
 809    mach->NumInstructions = numInstructions;
 810 }
 811
 812
 813 struct tgsi_exec_machine *
 814 tgsi_exec_machine_create( void )
 815 {
 816    struct tgsi_exec_machine *mach;
 817    uint i;
 818
 819    mach = align_malloc( sizeof *mach, 16 );
 820    if (!mach)
 821       goto fail;
 822
 823    memset(mach, 0, sizeof(*mach));
 824
 825    mach->Addrs = &mach->Temps[TGSI_EXEC_TEMP_ADDR];
 826    mach->MaxGeometryShaderOutputs = TGSI_MAX_TOTAL_VERTICES;
 827    mach->Predicates = &mach->Temps[TGSI_EXEC_TEMP_P0];
 828
 829    mach->Inputs = align_malloc(sizeof(struct tgsi_exec_vector) * PIPE_MAX_ATTRIBS, 16);
 830    mach->Outputs = align_malloc(sizeof(struct tgsi_exec_vector) * PIPE_MAX_ATTRIBS, 16);
 831    if (!mach->Inputs || !mach->Outputs)
 832       goto fail;
 833
 834    /* Setup constants needed by the SSE2 executor. */
 835    for( i = 0; i < 4; i++ ) {
 836       mach->Temps[TGSI_EXEC_TEMP_00000000_I].xyzw[TGSI_EXEC_TEMP_00000000_C].u[i] = 0x00000000;
 837       mach->Temps[TGSI_EXEC_TEMP_7FFFFFFF_I].xyzw[TGSI_EXEC_TEMP_7FFFFFFF_C].u[i] = 0x7FFFFFFF;
 838       mach->Temps[TGSI_EXEC_TEMP_80000000_I].xyzw[TGSI_EXEC_TEMP_80000000_C].u[i] = 0x80000000;
 839       mach->Temps[TGSI_EXEC_TEMP_FFFFFFFF_I].xyzw[TGSI_EXEC_TEMP_FFFFFFFF_C].u[i] = 0xFFFFFFFF;    /* not used */
 840       mach->Temps[TGSI_EXEC_TEMP_ONE_I].xyzw[TGSI_EXEC_TEMP_ONE_C].f[i] = 1.0f;
 841       mach->Temps[TGSI_EXEC_TEMP_TWO_I].xyzw[TGSI_EXEC_TEMP_TWO_C].f[i] = 2.0f;    /* not used */
 842       mach->Temps[TGSI_EXEC_TEMP_128_I].xyzw[TGSI_EXEC_TEMP_128_C].f[i] = 128.0f;
 843       mach->Temps[TGSI_EXEC_TEMP_MINUS_128_I].xyzw[TGSI_EXEC_TEMP_MINUS_128_C].f[i] = -128.0f;
 844       mach->Temps[TGSI_EXEC_TEMP_THREE_I].xyzw[TGSI_EXEC_TEMP_THREE_C].f[i] = 3.0f;
 845       mach->Temps[TGSI_EXEC_TEMP_HALF_I].xyzw[TGSI_EXEC_TEMP_HALF_C].f[i] = 0.5f;
 846    }
 847
 848 #ifdef DEBUG
 849    /* silence warnings */
 850    (void) print_chan;
 851    (void) print_temp;
 852 #endif
 853
 854    return mach;
 855
 856 fail:
 857    if (mach) {
 858       align_free(mach->Inputs);
 859       align_free(mach->Outputs);
 860       align_free(mach);
 861    }
 862    return NULL;
 863 }
 864
 865
 866 void
 867 tgsi_exec_machine_destroy(struct tgsi_exec_machine *mach)
 868 {
 869    if (mach) {
 870       if (mach->Instructions)
 871          FREE(mach->Instructions);
 872       if (mach->Declarations)
 873          FREE(mach->Declarations);
 874
 875       align_free(mach->Inputs);
 876       align_free(mach->Outputs);
 877
 878       align_free(mach);
 879    }
 880 }
 881
 882 static void
 883 micro_add(union tgsi_exec_channel *dst,
 884           const union tgsi_exec_channel *src0,
 885           const union tgsi_exec_channel *src1)
 886 {
 887    dst->f[0] = src0->f[0] + src1->f[0];
 888    dst->f[1] = src0->f[1] + src1->f[1];
 889    dst->f[2] = src0->f[2] + src1->f[2];
 890    dst->f[3] = src0->f[3] + src1->f[3];
 891 }
 892
 893 static void
 894 micro_div(
 895    union tgsi_exec_channel *dst,
 896    const union tgsi_exec_channel *src0,
 897    const union tgsi_exec_channel *src1 )
 898 {
 899    if (src1->f[0] != 0) {
 900       dst->f[0] = src0->f[0] / src1->f[0];
 901    }
 902    if (src1->f[1] != 0) {
 903       dst->f[1] = src0->f[1] / src1->f[1];
 904    }
 905    if (src1->f[2] != 0) {
 906       dst->f[2] = src0->f[2] / src1->f[2];
 907    }
 908    if (src1->f[3] != 0) {
 909       dst->f[3] = src0->f[3] / src1->f[3];
 910    }
 911 }
 912
 913 static void
 914 micro_rcc(union tgsi_exec_channel *dst,
 915           const union tgsi_exec_channel *src)
 916 {
 917    uint i;
 918
 919    for (i = 0; i < 4; i++) {
 920       float recip = 1.0f / src->f[i];
 921
 922       if (recip > 0.0f) {
 923          if (recip > 1.884467e+019f) {
 924             dst->f[i] = 1.884467e+019f;
 925          }
 926          else if (recip < 5.42101e-020f) {
 927             dst->f[i] = 5.42101e-020f;
 928          }
 929          else {
 930             dst->f[i] = recip;
 931          }
 932       }
 933       else {
 934          if (recip < -1.884467e+019f) {
 935             dst->f[i] = -1.884467e+019f;
 936          }
 937          else if (recip > -5.42101e-020f) {
 938             dst->f[i] = -5.42101e-020f;
 939          }
 940          else {
 941             dst->f[i] = recip;
 942          }
 943       }
 944    }
 945 }
 946
 947 static void
 948 micro_lt(
 949    union tgsi_exec_channel *dst,
 950    const union tgsi_exec_channel *src0,
 951    const union tgsi_exec_channel *src1,
 952    const union tgsi_exec_channel *src2,
 953    const union tgsi_exec_channel *src3 )
 954 {
 955    dst->f[0] = src0->f[0] < src1->f[0] ? src2->f[0] : src3->f[0];
 956    dst->f[1] = src0->f[1] < src1->f[1] ? src2->f[1] : src3->f[1];
 957    dst->f[2] = src0->f[2] < src1->f[2] ? src2->f[2] : src3->f[2];
 958    dst->f[3] = src0->f[3] < src1->f[3] ? src2->f[3] : src3->f[3];
 959 }
 960
 961 static void
 962 micro_max(union tgsi_exec_channel *dst,
 963           const union tgsi_exec_channel *src0,
 964           const union tgsi_exec_channel *src1)
 965 {
 966    dst->f[0] = src0->f[0] > src1->f[0] ? src0->f[0] : src1->f[0];
 967    dst->f[1] = src0->f[1] > src1->f[1] ? src0->f[1] : src1->f[1];
 968    dst->f[2] = src0->f[2] > src1->f[2] ? src0->f[2] : src1->f[2];
 969    dst->f[3] = src0->f[3] > src1->f[3] ? src0->f[3] : src1->f[3];
 970 }
 971
 972 static void
 973 micro_min(union tgsi_exec_channel *dst,
 974           const union tgsi_exec_channel *src0,
 975           const union tgsi_exec_channel *src1)
 976 {
 977    dst->f[0] = src0->f[0] < src1->f[0] ? src0->f[0] : src1->f[0];
 978    dst->f[1] = src0->f[1] < src1->f[1] ? src0->f[1] : src1->f[1];
 979    dst->f[2] = src0->f[2] < src1->f[2] ? src0->f[2] : src1->f[2];
 980    dst->f[3] = src0->f[3] < src1->f[3] ? src0->f[3] : src1->f[3];
 981 }
 982
 983 static void
 984 micro_mul(union tgsi_exec_channel *dst,
 985           const union tgsi_exec_channel *src0,
 986           const union tgsi_exec_channel *src1)
 987 {
 988    dst->f[0] = src0->f[0] * src1->f[0];
 989    dst->f[1] = src0->f[1] * src1->f[1];
 990    dst->f[2] = src0->f[2] * src1->f[2];
 991    dst->f[3] = src0->f[3] * src1->f[3];
 992 }
 993
 994 static void
 995 micro_neg(
 996    union tgsi_exec_channel *dst,
 997    const union tgsi_exec_channel *src )
 998 {
 999    dst->f[0] = -src->f[0];
1000    dst->f[1] = -src->f[1];
1001    dst->f[2] = -src->f[2];
1002    dst->f[3] = -src->f[3];
1003 }
1004
1005 static void
1006 micro_pow(
1007    union tgsi_exec_channel *dst,
1008    const union tgsi_exec_channel *src0,
1009    const union tgsi_exec_channel *src1 )
1010 {
1011 #if FAST_MATH
1012    dst->f[0] = util_fast_pow( src0->f[0], src1->f[0] );
1013    dst->f[1] = util_fast_pow( src0->f[1], src1->f[1] );
1014    dst->f[2] = util_fast_pow( src0->f[2], src1->f[2] );
1015    dst->f[3] = util_fast_pow( src0->f[3], src1->f[3] );
1016 #else
1017    dst->f[0] = powf( src0->f[0], src1->f[0] );
1018    dst->f[1] = powf( src0->f[1], src1->f[1] );
1019    dst->f[2] = powf( src0->f[2], src1->f[2] );
1020    dst->f[3] = powf( src0->f[3], src1->f[3] );
1021 #endif
1022 }
1023
1024 static void
1025 micro_sub(union tgsi_exec_channel *dst,
1026           const union tgsi_exec_channel *src0,
1027           const union tgsi_exec_channel *src1)
1028 {
1029    dst->f[0] = src0->f[0] - src1->f[0];
1030    dst->f[1] = src0->f[1] - src1->f[1];
1031    dst->f[2] = src0->f[2] - src1->f[2];
1032    dst->f[3] = src0->f[3] - src1->f[3];
1033 }
1034
1035 static void
1036 fetch_src_file_channel(const struct tgsi_exec_machine *mach,
1037                        const uint file,
1038                        const uint swizzle,
1039                        const union tgsi_exec_channel *index,
1040                        const union tgsi_exec_channel *index2D,
1041                        union tgsi_exec_channel *chan)
1042 {
1043    uint i;
1044
1045    assert(swizzle < 4);
1046
1047    switch (file) {
1048    case TGSI_FILE_CONSTANT:
1049       for (i = 0; i < QUAD_SIZE; i++) {
1050          assert(index2D->i[i] >= 0 && index2D->i[i] < PIPE_MAX_CONSTANT_BUFFERS);
1051          assert(mach->Consts[index2D->i[i]]);
1052
1053          if (index->i[i] < 0) {
1054             chan->u[i] = 0;
1055          } else {
1056             /* NOTE: copying the const value as a uint instead of float */
1057             const uint constbuf = index2D->i[i];
1058             const uint *buf = (const uint *)mach->Consts[constbuf];
1059             const int pos = index->i[i] * 4 + swizzle;
1060             /* const buffer bounds check */
1061             if (pos < 0 || pos >= mach->ConstsSize[constbuf]) {
1062                if (0) {
1063                   /* Debug: print warning */
1064                   static int count = 0;
1065                   if (count++ < 100)
1066                      debug_printf("TGSI Exec: const buffer index %d"
1067                                   " out of bounds\n", pos);
1068                }
1069                chan->u[i] = 0;
1070             }
1071             else
1072                chan->u[i] = buf[pos];
1073          }
1074       }
1075       break;
1076
1077    case TGSI_FILE_INPUT:
1078       for (i = 0; i < QUAD_SIZE; i++) {
1079          /*
1080          if (TGSI_PROCESSOR_GEOMETRY == mach->Processor) {
1081             debug_printf("Fetching Input[%d] (2d=%d, 1d=%d)\n",
1082                          index2D->i[i] * TGSI_EXEC_MAX_INPUT_ATTRIBS + index->i[i],
1083                          index2D->i[i], index->i[i]);
1084                          }*/
1085          int pos = index2D->i[i] * TGSI_EXEC_MAX_INPUT_ATTRIBS + index->i[i];
1086          assert(pos >= 0);
1087          assert(pos < TGSI_MAX_PRIM_VERTICES * PIPE_MAX_ATTRIBS);
1088          chan->u[i] = mach->Inputs[pos].xyzw[swizzle].u[i];
1089       }
1090       break;
1091
1092    case TGSI_FILE_SYSTEM_VALUE:
1093       /* XXX no swizzling at this point.  Will be needed if we put
1094        * gl_FragCoord, for example, in a sys value register.
1095        */
1096       for (i = 0; i < QUAD_SIZE; i++) {
1097          chan->f[i] = mach->SystemValue[index->i[i]][0];
1098       }
1099       break;
1100
1101    case TGSI_FILE_TEMPORARY:
1102       for (i = 0; i < QUAD_SIZE; i++) {
1103          assert(index->i[i] < TGSI_EXEC_NUM_TEMPS);
1104          assert(index2D->i[i] == 0);
1105
1106          chan->u[i] = mach->Temps[index->i[i]].xyzw[swizzle].u[i];
1107       }
1108       break;
1109
1110    case TGSI_FILE_TEMPORARY_ARRAY:
1111       for (i = 0; i < QUAD_SIZE; i++) {
1112          assert(index->i[i] < TGSI_EXEC_NUM_TEMPS);
1113          assert(index2D->i[i] < TGSI_EXEC_NUM_TEMP_ARRAYS);
1114
1115          chan->u[i] =
1116             mach->TempArray[index2D->i[i]][index->i[i]].xyzw[swizzle].u[i];
1117       }
1118       break;
1119
1120    case TGSI_FILE_IMMEDIATE:
1121       for (i = 0; i < QUAD_SIZE; i++) {
1122          assert(index->i[i] >= 0 && index->i[i] < (int)mach->ImmLimit);
1123          assert(index2D->i[i] == 0);
1124
1125          chan->f[i] = mach->Imms[index->i[i]][swizzle];
1126       }
1127       break;
1128
1129    case TGSI_FILE_IMMEDIATE_ARRAY:
1130       for (i = 0; i < QUAD_SIZE; i++) {
1131          assert(index2D->i[i] == 0);
1132
1133          chan->f[i] = mach->ImmArray[index->i[i]][swizzle];
1134       }
1135       break;
1136
1137    case TGSI_FILE_ADDRESS:
1138       for (i = 0; i < QUAD_SIZE; i++) {
1139          assert(index->i[i] >= 0);
1140          assert(index2D->i[i] == 0);
1141
1142          chan->u[i] = mach->Addrs[index->i[i]].xyzw[swizzle].u[i];
1143       }
1144       break;
1145
1146    case TGSI_FILE_PREDICATE:
1147       for (i = 0; i < QUAD_SIZE; i++) {
1148          assert(index->i[i] >= 0 && index->i[i] < TGSI_EXEC_NUM_PREDS);
1149          assert(index2D->i[i] == 0);
1150
1151          chan->u[i] = mach->Predicates[0].xyzw[swizzle].u[i];
1152       }
1153       break;
1154
1155    case TGSI_FILE_OUTPUT:
1156       /* vertex/fragment output vars can be read too */
1157       for (i = 0; i < QUAD_SIZE; i++) {
1158          assert(index->i[i] >= 0);
1159          assert(index2D->i[i] == 0);
1160
1161          chan->u[i] = mach->Outputs[index->i[i]].xyzw[swizzle].u[i];
1162       }
1163       break;
1164
1165    default:
1166       assert(0);
1167       for (i = 0; i < QUAD_SIZE; i++) {
1168          chan->u[i] = 0;
1169       }
1170    }
1171 }
1172
1173 static void
1174 fetch_source(const struct tgsi_exec_machine *mach,
1175              union tgsi_exec_channel *chan,
1176              const struct tgsi_full_src_register *reg,
1177              const uint chan_index,
1178              enum tgsi_exec_datatype src_datatype)
1179 {
1180    union tgsi_exec_channel index;
1181    union tgsi_exec_channel index2D;
1182    uint swizzle;
1183
1184    /* We start with a direct index into a register file.
1185     *
1186     *    file[1],
1187     *    where:
1188     *       file = Register.File
1189     *       [1] = Register.Index
1190     */
1191    index.i[0] =
1192    index.i[1] =
1193    index.i[2] =
1194    index.i[3] = reg->Register.Index;
1195
1196    /* There is an extra source register that indirectly subscripts
1197     * a register file. The direct index now becomes an offset
1198     * that is being added to the indirect register.
1199     *
1200     *    file[ind[2].x+1],
1201     *    where:
1202     *       ind = Indirect.File
1203     *       [2] = Indirect.Index
1204     *       .x = Indirect.SwizzleX
1205     */
1206    if (reg->Register.Indirect) {
1207       union tgsi_exec_channel index2;
1208       union tgsi_exec_channel indir_index;
1209       const uint execmask = mach->ExecMask;
1210       uint i;
1211
1212       /* which address register (always zero now) */
1213       index2.i[0] =
1214       index2.i[1] =
1215       index2.i[2] =
1216       index2.i[3] = reg->Indirect.Index;
1217       assert(reg->Indirect.File == TGSI_FILE_ADDRESS);
1218       /* get current value of address register[swizzle] */
1219       swizzle = tgsi_util_get_src_register_swizzle( &reg->Indirect, CHAN_X );
1220       fetch_src_file_channel(mach,
1221                              reg->Indirect.File,
1222                              swizzle,
1223                              &index2,
1224                              &ZeroVec,
1225                              &indir_index);
1226
1227       /* add value of address register to the offset */
1228       index.i[0] += indir_index.i[0];
1229       index.i[1] += indir_index.i[1];
1230       index.i[2] += indir_index.i[2];
1231       index.i[3] += indir_index.i[3];
1232
1233       /* for disabled execution channels, zero-out the index to
1234        * avoid using a potential garbage value.
1235        */
1236       for (i = 0; i < QUAD_SIZE; i++) {
1237          if ((execmask & (1 << i)) == 0)
1238             index.i[i] = 0;
1239       }
1240    }
1241
1242    /* There is an extra source register that is a second
1243     * subscript to a register file. Effectively it means that
1244     * the register file is actually a 2D array of registers.
1245     *
1246     *    file[3][1],
1247     *    where:
1248     *       [3] = Dimension.Index
1249     */
1250    if (reg->Register.Dimension) {
1251       index2D.i[0] =
1252       index2D.i[1] =
1253       index2D.i[2] =
1254       index2D.i[3] = reg->Dimension.Index;
1255
1256       /* Again, the second subscript index can be addressed indirectly
1257        * identically to the first one.
1258        * Nothing stops us from indirectly addressing the indirect register,
1259        * but there is no need for that, so we won't exercise it.
1260        *
1261        *    file[ind[4].y+3][1],
1262        *    where:
1263        *       ind = DimIndirect.File
1264        *       [4] = DimIndirect.Index
1265        *       .y = DimIndirect.SwizzleX
1266        */
1267       if (reg->Dimension.Indirect) {
1268          union tgsi_exec_channel index2;
1269          union tgsi_exec_channel indir_index;
1270          const uint execmask = mach->ExecMask;
1271          uint i;
1272
1273          index2.i[0] =
1274          index2.i[1] =
1275          index2.i[2] =
1276          index2.i[3] = reg->DimIndirect.Index;
1277
1278          swizzle = tgsi_util_get_src_register_swizzle( &reg->DimIndirect, CHAN_X );
1279          fetch_src_file_channel(mach,
1280                                 reg->DimIndirect.File,
1281                                 swizzle,
1282                                 &index2,
1283                                 &ZeroVec,
1284                                 &indir_index);
1285
1286          index2D.i[0] += indir_index.i[0];
1287          index2D.i[1] += indir_index.i[1];
1288          index2D.i[2] += indir_index.i[2];
1289          index2D.i[3] += indir_index.i[3];
1290
1291          /* for disabled execution channels, zero-out the index to
1292           * avoid using a potential garbage value.
1293           */
1294          for (i = 0; i < QUAD_SIZE; i++) {
1295             if ((execmask & (1 << i)) == 0) {
1296                index2D.i[i] = 0;
1297             }
1298          }
1299       }
1300
1301       /* If by any chance there was a need for a 3D array of register
1302        * files, we would have to check whether Dimension is followed
1303        * by a dimension register and continue the saga.
1304        */
1305    } else {
1306       index2D.i[0] =
1307       index2D.i[1] =
1308       index2D.i[2] =
1309       index2D.i[3] = 0;
1310    }
1311
1312    swizzle = tgsi_util_get_full_src_register_swizzle( reg, chan_index );
1313    fetch_src_file_channel(mach,
1314                           reg->Register.File,
1315                           swizzle,
1316                           &index,
1317                           &index2D,
1318                           chan);
1319
1320    if (reg->Register.Absolute) {
1321       if (src_datatype == TGSI_EXEC_DATA_FLOAT) {
1322          micro_abs(chan, chan);
1323       } else {
1324          micro_iabs(chan, chan);
1325       }
1326    }
1327
1328    if (reg->Register.Negate) {
1329       if (src_datatype == TGSI_EXEC_DATA_FLOAT) {
1330          micro_neg(chan, chan);
1331       } else {
1332          micro_ineg(chan, chan);
1333       }
1334    }
1335 }
1336
1337 static void
1338 store_dest(struct tgsi_exec_machine *mach,
1339            const union tgsi_exec_channel *chan,
1340            const struct tgsi_full_dst_register *reg,
1341            const struct tgsi_full_instruction *inst,
1342            uint chan_index,
1343            enum tgsi_exec_datatype dst_datatype)
1344 {
1345    uint i;
1346    union tgsi_exec_channel null;
1347    union tgsi_exec_channel *dst;
1348    union tgsi_exec_channel index2D;
1349    uint execmask = mach->ExecMask;
1350    int offset = 0;  /* indirection offset */
1351    int index;
1352
1353    /* for debugging */
1354    if (0 && dst_datatype == TGSI_EXEC_DATA_FLOAT) {
1355       check_inf_or_nan(chan);
1356    }
1357
1358    /* There is an extra source register that indirectly subscripts
1359     * a register file. The direct index now becomes an offset
1360     * that is being added to the indirect register.
1361     *
1362     *    file[ind[2].x+1],
1363     *    where:
1364     *       ind = Indirect.File
1365     *       [2] = Indirect.Index
1366     *       .x = Indirect.SwizzleX
1367     */
1368    if (reg->Register.Indirect) {
1369       union tgsi_exec_channel index;
1370       union tgsi_exec_channel indir_index;
1371       uint swizzle;
1372
1373       /* which address register (always zero for now) */
1374       index.i[0] =
1375       index.i[1] =
1376       index.i[2] =
1377       index.i[3] = reg->Indirect.Index;
1378
1379       /* get current value of address register[swizzle] */
1380       swizzle = tgsi_util_get_src_register_swizzle( &reg->Indirect, CHAN_X );
1381
1382       /* fetch values from the address/indirection register */
1383       fetch_src_file_channel(mach,
1384                              reg->Indirect.File,
1385                              swizzle,
1386                              &index,
1387                              &ZeroVec,
1388                              &indir_index);
1389
1390       /* save indirection offset */
1391       offset = indir_index.i[0];
1392    }
1393
1394    /* There is an extra source register that is a second
1395     * subscript to a register file. Effectively it means that
1396     * the register file is actually a 2D array of registers.
1397     *
1398     *    file[3][1],
1399     *    where:
1400     *       [3] = Dimension.Index
1401     */
1402    if (reg->Register.Dimension) {
1403       index2D.i[0] =
1404       index2D.i[1] =
1405       index2D.i[2] =
1406       index2D.i[3] = reg->Dimension.Index;
1407
1408       /* Again, the second subscript index can be addressed indirectly
1409        * identically to the first one.
1410        * Nothing stops us from indirectly addressing the indirect register,
1411        * but there is no need for that, so we won't exercise it.
1412        *
1413        *    file[ind[4].y+3][1],
1414        *    where:
1415        *       ind = DimIndirect.File
1416        *       [4] = DimIndirect.Index
1417        *       .y = DimIndirect.SwizzleX
1418        */
1419       if (reg->Dimension.Indirect) {
1420          union tgsi_exec_channel index2;
1421          union tgsi_exec_channel indir_index;
1422          const uint execmask = mach->ExecMask;
1423          unsigned swizzle;
1424          uint i;
1425
1426          index2.i[0] =
1427          index2.i[1] =
1428          index2.i[2] =
1429          index2.i[3] = reg->DimIndirect.Index;
1430
1431          swizzle = tgsi_util_get_src_register_swizzle( &reg->DimIndirect, CHAN_X );
1432          fetch_src_file_channel(mach,
1433                                 reg->DimIndirect.File,
1434                                 swizzle,
1435                                 &index2,
1436                                 &ZeroVec,
1437                                 &indir_index);
1438
1439          index2D.i[0] += indir_index.i[0];
1440          index2D.i[1] += indir_index.i[1];
1441          index2D.i[2] += indir_index.i[2];
1442          index2D.i[3] += indir_index.i[3];
1443
1444          /* for disabled execution channels, zero-out the index to
1445           * avoid using a potential garbage value.
1446           */
1447          for (i = 0; i < QUAD_SIZE; i++) {
1448             if ((execmask & (1 << i)) == 0) {
1449                index2D.i[i] = 0;
1450             }
1451          }
1452       }
1453
1454       /* If by any chance there was a need for a 3D array of register
1455        * files, we would have to check whether Dimension is followed
1456        * by a dimension register and continue the saga.
1457        */
1458    } else {
1459       index2D.i[0] =
1460       index2D.i[1] =
1461       index2D.i[2] =
1462       index2D.i[3] = 0;
1463    }
1464
1465    switch (reg->Register.File) {
1466    case TGSI_FILE_NULL:
1467       dst = &null;
1468       break;
1469
1470    case TGSI_FILE_OUTPUT:
1471       index = mach->Temps[TEMP_OUTPUT_I].xyzw[TEMP_OUTPUT_C].u[0]
1472          + reg->Register.Index;
1473       dst = &mach->Outputs[offset + index].xyzw[chan_index];
1474 #if 0
1475       if (TGSI_PROCESSOR_GEOMETRY == mach->Processor) {
1476          fprintf(stderr, "STORING OUT[%d] mask(%d), = (", offset + index, execmask);
1477          for (i = 0; i < QUAD_SIZE; i++)
1478             if (execmask & (1 << i))
1479                fprintf(stderr, "%f, ", chan->f[i]);
1480          fprintf(stderr, ")\n");
1481       }
1482 #endif
1483       break;
1484
1485    case TGSI_FILE_TEMPORARY:
1486       index = reg->Register.Index;
1487       assert( index < TGSI_EXEC_NUM_TEMPS );
1488       dst = &mach->Temps[offset + index].xyzw[chan_index];
1489       break;
1490
1491    case TGSI_FILE_TEMPORARY_ARRAY:
1492       index = reg->Register.Index;
1493       assert( index < TGSI_EXEC_NUM_TEMPS );
1494       assert( index2D.i[0] < TGSI_EXEC_NUM_TEMP_ARRAYS );
1495       /* XXX we use index2D.i[0] here but somehow we might
1496        * end up with someone trying to store indirectly in
1497        * different buffers */
1498       dst = &mach->TempArray[index2D.i[0]][offset + index].xyzw[chan_index];
1499       break;
1500
1501    case TGSI_FILE_ADDRESS:
1502       index = reg->Register.Index;
1503       dst = &mach->Addrs[index].xyzw[chan_index];
1504       break;
1505
1506    case TGSI_FILE_PREDICATE:
1507       index = reg->Register.Index;
1508       assert(index < TGSI_EXEC_NUM_PREDS);
1509       dst = &mach->Predicates[index].xyzw[chan_index];
1510       break;
1511
1512    default:
1513       assert( 0 );
1514       return;
1515    }
1516
1517    if (inst->Instruction.Predicate) {
1518       uint swizzle;
1519       union tgsi_exec_channel *pred;
1520
1521       switch (chan_index) {
1522       case CHAN_X:
1523          swizzle = inst->Predicate.SwizzleX;
1524          break;
1525       case CHAN_Y:
1526          swizzle = inst->Predicate.SwizzleY;
1527          break;
1528       case CHAN_Z:
1529          swizzle = inst->Predicate.SwizzleZ;
1530          break;
1531       case CHAN_W:
1532          swizzle = inst->Predicate.SwizzleW;
1533          break;
1534       default:
1535          assert(0);
1536          return;
1537       }
1538
1539       assert(inst->Predicate.Index == 0);
1540
1541       pred = &mach->Predicates[inst->Predicate.Index].xyzw[swizzle];
1542
1543       if (inst->Predicate.Negate) {
1544          for (i = 0; i < QUAD_SIZE; i++) {
1545             if (pred->u[i]) {
1546                execmask &= ~(1 << i);
1547             }
1548          }
1549       } else {
1550          for (i = 0; i < QUAD_SIZE; i++) {
1551             if (!pred->u[i]) {
1552                execmask &= ~(1 << i);
1553             }
1554          }
1555       }
1556    }
1557
1558    switch (inst->Instruction.Saturate) {
1559    case TGSI_SAT_NONE:
1560       for (i = 0; i < QUAD_SIZE; i++)
1561          if (execmask & (1 << i))
1562             dst->i[i] = chan->i[i];
1563       break;
1564
1565    case TGSI_SAT_ZERO_ONE:
1566       for (i = 0; i < QUAD_SIZE; i++)
1567          if (execmask & (1 << i)) {
1568             if (chan->f[i] < 0.0f)
1569                dst->f[i] = 0.0f;
1570             else if (chan->f[i] > 1.0f)
1571                dst->f[i] = 1.0f;
1572             else
1573                dst->i[i] = chan->i[i];
1574          }
1575       break;
1576
1577    case TGSI_SAT_MINUS_PLUS_ONE:
1578       for (i = 0; i < QUAD_SIZE; i++)
1579          if (execmask & (1 << i)) {
1580             if (chan->f[i] < -1.0f)
1581                dst->f[i] = -1.0f;
1582             else if (chan->f[i] > 1.0f)
1583                dst->f[i] = 1.0f;
1584             else
1585                dst->i[i] = chan->i[i];
1586          }
1587       break;
1588
1589    default:
1590       assert( 0 );
1591    }
1592 }
1593
1594 #define FETCH(VAL,INDEX,CHAN)\
1595     fetch_source(mach, VAL, &inst->Src[INDEX], CHAN, TGSI_EXEC_DATA_FLOAT)
1596
1597
1598 /**
1599  * Execute ARB-style KIL which is predicated by a src register.
1600  * Kill fragment if any of the four values is less than zero.
1601  */
1602 static void
1603 exec_kil(struct tgsi_exec_machine *mach,
1604          const struct tgsi_full_instruction *inst)
1605 {
1606    uint uniquemask;
1607    uint chan_index;
1608    uint kilmask = 0; /* bit 0 = pixel 0, bit 1 = pixel 1, etc */
1609    union tgsi_exec_channel r[1];
1610
1611    /* This mask stores component bits that were already tested. */
1612    uniquemask = 0;
1613
1614    for (chan_index = 0; chan_index < 4; chan_index++)
1615    {
1616       uint swizzle;
1617       uint i;
1618
1619       /* unswizzle channel */
1620       swizzle = tgsi_util_get_full_src_register_swizzle (
1621                         &inst->Src[0],
1622                         chan_index);
1623
1624       /* check if the component has not been already tested */
1625       if (uniquemask & (1 << swizzle))
1626          continue;
1627       uniquemask |= 1 << swizzle;
1628
1629       FETCH(&r[0], 0, chan_index);
1630       for (i = 0; i < 4; i++)
1631          if (r[0].f[i] < 0.0f)
1632             kilmask |= 1 << i;
1633    }
1634
1635    mach->Temps[TEMP_KILMASK_I].xyzw[TEMP_KILMASK_C].u[0] |= kilmask;
1636 }
1637
1638 /**
1639  * Execute NVIDIA-style KIL which is predicated by a condition code.
1640  * Kill fragment if the condition code is TRUE.
1641  */
1642 static void
1643 exec_kilp(struct tgsi_exec_machine *mach,
1644           const struct tgsi_full_instruction *inst)
1645 {
1646    uint kilmask; /* bit 0 = pixel 0, bit 1 = pixel 1, etc */
1647
1648    /* "unconditional" kil */
1649    kilmask = mach->ExecMask;
1650    mach->Temps[TEMP_KILMASK_I].xyzw[TEMP_KILMASK_C].u[0] |= kilmask;
1651 }
1652
1653 static void
1654 emit_vertex(struct tgsi_exec_machine *mach)
1655 {
1656    /* FIXME: check for exec mask correctly
1657    unsigned i;
1658    for (i = 0; i < QUAD_SIZE; ++i) {
1659          if ((mach->ExecMask & (1 << i)))
1660    */
1661    if (mach->ExecMask) {
1662       mach->Temps[TEMP_OUTPUT_I].xyzw[TEMP_OUTPUT_C].u[0] += mach->NumOutputs;
1663       mach->Primitives[mach->Temps[TEMP_PRIMITIVE_I].xyzw[TEMP_PRIMITIVE_C].u[0]]++;
1664    }
1665 }
1666
1667 static void
1668 emit_primitive(struct tgsi_exec_machine *mach)
1669 {
1670    unsigned *prim_count = &mach->Temps[TEMP_PRIMITIVE_I].xyzw[TEMP_PRIMITIVE_C].u[0];
1671    /* FIXME: check for exec mask correctly
1672    unsigned i;
1673    for (i = 0; i < QUAD_SIZE; ++i) {
1674          if ((mach->ExecMask & (1 << i)))
1675    */
1676    if (mach->ExecMask) {
1677       ++(*prim_count);
1678       debug_assert((*prim_count * mach->NumOutputs) < mach->MaxGeometryShaderOutputs);
1679       mach->Primitives[*prim_count] = 0;
1680    }
1681 }
1682
1683 static void
1684 conditional_emit_primitive(struct tgsi_exec_machine *mach)
1685 {
1686    if (TGSI_PROCESSOR_GEOMETRY == mach->Processor) {
1687       int emitted_verts =
1688          mach->Primitives[mach->Temps[TEMP_PRIMITIVE_I].xyzw[TEMP_PRIMITIVE_C].u[0]];
1689       if (emitted_verts) {
1690          emit_primitive(mach);
1691       }
1692    }
1693 }
1694
1695
1696 /*
1697  * Fetch four texture samples using STR texture coordinates.
1698  */
1699 static void
1700 fetch_texel( struct tgsi_sampler *sampler,
1701              const union tgsi_exec_channel *s,
1702              const union tgsi_exec_channel *t,
1703              const union tgsi_exec_channel *p,
1704              const union tgsi_exec_channel *c0,
1705              enum tgsi_sampler_control control,
1706              union tgsi_exec_channel *r,
1707              union tgsi_exec_channel *g,
1708              union tgsi_exec_channel *b,
1709              union tgsi_exec_channel *a )
1710 {
1711    uint j;
1712    float rgba[NUM_CHANNELS][QUAD_SIZE];
1713
1714    sampler->get_samples(sampler, s->f, t->f, p->f, c0->f, control, rgba);
1715
1716    for (j = 0; j < 4; j++) {
1717       r->f[j] = rgba[0][j];
1718       g->f[j] = rgba[1][j];
1719       b->f[j] = rgba[2][j];
1720       a->f[j] = rgba[3][j];
1721    }
1722 }
1723
1724
1725 #define TEX_MODIFIER_NONE           0
1726 #define TEX_MODIFIER_PROJECTED      1
1727 #define TEX_MODIFIER_LOD_BIAS       2
1728 #define TEX_MODIFIER_EXPLICIT_LOD   3
1729
1730
1731 static void
1732 exec_tex(struct tgsi_exec_machine *mach,
1733          const struct tgsi_full_instruction *inst,
1734          uint modifier)
1735 {
1736    const uint unit = inst->Src[1].Register.Index;
1737    union tgsi_exec_channel r[4];
1738    const union tgsi_exec_channel *lod = &ZeroVec;
1739    enum tgsi_sampler_control control;
1740    uint chan;
1741
1742    if (modifier != TEX_MODIFIER_NONE) {
1743       FETCH(&r[3], 0, CHAN_W);
1744       if (modifier != TEX_MODIFIER_PROJECTED) {
1745          lod = &r[3];
1746       }
1747    }
1748
1749    if (modifier == TEX_MODIFIER_EXPLICIT_LOD) {
1750       control = tgsi_sampler_lod_explicit;
1751    } else {
1752       control = tgsi_sampler_lod_bias;
1753    }
1754
1755    switch (inst->Texture.Texture) {
1756    case TGSI_TEXTURE_1D:
1757    case TGSI_TEXTURE_SHADOW1D:
1758       FETCH(&r[0], 0, CHAN_X);
1759
1760       if (modifier == TEX_MODIFIER_PROJECTED) {
1761          micro_div(&r[0], &r[0], &r[3]);
1762       }
1763
1764       fetch_texel(mach->Samplers[unit],
1765                   &r[0], &ZeroVec, &ZeroVec, lod,  /* S, T, P, LOD */
1766                   control,
1767                   &r[0], &r[1], &r[2], &r[3]);     /* R, G, B, A */
1768       break;
1769
1770    case TGSI_TEXTURE_2D:
1771    case TGSI_TEXTURE_RECT:
1772    case TGSI_TEXTURE_SHADOW2D:
1773    case TGSI_TEXTURE_SHADOWRECT:
1774       FETCH(&r[0], 0, CHAN_X);
1775       FETCH(&r[1], 0, CHAN_Y);
1776       FETCH(&r[2], 0, CHAN_Z);
1777
1778       if (modifier == TEX_MODIFIER_PROJECTED) {
1779          micro_div(&r[0], &r[0], &r[3]);
1780          micro_div(&r[1], &r[1], &r[3]);
1781          micro_div(&r[2], &r[2], &r[3]);
1782       }
1783
1784       fetch_texel(mach->Samplers[unit],
1785                   &r[0], &r[1], &r[2], lod,     /* S, T, P, LOD */
1786                   control,
1787                   &r[0], &r[1], &r[2], &r[3]);  /* outputs */
1788       break;
1789
1790    case TGSI_TEXTURE_1D_ARRAY:
1791       FETCH(&r[0], 0, CHAN_X);
1792       FETCH(&r[1], 0, CHAN_Y);
1793
1794       if (modifier == TEX_MODIFIER_PROJECTED) {
1795          micro_div(&r[0], &r[0], &r[3]);
1796       }
1797
1798       fetch_texel(mach->Samplers[unit],
1799                   &r[0], &r[1], &r[2], lod,     /* S, T, P, LOD */
1800                   control,
1801                   &r[0], &r[1], &r[2], &r[3]);  /* outputs */
1802       break;
1803
1804    case TGSI_TEXTURE_2D_ARRAY:
1805       FETCH(&r[0], 0, CHAN_X);
1806       FETCH(&r[1], 0, CHAN_Y);
1807       FETCH(&r[2], 0, CHAN_Z);
1808
1809       if (modifier == TEX_MODIFIER_PROJECTED) {
1810          micro_div(&r[0], &r[0], &r[3]);
1811          micro_div(&r[1], &r[1], &r[3]);
1812       }
1813
1814       fetch_texel(mach->Samplers[unit],
1815                   &r[0], &r[1], &r[2], lod,     /* S, T, P, LOD */
1816                   control,
1817                   &r[0], &r[1], &r[2], &r[3]);  /* outputs */
1818       break;
1819
1820    case TGSI_TEXTURE_3D:
1821    case TGSI_TEXTURE_CUBE:
1822       FETCH(&r[0], 0, CHAN_X);
1823       FETCH(&r[1], 0, CHAN_Y);
1824       FETCH(&r[2], 0, CHAN_Z);
1825
1826       if (modifier == TEX_MODIFIER_PROJECTED) {
1827          micro_div(&r[0], &r[0], &r[3]);
1828          micro_div(&r[1], &r[1], &r[3]);
1829          micro_div(&r[2], &r[2], &r[3]);
1830       }
1831
1832       fetch_texel(mach->Samplers[unit],
1833                   &r[0], &r[1], &r[2], lod,
1834                   control,
1835                   &r[0], &r[1], &r[2], &r[3]);
1836       break;
1837
1838    default:
1839       assert(0);
1840    }
1841
1842 #if 0
1843    debug_printf("fetch r: %g %g %g %g\n",
1844          r[0].f[0], r[0].f[1], r[0].f[2], r[0].f[3]);
1845    debug_printf("fetch g: %g %g %g %g\n",
1846          r[1].f[0], r[1].f[1], r[1].f[2], r[1].f[3]);
1847    debug_printf("fetch b: %g %g %g %g\n",
1848          r[2].f[0], r[2].f[1], r[2].f[2], r[2].f[3]);
1849    debug_printf("fetch a: %g %g %g %g\n",
1850          r[3].f[0], r[3].f[1], r[3].f[2], r[3].f[3]);
1851 #endif
1852
1853    for (chan = 0; chan < NUM_CHANNELS; chan++) {
1854       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
1855          store_dest(mach, &r[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
1856       }
1857    }
1858 }
1859
1860 static void
1861 exec_txd(struct tgsi_exec_machine *mach,
1862          const struct tgsi_full_instruction *inst)
1863 {
1864    const uint unit = inst->Src[3].Register.Index;
1865    union tgsi_exec_channel r[4];
1866    uint chan;
1867
1868    /*
1869     * XXX: This is fake TXD -- the derivatives are not taken into account, yet.
1870     */
1871
1872    switch (inst->Texture.Texture) {
1873    case TGSI_TEXTURE_1D:
1874    case TGSI_TEXTURE_SHADOW1D:
1875
1876       FETCH(&r[0], 0, CHAN_X);
1877
1878       fetch_texel(mach->Samplers[unit],
1879                   &r[0], &ZeroVec, &ZeroVec, &ZeroVec,   /* S, T, P, BIAS */
1880                   tgsi_sampler_lod_bias,
1881                   &r[0], &r[1], &r[2], &r[3]);           /* R, G, B, A */
1882       break;
1883
1884    case TGSI_TEXTURE_2D:
1885    case TGSI_TEXTURE_RECT:
1886    case TGSI_TEXTURE_SHADOW2D:
1887    case TGSI_TEXTURE_SHADOWRECT:
1888
1889       FETCH(&r[0], 0, CHAN_X);
1890       FETCH(&r[1], 0, CHAN_Y);
1891       FETCH(&r[2], 0, CHAN_Z);
1892
1893       fetch_texel(mach->Samplers[unit],
1894                   &r[0], &r[1], &r[2], &ZeroVec,   /* inputs */
1895                   tgsi_sampler_lod_bias,
1896                   &r[0], &r[1], &r[2], &r[3]);     /* outputs */
1897       break;
1898
1899    case TGSI_TEXTURE_3D:
1900    case TGSI_TEXTURE_CUBE:
1901
1902       FETCH(&r[0], 0, CHAN_X);
1903       FETCH(&r[1], 0, CHAN_Y);
1904       FETCH(&r[2], 0, CHAN_Z);
1905
1906       fetch_texel(mach->Samplers[unit],
1907                   &r[0], &r[1], &r[2], &ZeroVec,
1908                   tgsi_sampler_lod_bias,
1909                   &r[0], &r[1], &r[2], &r[3]);
1910       break;
1911
1912    default:
1913       assert(0);
1914    }
1915
1916    for (chan = 0; chan < NUM_CHANNELS; chan++) {
1917       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
1918          store_dest(mach, &r[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
1919       }
1920    }
1921 }
1922
1923
1924
1925 static void
1926 exec_sample(struct tgsi_exec_machine *mach,
1927             const struct tgsi_full_instruction *inst,
1928             uint modifier)
1929 {
1930    const uint resource_unit = inst->Src[1].Register.Index;
1931    const uint sampler_unit = inst->Src[2].Register.Index;
1932    union tgsi_exec_channel r[4];
1933    const union tgsi_exec_channel *lod = &ZeroVec;
1934    enum tgsi_sampler_control control;
1935    uint chan;
1936
1937    if (modifier != TEX_MODIFIER_NONE) {
1938       if (modifier == TEX_MODIFIER_LOD_BIAS)
1939          FETCH(&r[3], 3, CHAN_X);
1940       else /*TEX_MODIFIER_LOD*/
1941          FETCH(&r[3], 0, CHAN_W);
1942
1943       if (modifier != TEX_MODIFIER_PROJECTED) {
1944          lod = &r[3];
1945       }
1946    }
1947
1948    if (modifier == TEX_MODIFIER_EXPLICIT_LOD) {
1949       control = tgsi_sampler_lod_explicit;
1950    } else {
1951       control = tgsi_sampler_lod_bias;
1952    }
1953
1954    switch (mach->Resources[resource_unit].Resource) {
1955    case TGSI_TEXTURE_1D:
1956    case TGSI_TEXTURE_SHADOW1D:
1957       FETCH(&r[0], 0, CHAN_X);
1958
1959       if (modifier == TEX_MODIFIER_PROJECTED) {
1960          micro_div(&r[0], &r[0], &r[3]);
1961       }
1962
1963       fetch_texel(mach->Samplers[sampler_unit],
1964                   &r[0], &ZeroVec, &ZeroVec, lod,  /* S, T, P, LOD */
1965                   control,
1966                   &r[0], &r[1], &r[2], &r[3]);     /* R, G, B, A */
1967       break;
1968
1969    case TGSI_TEXTURE_2D:
1970    case TGSI_TEXTURE_RECT:
1971    case TGSI_TEXTURE_SHADOW2D:
1972    case TGSI_TEXTURE_SHADOWRECT:
1973       FETCH(&r[0], 0, CHAN_X);
1974       FETCH(&r[1], 0, CHAN_Y);
1975       FETCH(&r[2], 0, CHAN_Z);
1976
1977       if (modifier == TEX_MODIFIER_PROJECTED) {
1978          micro_div(&r[0], &r[0], &r[3]);
1979          micro_div(&r[1], &r[1], &r[3]);
1980          micro_div(&r[2], &r[2], &r[3]);
1981       }
1982
1983       fetch_texel(mach->Samplers[sampler_unit],
1984                   &r[0], &r[1], &r[2], lod,     /* S, T, P, LOD */
1985                   control,
1986                   &r[0], &r[1], &r[2], &r[3]);  /* outputs */
1987       break;
1988
1989    case TGSI_TEXTURE_3D:
1990    case TGSI_TEXTURE_CUBE:
1991       FETCH(&r[0], 0, CHAN_X);
1992       FETCH(&r[1], 0, CHAN_Y);
1993       FETCH(&r[2], 0, CHAN_Z);
1994
1995       if (modifier == TEX_MODIFIER_PROJECTED) {
1996          micro_div(&r[0], &r[0], &r[3]);
1997          micro_div(&r[1], &r[1], &r[3]);
1998          micro_div(&r[2], &r[2], &r[3]);
1999       }
2000
2001       fetch_texel(mach->Samplers[sampler_unit],
2002                   &r[0], &r[1], &r[2], lod,
2003                   control,
2004                   &r[0], &r[1], &r[2], &r[3]);
2005       break;
2006
2007    default:
2008       assert(0);
2009    }
2010
2011    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2012       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2013          store_dest(mach, &r[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2014       }
2015    }
2016 }
2017
2018 static void
2019 exec_sample_d(struct tgsi_exec_machine *mach,
2020               const struct tgsi_full_instruction *inst)
2021 {
2022    const uint resource_unit = inst->Src[1].Register.Index;
2023    const uint sampler_unit = inst->Src[2].Register.Index;
2024    union tgsi_exec_channel r[4];
2025    uint chan;
2026    /*
2027     * XXX: This is fake SAMPLE_D -- the derivatives are not taken into account, yet.
2028     */
2029
2030    switch (mach->Resources[resource_unit].Resource) {
2031    case TGSI_TEXTURE_1D:
2032    case TGSI_TEXTURE_SHADOW1D:
2033
2034       FETCH(&r[0], 0, CHAN_X);
2035
2036       fetch_texel(mach->Samplers[sampler_unit],
2037                   &r[0], &ZeroVec, &ZeroVec, &ZeroVec,   /* S, T, P, BIAS */
2038                   tgsi_sampler_lod_bias,
2039                   &r[0], &r[1], &r[2], &r[3]);           /* R, G, B, A */
2040       break;
2041
2042    case TGSI_TEXTURE_2D:
2043    case TGSI_TEXTURE_RECT:
2044    case TGSI_TEXTURE_SHADOW2D:
2045    case TGSI_TEXTURE_SHADOWRECT:
2046
2047       FETCH(&r[0], 0, CHAN_X);
2048       FETCH(&r[1], 0, CHAN_Y);
2049       FETCH(&r[2], 0, CHAN_Z);
2050
2051       fetch_texel(mach->Samplers[sampler_unit],
2052                   &r[0], &r[1], &r[2], &ZeroVec,   /* inputs */
2053                   tgsi_sampler_lod_bias,
2054                   &r[0], &r[1], &r[2], &r[3]);     /* outputs */
2055       break;
2056
2057    case TGSI_TEXTURE_3D:
2058    case TGSI_TEXTURE_CUBE:
2059
2060       FETCH(&r[0], 0, CHAN_X);
2061       FETCH(&r[1], 0, CHAN_Y);
2062       FETCH(&r[2], 0, CHAN_Z);
2063
2064       fetch_texel(mach->Samplers[sampler_unit],
2065                   &r[0], &r[1], &r[2], &ZeroVec,
2066                   tgsi_sampler_lod_bias,
2067                   &r[0], &r[1], &r[2], &r[3]);
2068       break;
2069
2070    default:
2071       assert(0);
2072    }
2073
2074    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2075       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2076          store_dest(mach, &r[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2077       }
2078    }
2079 }
2080
2081
2082 /**
2083  * Evaluate a constant-valued coefficient at the position of the
2084  * current quad.
2085  */
2086 static void
2087 eval_constant_coef(
2088    struct tgsi_exec_machine *mach,
2089    unsigned attrib,
2090    unsigned chan )
2091 {
2092    unsigned i;
2093
2094    for( i = 0; i < QUAD_SIZE; i++ ) {
2095       mach->Inputs[attrib].xyzw[chan].f[i] = mach->InterpCoefs[attrib].a0[chan];
2096    }
2097 }
2098
2099 /**
2100  * Evaluate a linear-valued coefficient at the position of the
2101  * current quad.
2102  */
2103 static void
2104 eval_linear_coef(
2105    struct tgsi_exec_machine *mach,
2106    unsigned attrib,
2107    unsigned chan )
2108 {
2109    const float x = mach->QuadPos.xyzw[0].f[0];
2110    const float y = mach->QuadPos.xyzw[1].f[0];
2111    const float dadx = mach->InterpCoefs[attrib].dadx[chan];
2112    const float dady = mach->InterpCoefs[attrib].dady[chan];
2113    const float a0 = mach->InterpCoefs[attrib].a0[chan] + dadx * x + dady * y;
2114    mach->Inputs[attrib].xyzw[chan].f[0] = a0;
2115    mach->Inputs[attrib].xyzw[chan].f[1] = a0 + dadx;
2116    mach->Inputs[attrib].xyzw[chan].f[2] = a0 + dady;
2117    mach->Inputs[attrib].xyzw[chan].f[3] = a0 + dadx + dady;
2118 }
2119
2120 /**
2121  * Evaluate a perspective-valued coefficient at the position of the
2122  * current quad.
2123  */
2124 static void
2125 eval_perspective_coef(
2126    struct tgsi_exec_machine *mach,
2127    unsigned attrib,
2128    unsigned chan )
2129 {
2130    const float x = mach->QuadPos.xyzw[0].f[0];
2131    const float y = mach->QuadPos.xyzw[1].f[0];
2132    const float dadx = mach->InterpCoefs[attrib].dadx[chan];
2133    const float dady = mach->InterpCoefs[attrib].dady[chan];
2134    const float a0 = mach->InterpCoefs[attrib].a0[chan] + dadx * x + dady * y;
2135    const float *w = mach->QuadPos.xyzw[3].f;
2136    /* divide by W here */
2137    mach->Inputs[attrib].xyzw[chan].f[0] = a0 / w[0];
2138    mach->Inputs[attrib].xyzw[chan].f[1] = (a0 + dadx) / w[1];
2139    mach->Inputs[attrib].xyzw[chan].f[2] = (a0 + dady) / w[2];
2140    mach->Inputs[attrib].xyzw[chan].f[3] = (a0 + dadx + dady) / w[3];
2141 }
2142
2143
2144 typedef void (* eval_coef_func)(
2145    struct tgsi_exec_machine *mach,
2146    unsigned attrib,
2147    unsigned chan );
2148
2149 static void
2150 exec_declaration(struct tgsi_exec_machine *mach,
2151                  const struct tgsi_full_declaration *decl)
2152 {
2153    if (decl->Declaration.File == TGSI_FILE_RESOURCE) {
2154       mach->Resources[decl->Range.First] = decl->Resource;
2155       return;
2156    }
2157
2158    if (mach->Processor == TGSI_PROCESSOR_FRAGMENT) {
2159       if (decl->Declaration.File == TGSI_FILE_INPUT) {
2160          uint first, last, mask;
2161
2162          first = decl->Range.First;
2163          last = decl->Range.Last;
2164          mask = decl->Declaration.UsageMask;
2165
2166          /* XXX we could remove this special-case code since
2167           * mach->InterpCoefs[first].a0 should already have the
2168           * front/back-face value.  But we should first update the
2169           * ureg code to emit the right UsageMask value (WRITEMASK_X).
2170           * Then, we could remove the tgsi_exec_machine::Face field.
2171           */
2172          /* XXX make FACE a system value */
2173          if (decl->Semantic.Name == TGSI_SEMANTIC_FACE) {
2174             uint i;
2175
2176             assert(decl->Semantic.Index == 0);
2177             assert(first == last);
2178
2179             for (i = 0; i < QUAD_SIZE; i++) {
2180                mach->Inputs[first].xyzw[0].f[i] = mach->Face;
2181             }
2182          } else {
2183             eval_coef_func eval;
2184             uint i, j;
2185
2186             switch (decl->Declaration.Interpolate) {
2187             case TGSI_INTERPOLATE_CONSTANT:
2188                eval = eval_constant_coef;
2189                break;
2190
2191             case TGSI_INTERPOLATE_LINEAR:
2192                eval = eval_linear_coef;
2193                break;
2194
2195             case TGSI_INTERPOLATE_PERSPECTIVE:
2196                eval = eval_perspective_coef;
2197                break;
2198
2199             default:
2200                assert(0);
2201                return;
2202             }
2203
2204             for (j = 0; j < NUM_CHANNELS; j++) {
2205                if (mask & (1 << j)) {
2206                   for (i = first; i <= last; i++) {
2207                      eval(mach, i, j);
2208                   }
2209                }
2210             }
2211          }
2212       }
2213    }
2214
2215    if (decl->Declaration.File == TGSI_FILE_SYSTEM_VALUE) {
2216       mach->SysSemanticToIndex[decl->Declaration.Semantic] = decl->Range.First;
2217    }
2218 }
2219
2220
2221 typedef void (* micro_op)(union tgsi_exec_channel *dst);
2222
2223 static void
2224 exec_vector(struct tgsi_exec_machine *mach,
2225             const struct tgsi_full_instruction *inst,
2226             micro_op op,
2227             enum tgsi_exec_datatype dst_datatype)
2228 {
2229    unsigned int chan;
2230
2231    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2232       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2233          union tgsi_exec_channel dst;
2234
2235          op(&dst);
2236          store_dest(mach, &dst, &inst->Dst[0], inst, chan, dst_datatype);
2237       }
2238    }
2239 }
2240
2241 typedef void (* micro_unary_op)(union tgsi_exec_channel *dst,
2242                                 const union tgsi_exec_channel *src);
2243
2244 static void
2245 exec_scalar_unary(struct tgsi_exec_machine *mach,
2246                   const struct tgsi_full_instruction *inst,
2247                   micro_unary_op op,
2248                   enum tgsi_exec_datatype dst_datatype,
2249                   enum tgsi_exec_datatype src_datatype)
2250 {
2251    unsigned int chan;
2252    union tgsi_exec_channel src;
2253    union tgsi_exec_channel dst;
2254
2255    fetch_source(mach, &src, &inst->Src[0], CHAN_X, src_datatype);
2256    op(&dst, &src);
2257    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2258       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2259          store_dest(mach, &dst, &inst->Dst[0], inst, chan, dst_datatype);
2260       }
2261    }
2262 }
2263
2264 static void
2265 exec_vector_unary(struct tgsi_exec_machine *mach,
2266                   const struct tgsi_full_instruction *inst,
2267                   micro_unary_op op,
2268                   enum tgsi_exec_datatype dst_datatype,
2269                   enum tgsi_exec_datatype src_datatype)
2270 {
2271    unsigned int chan;
2272    struct tgsi_exec_vector dst;
2273
2274    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2275       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2276          union tgsi_exec_channel src;
2277
2278          fetch_source(mach, &src, &inst->Src[0], chan, src_datatype);
2279          op(&dst.xyzw[chan], &src);
2280       }
2281    }
2282    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2283       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2284          store_dest(mach, &dst.xyzw[chan], &inst->Dst[0], inst, chan, dst_datatype);
2285       }
2286    }
2287 }
2288
2289 typedef void (* micro_binary_op)(union tgsi_exec_channel *dst,
2290                                  const union tgsi_exec_channel *src0,
2291                                  const union tgsi_exec_channel *src1);
2292
2293 static void
2294 exec_scalar_binary(struct tgsi_exec_machine *mach,
2295                    const struct tgsi_full_instruction *inst,
2296                    micro_binary_op op,
2297                    enum tgsi_exec_datatype dst_datatype,
2298                    enum tgsi_exec_datatype src_datatype)
2299 {
2300    unsigned int chan;
2301    union tgsi_exec_channel src[2];
2302    union tgsi_exec_channel dst;
2303
2304    fetch_source(mach, &src[0], &inst->Src[0], CHAN_X, src_datatype);
2305    fetch_source(mach, &src[1], &inst->Src[1], CHAN_Y, src_datatype);
2306    op(&dst, &src[0], &src[1]);
2307    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2308       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2309          store_dest(mach, &dst, &inst->Dst[0], inst, chan, dst_datatype);
2310       }
2311    }
2312 }
2313
2314 static void
2315 exec_vector_binary(struct tgsi_exec_machine *mach,
2316                    const struct tgsi_full_instruction *inst,
2317                    micro_binary_op op,
2318                    enum tgsi_exec_datatype dst_datatype,
2319                    enum tgsi_exec_datatype src_datatype)
2320 {
2321    unsigned int chan;
2322    struct tgsi_exec_vector dst;
2323
2324    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2325       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2326          union tgsi_exec_channel src[2];
2327
2328          fetch_source(mach, &src[0], &inst->Src[0], chan, src_datatype);
2329          fetch_source(mach, &src[1], &inst->Src[1], chan, src_datatype);
2330          op(&dst.xyzw[chan], &src[0], &src[1]);
2331       }
2332    }
2333    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2334       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2335          store_dest(mach, &dst.xyzw[chan], &inst->Dst[0], inst, chan, dst_datatype);
2336       }
2337    }
2338 }
2339
2340 typedef void (* micro_trinary_op)(union tgsi_exec_channel *dst,
2341                                   const union tgsi_exec_channel *src0,
2342                                   const union tgsi_exec_channel *src1,
2343                                   const union tgsi_exec_channel *src2);
2344
2345 static void
2346 exec_vector_trinary(struct tgsi_exec_machine *mach,
2347                     const struct tgsi_full_instruction *inst,
2348                     micro_trinary_op op,
2349                     enum tgsi_exec_datatype dst_datatype,
2350                     enum tgsi_exec_datatype src_datatype)
2351 {
2352    unsigned int chan;
2353    struct tgsi_exec_vector dst;
2354
2355    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2356       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2357          union tgsi_exec_channel src[3];
2358
2359          fetch_source(mach, &src[0], &inst->Src[0], chan, src_datatype);
2360          fetch_source(mach, &src[1], &inst->Src[1], chan, src_datatype);
2361          fetch_source(mach, &src[2], &inst->Src[2], chan, src_datatype);
2362          op(&dst.xyzw[chan], &src[0], &src[1], &src[2]);
2363       }
2364    }
2365    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2366       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2367          store_dest(mach, &dst.xyzw[chan], &inst->Dst[0], inst, chan, dst_datatype);
2368       }
2369    }
2370 }
2371
2372 static void
2373 exec_dp3(struct tgsi_exec_machine *mach,
2374          const struct tgsi_full_instruction *inst)
2375 {
2376    unsigned int chan;
2377    union tgsi_exec_channel arg[3];
2378
2379    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2380    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2381    micro_mul(&arg[2], &arg[0], &arg[1]);
2382
2383    for (chan = CHAN_Y; chan <= CHAN_Z; chan++) {
2384       fetch_source(mach, &arg[0], &inst->Src[0], chan, TGSI_EXEC_DATA_FLOAT);
2385       fetch_source(mach, &arg[1], &inst->Src[1], chan, TGSI_EXEC_DATA_FLOAT);
2386       micro_mad(&arg[2], &arg[0], &arg[1], &arg[2]);
2387    }
2388
2389    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2390       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2391          store_dest(mach, &arg[2], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2392       }
2393    }
2394 }
2395
2396 static void
2397 exec_dp4(struct tgsi_exec_machine *mach,
2398          const struct tgsi_full_instruction *inst)
2399 {
2400    unsigned int chan;
2401    union tgsi_exec_channel arg[3];
2402
2403    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2404    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2405    micro_mul(&arg[2], &arg[0], &arg[1]);
2406
2407    for (chan = CHAN_Y; chan <= CHAN_W; chan++) {
2408       fetch_source(mach, &arg[0], &inst->Src[0], chan, TGSI_EXEC_DATA_FLOAT);
2409       fetch_source(mach, &arg[1], &inst->Src[1], chan, TGSI_EXEC_DATA_FLOAT);
2410       micro_mad(&arg[2], &arg[0], &arg[1], &arg[2]);
2411    }
2412
2413    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2414       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2415          store_dest(mach, &arg[2], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2416       }
2417    }
2418 }
2419
2420 static void
2421 exec_dp2a(struct tgsi_exec_machine *mach,
2422           const struct tgsi_full_instruction *inst)
2423 {
2424    unsigned int chan;
2425    union tgsi_exec_channel arg[3];
2426
2427    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2428    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2429    micro_mul(&arg[2], &arg[0], &arg[1]);
2430
2431    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2432    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2433    micro_mad(&arg[0], &arg[0], &arg[1], &arg[2]);
2434
2435    fetch_source(mach, &arg[1], &inst->Src[2], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2436    micro_add(&arg[0], &arg[0], &arg[1]);
2437
2438    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2439       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2440          store_dest(mach, &arg[0], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2441       }
2442    }
2443 }
2444
2445 static void
2446 exec_dph(struct tgsi_exec_machine *mach,
2447          const struct tgsi_full_instruction *inst)
2448 {
2449    unsigned int chan;
2450    union tgsi_exec_channel arg[3];
2451
2452    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2453    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2454    micro_mul(&arg[2], &arg[0], &arg[1]);
2455
2456    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2457    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2458    micro_mad(&arg[2], &arg[0], &arg[1], &arg[2]);
2459
2460    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2461    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2462    micro_mad(&arg[0], &arg[0], &arg[1], &arg[2]);
2463
2464    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_W, TGSI_EXEC_DATA_FLOAT);
2465    micro_add(&arg[0], &arg[0], &arg[1]);
2466
2467    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2468       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2469          store_dest(mach, &arg[0], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2470       }
2471    }
2472 }
2473
2474 static void
2475 exec_dp2(struct tgsi_exec_machine *mach,
2476          const struct tgsi_full_instruction *inst)
2477 {
2478    unsigned int chan;
2479    union tgsi_exec_channel arg[3];
2480
2481    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2482    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2483    micro_mul(&arg[2], &arg[0], &arg[1]);
2484
2485    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2486    fetch_source(mach, &arg[1], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2487    micro_mad(&arg[2], &arg[0], &arg[1], &arg[2]);
2488
2489    for (chan = 0; chan < NUM_CHANNELS; chan++) {
2490       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2491          store_dest(mach, &arg[2], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2492       }
2493    }
2494 }
2495
2496 static void
2497 exec_nrm4(struct tgsi_exec_machine *mach,
2498           const struct tgsi_full_instruction *inst)
2499 {
2500    unsigned int chan;
2501    union tgsi_exec_channel arg[4];
2502    union tgsi_exec_channel scale;
2503
2504    fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2505    micro_mul(&scale, &arg[0], &arg[0]);
2506
2507    for (chan = CHAN_Y; chan <= CHAN_W; chan++) {
2508       union tgsi_exec_channel product;
2509
2510       fetch_source(mach, &arg[chan], &inst->Src[0], chan, TGSI_EXEC_DATA_FLOAT);
2511       micro_mul(&product, &arg[chan], &arg[chan]);
2512       micro_add(&scale, &scale, &product);
2513    }
2514
2515    micro_rsq(&scale, &scale);
2516
2517    for (chan = CHAN_X; chan <= CHAN_W; chan++) {
2518       if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2519          micro_mul(&arg[chan], &arg[chan], &scale);
2520          store_dest(mach, &arg[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2521       }
2522    }
2523 }
2524
2525 static void
2526 exec_nrm3(struct tgsi_exec_machine *mach,
2527           const struct tgsi_full_instruction *inst)
2528 {
2529    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_XYZ) {
2530       unsigned int chan;
2531       union tgsi_exec_channel arg[3];
2532       union tgsi_exec_channel scale;
2533
2534       fetch_source(mach, &arg[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2535       micro_mul(&scale, &arg[0], &arg[0]);
2536
2537       for (chan = CHAN_Y; chan <= CHAN_Z; chan++) {
2538          union tgsi_exec_channel product;
2539
2540          fetch_source(mach, &arg[chan], &inst->Src[0], chan, TGSI_EXEC_DATA_FLOAT);
2541          micro_mul(&product, &arg[chan], &arg[chan]);
2542          micro_add(&scale, &scale, &product);
2543       }
2544
2545       micro_rsq(&scale, &scale);
2546
2547       for (chan = CHAN_X; chan <= CHAN_Z; chan++) {
2548          if (inst->Dst[0].Register.WriteMask & (1 << chan)) {
2549             micro_mul(&arg[chan], &arg[chan], &scale);
2550             store_dest(mach, &arg[chan], &inst->Dst[0], inst, chan, TGSI_EXEC_DATA_FLOAT);
2551          }
2552       }
2553    }
2554
2555    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2556       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2557    }
2558 }
2559
2560 static void
2561 exec_scs(struct tgsi_exec_machine *mach,
2562          const struct tgsi_full_instruction *inst)
2563 {
2564    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_XY) {
2565       union tgsi_exec_channel arg;
2566       union tgsi_exec_channel result;
2567
2568       fetch_source(mach, &arg, &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2569
2570       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2571          micro_cos(&result, &arg);
2572          store_dest(mach, &result, &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2573       }
2574       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2575          micro_sin(&result, &arg);
2576          store_dest(mach, &result, &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2577       }
2578    }
2579    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2580       store_dest(mach, &ZeroVec, &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2581    }
2582    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2583       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2584    }
2585 }
2586
2587 static void
2588 exec_x2d(struct tgsi_exec_machine *mach,
2589          const struct tgsi_full_instruction *inst)
2590 {
2591    union tgsi_exec_channel r[4];
2592    union tgsi_exec_channel d[2];
2593
2594    fetch_source(mach, &r[0], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2595    fetch_source(mach, &r[1], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2596    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_XZ) {
2597       fetch_source(mach, &r[2], &inst->Src[2], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2598       micro_mul(&r[2], &r[2], &r[0]);
2599       fetch_source(mach, &r[3], &inst->Src[2], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2600       micro_mul(&r[3], &r[3], &r[1]);
2601       micro_add(&r[2], &r[2], &r[3]);
2602       fetch_source(mach, &r[3], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2603       micro_add(&d[0], &r[2], &r[3]);
2604    }
2605    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_YW) {
2606       fetch_source(mach, &r[2], &inst->Src[2], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2607       micro_mul(&r[2], &r[2], &r[0]);
2608       fetch_source(mach, &r[3], &inst->Src[2], CHAN_W, TGSI_EXEC_DATA_FLOAT);
2609       micro_mul(&r[3], &r[3], &r[1]);
2610       micro_add(&r[2], &r[2], &r[3]);
2611       fetch_source(mach, &r[3], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2612       micro_add(&d[1], &r[2], &r[3]);
2613    }
2614    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2615       store_dest(mach, &d[0], &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2616    }
2617    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2618       store_dest(mach, &d[1], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2619    }
2620    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2621       store_dest(mach, &d[0], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2622    }
2623    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2624       store_dest(mach, &d[1], &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2625    }
2626 }
2627
2628 static void
2629 exec_rfl(struct tgsi_exec_machine *mach,
2630          const struct tgsi_full_instruction *inst)
2631 {
2632    union tgsi_exec_channel r[9];
2633
2634    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_XYZ) {
2635       /* r0 = dp3(src0, src0) */
2636       fetch_source(mach, &r[2], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2637       micro_mul(&r[0], &r[2], &r[2]);
2638       fetch_source(mach, &r[4], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2639       micro_mul(&r[8], &r[4], &r[4]);
2640       micro_add(&r[0], &r[0], &r[8]);
2641       fetch_source(mach, &r[6], &inst->Src[0], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2642       micro_mul(&r[8], &r[6], &r[6]);
2643       micro_add(&r[0], &r[0], &r[8]);
2644
2645       /* r1 = dp3(src0, src1) */
2646       fetch_source(mach, &r[3], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2647       micro_mul(&r[1], &r[2], &r[3]);
2648       fetch_source(mach, &r[5], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2649       micro_mul(&r[8], &r[4], &r[5]);
2650       micro_add(&r[1], &r[1], &r[8]);
2651       fetch_source(mach, &r[7], &inst->Src[1], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2652       micro_mul(&r[8], &r[6], &r[7]);
2653       micro_add(&r[1], &r[1], &r[8]);
2654
2655       /* r1 = 2 * r1 / r0 */
2656       micro_add(&r[1], &r[1], &r[1]);
2657       micro_div(&r[1], &r[1], &r[0]);
2658
2659       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2660          micro_mul(&r[2], &r[2], &r[1]);
2661          micro_sub(&r[2], &r[2], &r[3]);
2662          store_dest(mach, &r[2], &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2663       }
2664       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2665          micro_mul(&r[4], &r[4], &r[1]);
2666          micro_sub(&r[4], &r[4], &r[5]);
2667          store_dest(mach, &r[4], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2668       }
2669       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2670          micro_mul(&r[6], &r[6], &r[1]);
2671          micro_sub(&r[6], &r[6], &r[7]);
2672          store_dest(mach, &r[6], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2673       }
2674    }
2675    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2676       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2677    }
2678 }
2679
2680 static void
2681 exec_xpd(struct tgsi_exec_machine *mach,
2682          const struct tgsi_full_instruction *inst)
2683 {
2684    union tgsi_exec_channel r[6];
2685    union tgsi_exec_channel d[3];
2686
2687    fetch_source(mach, &r[0], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2688    fetch_source(mach, &r[1], &inst->Src[1], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2689
2690    micro_mul(&r[2], &r[0], &r[1]);
2691
2692    fetch_source(mach, &r[3], &inst->Src[0], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2693    fetch_source(mach, &r[4], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2694
2695    micro_mul(&r[5], &r[3], &r[4] );
2696    micro_sub(&d[CHAN_X], &r[2], &r[5]);
2697
2698    fetch_source(mach, &r[2], &inst->Src[1], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2699
2700    micro_mul(&r[3], &r[3], &r[2]);
2701
2702    fetch_source(mach, &r[5], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2703
2704    micro_mul(&r[1], &r[1], &r[5]);
2705    micro_sub(&d[CHAN_Y], &r[3], &r[1]);
2706
2707    micro_mul(&r[5], &r[5], &r[4]);
2708    micro_mul(&r[0], &r[0], &r[2]);
2709    micro_sub(&d[CHAN_Z], &r[5], &r[0]);
2710
2711    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2712       store_dest(mach, &d[CHAN_X], &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2713    }
2714    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2715       store_dest(mach, &d[CHAN_Y], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2716    }
2717    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2718       store_dest(mach, &d[CHAN_Z], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2719    }
2720    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2721       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2722    }
2723 }
2724
2725 static void
2726 exec_dst(struct tgsi_exec_machine *mach,
2727          const struct tgsi_full_instruction *inst)
2728 {
2729    union tgsi_exec_channel r[2];
2730    union tgsi_exec_channel d[4];
2731
2732    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2733       fetch_source(mach, &r[0], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2734       fetch_source(mach, &r[1], &inst->Src[1], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2735       micro_mul(&d[CHAN_Y], &r[0], &r[1]);
2736    }
2737    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2738       fetch_source(mach, &d[CHAN_Z], &inst->Src[0], CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2739    }
2740    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2741       fetch_source(mach, &d[CHAN_W], &inst->Src[1], CHAN_W, TGSI_EXEC_DATA_FLOAT);
2742    }
2743
2744    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2745       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2746    }
2747    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2748       store_dest(mach, &d[CHAN_Y], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2749    }
2750    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2751       store_dest(mach, &d[CHAN_Z], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2752    }
2753    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2754       store_dest(mach, &d[CHAN_W], &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2755    }
2756 }
2757
2758 static void
2759 exec_log(struct tgsi_exec_machine *mach,
2760          const struct tgsi_full_instruction *inst)
2761 {
2762    union tgsi_exec_channel r[3];
2763
2764    fetch_source(mach, &r[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2765    micro_abs(&r[2], &r[0]);  /* r2 = abs(r0) */
2766    micro_lg2(&r[1], &r[2]);  /* r1 = lg2(r2) */
2767    micro_flr(&r[0], &r[1]);  /* r0 = floor(r1) */
2768    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2769       store_dest(mach, &r[0], &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2770    }
2771    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2772       micro_exp2(&r[0], &r[0]);       /* r0 = 2 ^ r0 */
2773       micro_div(&r[0], &r[2], &r[0]); /* r0 = r2 / r0 */
2774       store_dest(mach, &r[0], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2775    }
2776    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2777       store_dest(mach, &r[1], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2778    }
2779    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2780       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2781    }
2782 }
2783
2784 static void
2785 exec_exp(struct tgsi_exec_machine *mach,
2786          const struct tgsi_full_instruction *inst)
2787 {
2788    union tgsi_exec_channel r[3];
2789
2790    fetch_source(mach, &r[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2791    micro_flr(&r[1], &r[0]);  /* r1 = floor(r0) */
2792    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2793       micro_exp2(&r[2], &r[1]);       /* r2 = 2 ^ r1 */
2794       store_dest(mach, &r[2], &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2795    }
2796    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2797       micro_sub(&r[2], &r[0], &r[1]); /* r2 = r0 - r1 */
2798       store_dest(mach, &r[2], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2799    }
2800    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2801       micro_exp2(&r[2], &r[0]);       /* r2 = 2 ^ r0 */
2802       store_dest(mach, &r[2], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2803    }
2804    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2805       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2806    }
2807 }
2808
2809 static void
2810 exec_lit(struct tgsi_exec_machine *mach,
2811          const struct tgsi_full_instruction *inst)
2812 {
2813    union tgsi_exec_channel r[3];
2814    union tgsi_exec_channel d[3];
2815
2816    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_X) {
2817       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_X, TGSI_EXEC_DATA_FLOAT);
2818    }
2819    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_YZ) {
2820       fetch_source(mach, &r[0], &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_FLOAT);
2821       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Y) {
2822          micro_max(&d[CHAN_Y], &r[0], &ZeroVec);
2823          store_dest(mach, &d[CHAN_Y], &inst->Dst[0], inst, CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2824       }
2825
2826       if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_Z) {
2827          fetch_source(mach, &r[1], &inst->Src[0], CHAN_Y, TGSI_EXEC_DATA_FLOAT);
2828          micro_max(&r[1], &r[1], &ZeroVec);
2829
2830          fetch_source(mach, &r[2], &inst->Src[0], CHAN_W, TGSI_EXEC_DATA_FLOAT);
2831          micro_min(&r[2], &r[2], &P128Vec);
2832          micro_max(&r[2], &r[2], &M128Vec);
2833          micro_pow(&r[1], &r[1], &r[2]);
2834          micro_lt(&d[CHAN_Z], &ZeroVec, &r[0], &r[1], &ZeroVec);
2835          store_dest(mach, &d[CHAN_Z], &inst->Dst[0], inst, CHAN_Z, TGSI_EXEC_DATA_FLOAT);
2836       }
2837    }
2838    if (inst->Dst[0].Register.WriteMask & TGSI_WRITEMASK_W) {
2839       store_dest(mach, &OneVec, &inst->Dst[0], inst, CHAN_W, TGSI_EXEC_DATA_FLOAT);
2840    }
2841 }
2842
2843 static void
2844 exec_break(struct tgsi_exec_machine *mach)
2845 {
2846    if (mach->BreakType == TGSI_EXEC_BREAK_INSIDE_LOOP) {
2847       /* turn off loop channels for each enabled exec channel */
2848       mach->LoopMask &= ~mach->ExecMask;
2849       /* Todo: if mach->LoopMask == 0, jump to end of loop */
2850       UPDATE_EXEC_MASK(mach);
2851    } else {
2852       assert(mach->BreakType == TGSI_EXEC_BREAK_INSIDE_SWITCH);
2853
2854       mach->Switch.mask = 0x0;
2855
2856       UPDATE_EXEC_MASK(mach);
2857    }
2858 }
2859
2860 static void
2861 exec_switch(struct tgsi_exec_machine *mach,
2862             const struct tgsi_full_instruction *inst)
2863 {
2864    assert(mach->SwitchStackTop < TGSI_EXEC_MAX_SWITCH_NESTING);
2865    assert(mach->BreakStackTop < TGSI_EXEC_MAX_BREAK_STACK);
2866
2867    mach->SwitchStack[mach->SwitchStackTop++] = mach->Switch;
2868    fetch_source(mach, &mach->Switch.selector, &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_UINT);
2869    mach->Switch.mask = 0x0;
2870    mach->Switch.defaultMask = 0x0;
2871
2872    mach->BreakStack[mach->BreakStackTop++] = mach->BreakType;
2873    mach->BreakType = TGSI_EXEC_BREAK_INSIDE_SWITCH;
2874
2875    UPDATE_EXEC_MASK(mach);
2876 }
2877
2878 static void
2879 exec_case(struct tgsi_exec_machine *mach,
2880           const struct tgsi_full_instruction *inst)
2881 {
2882    uint prevMask = mach->SwitchStack[mach->SwitchStackTop - 1].mask;
2883    union tgsi_exec_channel src;
2884    uint mask = 0;
2885
2886    fetch_source(mach, &src, &inst->Src[0], CHAN_X, TGSI_EXEC_DATA_UINT);
2887
2888    if (mach->Switch.selector.u[0] == src.u[0]) {
2889       mask |= 0x1;
2890    }
2891    if (mach->Switch.selector.u[1] == src.u[1]) {
2892       mask |= 0x2;
2893    }
2894    if (mach->Switch.selector.u[2] == src.u[2]) {
2895       mask |= 0x4;
2896    }
2897    if (mach->Switch.selector.u[3] == src.u[3]) {
2898       mask |= 0x8;
2899    }
2900
2901    mach->Switch.defaultMask |= mask;
2902
2903    mach->Switch.mask |= mask & prevMask;
2904
2905    UPDATE_EXEC_MASK(mach);
2906 }
2907
2908 static void
2909 exec_default(struct tgsi_exec_machine *mach)
2910 {
2911    uint prevMask = mach->SwitchStack[mach->SwitchStackTop - 1].mask;
2912
2913    mach->Switch.mask |= ~mach->Switch.defaultMask & prevMask;
2914
2915    UPDATE_EXEC_MASK(mach);
2916 }
2917
2918 static void
2919 exec_endswitch(struct tgsi_exec_machine *mach)
2920 {
2921    mach->Switch = mach->SwitchStack[--mach->SwitchStackTop];
2922    mach->BreakType = mach->BreakStack[--mach->BreakStackTop];
2923
2924    UPDATE_EXEC_MASK(mach);
2925 }
2926
2927 static void
2928 micro_i2f(union tgsi_exec_channel *dst,
2929           const union tgsi_exec_channel *src)
2930 {
2931    dst->f[0] = (float)src->i[0];
2932    dst->f[1] = (float)src->i[1];
2933    dst->f[2] = (float)src->i[2];
2934    dst->f[3] = (float)src->i[3];
2935 }
2936
2937 static void
2938 micro_not(union tgsi_exec_channel *dst,
2939           const union tgsi_exec_channel *src)
2940 {
2941    dst->u[0] = ~src->u[0];
2942    dst->u[1] = ~src->u[1];
2943    dst->u[2] = ~src->u[2];
2944    dst->u[3] = ~src->u[3];
2945 }
2946
2947 static void
2948 micro_shl(union tgsi_exec_channel *dst,
2949           const union tgsi_exec_channel *src0,
2950           const union tgsi_exec_channel *src1)
2951 {
2952    dst->u[0] = src0->u[0] << src1->u[0];
2953    dst->u[1] = src0->u[1] << src1->u[1];
2954    dst->u[2] = src0->u[2] << src1->u[2];
2955    dst->u[3] = src0->u[3] << src1->u[3];
2956 }
2957
2958 static void
2959 micro_and(union tgsi_exec_channel *dst,
2960           const union tgsi_exec_channel *src0,
2961           const union tgsi_exec_channel *src1)
2962 {
2963    dst->u[0] = src0->u[0] & src1->u[0];
2964    dst->u[1] = src0->u[1] & src1->u[1];
2965    dst->u[2] = src0->u[2] & src1->u[2];
2966    dst->u[3] = src0->u[3] & src1->u[3];
2967 }
2968
2969 static void
2970 micro_or(union tgsi_exec_channel *dst,
2971          const union tgsi_exec_channel *src0,
2972          const union tgsi_exec_channel *src1)
2973 {
2974    dst->u[0] = src0->u[0] | src1->u[0];
2975    dst->u[1] = src0->u[1] | src1->u[1];
2976    dst->u[2] = src0->u[2] | src1->u[2];
2977    dst->u[3] = src0->u[3] | src1->u[3];
2978 }
2979
2980 static void
2981 micro_xor(union tgsi_exec_channel *dst,
2982           const union tgsi_exec_channel *src0,
2983           const union tgsi_exec_channel *src1)
2984 {
2985    dst->u[0] = src0->u[0] ^ src1->u[0];
2986    dst->u[1] = src0->u[1] ^ src1->u[1];
2987    dst->u[2] = src0->u[2] ^ src1->u[2];
2988    dst->u[3] = src0->u[3] ^ src1->u[3];
2989 }
2990
2991 static void
2992 micro_mod(union tgsi_exec_channel *dst,
2993           const union tgsi_exec_channel *src0,
2994           const union tgsi_exec_channel *src1)
2995 {
2996    dst->i[0] = src0->i[0] % src1->i[0];
2997    dst->i[1] = src0->i[1] % src1->i[1];
2998    dst->i[2] = src0->i[2] % src1->i[2];
2999    dst->i[3] = src0->i[3] % src1->i[3];
3000 }
3001
3002 static void
3003 micro_f2i(union tgsi_exec_channel *dst,
3004           const union tgsi_exec_channel *src)
3005 {
3006    dst->i[0] = (int)src->f[0];
3007    dst->i[1] = (int)src->f[1];
3008    dst->i[2] = (int)src->f[2];
3009    dst->i[3] = (int)src->f[3];
3010 }
3011
3012 static void
3013 micro_idiv(union tgsi_exec_channel *dst,
3014            const union tgsi_exec_channel *src0,
3015            const union tgsi_exec_channel *src1)
3016 {
3017    dst->i[0] = src0->i[0] / src1->i[0];
3018    dst->i[1] = src0->i[1] / src1->i[1];
3019    dst->i[2] = src0->i[2] / src1->i[2];
3020    dst->i[3] = src0->i[3] / src1->i[3];
3021 }
3022
3023 static void
3024 micro_imax(union tgsi_exec_channel *dst,
3025            const union tgsi_exec_channel *src0,
3026            const union tgsi_exec_channel *src1)
3027 {
3028    dst->i[0] = src0->i[0] > src1->i[0] ? src0->i[0] : src1->i[0];
3029    dst->i[1] = src0->i[1] > src1->i[1] ? src0->i[1] : src1->i[1];
3030    dst->i[2] = src0->i[2] > src1->i[2] ? src0->i[2] : src1->i[2];
3031    dst->i[3] = src0->i[3] > src1->i[3] ? src0->i[3] : src1->i[3];
3032 }
3033
3034 static void
3035 micro_imin(union tgsi_exec_channel *dst,
3036            const union tgsi_exec_channel *src0,
3037            const union tgsi_exec_channel *src1)
3038 {
3039    dst->i[0] = src0->i[0] < src1->i[0] ? src0->i[0] : src1->i[0];
3040    dst->i[1] = src0->i[1] < src1->i[1] ? src0->i[1] : src1->i[1];
3041    dst->i[2] = src0->i[2] < src1->i[2] ? src0->i[2] : src1->i[2];
3042    dst->i[3] = src0->i[3] < src1->i[3] ? src0->i[3] : src1->i[3];
3043 }
3044
3045 static void
3046 micro_isge(union tgsi_exec_channel *dst,
3047            const union tgsi_exec_channel *src0,
3048            const union tgsi_exec_channel *src1)
3049 {
3050    dst->i[0] = src0->i[0] >= src1->i[0] ? -1 : 0;
3051    dst->i[1] = src0->i[1] >= src1->i[1] ? -1 : 0;
3052    dst->i[2] = src0->i[2] >= src1->i[2] ? -1 : 0;
3053    dst->i[3] = src0->i[3] >= src1->i[3] ? -1 : 0;
3054 }
3055
3056 static void
3057 micro_ishr(union tgsi_exec_channel *dst,
3058            const union tgsi_exec_channel *src0,
3059            const union tgsi_exec_channel *src1)
3060 {
3061    dst->i[0] = src0->i[0] >> src1->i[0];
3062    dst->i[1] = src0->i[1] >> src1->i[1];
3063    dst->i[2] = src0->i[2] >> src1->i[2];
3064    dst->i[3] = src0->i[3] >> src1->i[3];
3065 }
3066
3067 static void
3068 micro_islt(union tgsi_exec_channel *dst,
3069            const union tgsi_exec_channel *src0,
3070            const union tgsi_exec_channel *src1)
3071 {
3072    dst->i[0] = src0->i[0] < src1->i[0] ? -1 : 0;
3073    dst->i[1] = src0->i[1] < src1->i[1] ? -1 : 0;
3074    dst->i[2] = src0->i[2] < src1->i[2] ? -1 : 0;
3075    dst->i[3] = src0->i[3] < src1->i[3] ? -1 : 0;
3076 }
3077
3078 static void
3079 micro_f2u(union tgsi_exec_channel *dst,
3080           const union tgsi_exec_channel *src)
3081 {
3082    dst->u[0] = (uint)src->f[0];
3083    dst->u[1] = (uint)src->f[1];
3084    dst->u[2] = (uint)src->f[2];
3085    dst->u[3] = (uint)src->f[3];
3086 }
3087
3088 static void
3089 micro_u2f(union tgsi_exec_channel *dst,
3090           const union tgsi_exec_channel *src)
3091 {
3092    dst->f[0] = (float)src->u[0];
3093    dst->f[1] = (float)src->u[1];
3094    dst->f[2] = (float)src->u[2];
3095    dst->f[3] = (float)src->u[3];
3096 }
3097
3098 static void
3099 micro_uadd(union tgsi_exec_channel *dst,
3100            const union tgsi_exec_channel *src0,
3101            const union tgsi_exec_channel *src1)
3102 {
3103    dst->u[0] = src0->u[0] + src1->u[0];
3104    dst->u[1] = src0->u[1] + src1->u[1];
3105    dst->u[2] = src0->u[2] + src1->u[2];
3106    dst->u[3] = src0->u[3] + src1->u[3];
3107 }
3108
3109 static void
3110 micro_udiv(union tgsi_exec_channel *dst,
3111            const union tgsi_exec_channel *src0,
3112            const union tgsi_exec_channel *src1)
3113 {
3114    dst->u[0] = src0->u[0] / src1->u[0];
3115    dst->u[1] = src0->u[1] / src1->u[1];
3116    dst->u[2] = src0->u[2] / src1->u[2];
3117    dst->u[3] = src0->u[3] / src1->u[3];
3118 }
3119
3120 static void
3121 micro_umad(union tgsi_exec_channel *dst,
3122            const union tgsi_exec_channel *src0,
3123            const union tgsi_exec_channel *src1,
3124            const union tgsi_exec_channel *src2)
3125 {
3126    dst->u[0] = src0->u[0] * src1->u[0] + src2->u[0];
3127    dst->u[1] = src0->u[1] * src1->u[1] + src2->u[1];
3128    dst->u[2] = src0->u[2] * src1->u[2] + src2->u[2];
3129    dst->u[3] = src0->u[3] * src1->u[3] + src2->u[3];
3130 }
3131
3132 static void
3133 micro_umax(union tgsi_exec_channel *dst,
3134            const union tgsi_exec_channel *src0,
3135            const union tgsi_exec_channel *src1)
3136 {
3137    dst->u[0] = src0->u[0] > src1->u[0] ? src0->u[0] : src1->u[0];
3138    dst->u[1] = src0->u[1] > src1->u[1] ? src0->u[1] : src1->u[1];
3139    dst->u[2] = src0->u[2] > src1->u[2] ? src0->u[2] : src1->u[2];
3140    dst->u[3] = src0->u[3] > src1->u[3] ? src0->u[3] : src1->u[3];
3141 }
3142
3143 static void
3144 micro_umin(union tgsi_exec_channel *dst,
3145            const union tgsi_exec_channel *src0,
3146            const union tgsi_exec_channel *src1)
3147 {
3148    dst->u[0] = src0->u[0] < src1->u[0] ? src0->u[0] : src1->u[0];
3149    dst->u[1] = src0->u[1] < src1->u[1] ? src0->u[1] : src1->u[1];
3150    dst->u[2] = src0->u[2] < src1->u[2] ? src0->u[2] : src1->u[2];
3151    dst->u[3] = src0->u[3] < src1->u[3] ? src0->u[3] : src1->u[3];
3152 }
3153
3154 static void
3155 micro_umod(union tgsi_exec_channel *dst,
3156            const union tgsi_exec_channel *src0,
3157            const union tgsi_exec_channel *src1)
3158 {
3159    dst->u[0] = src0->u[0] % src1->u[0];
3160    dst->u[1] = src0->u[1] % src1->u[1];
3161    dst->u[2] = src0->u[2] % src1->u[2];
3162    dst->u[3] = src0->u[3] % src1->u[3];
3163 }
3164
3165 static void
3166 micro_umul(union tgsi_exec_channel *dst,
3167            const union tgsi_exec_channel *src0,
3168            const union tgsi_exec_channel *src1)
3169 {
3170    dst->u[0] = src0->u[0] * src1->u[0];
3171    dst->u[1] = src0->u[1] * src1->u[1];
3172    dst->u[2] = src0->u[2] * src1->u[2];
3173    dst->u[3] = src0->u[3] * src1->u[3];
3174 }
3175
3176 static void
3177 micro_useq(union tgsi_exec_channel *dst,
3178            const union tgsi_exec_channel *src0,
3179            const union tgsi_exec_channel *src1)
3180 {
3181    dst->u[0] = src0->u[0] == src1->u[0] ? ~0 : 0;
3182    dst->u[1] = src0->u[1] == src1->u[1] ? ~0 : 0;
3183    dst->u[2] = src0->u[2] == src1->u[2] ? ~0 : 0;
3184    dst->u[3] = src0->u[3] == src1->u[3] ? ~0 : 0;
3185 }
3186
3187 static void
3188 micro_usge(union tgsi_exec_channel *dst,
3189            const union tgsi_exec_channel *src0,
3190            const union tgsi_exec_channel *src1)
3191 {
3192    dst->u[0] = src0->u[0] >= src1->u[0] ? ~0 : 0;
3193    dst->u[1] = src0->u[1] >= src1->u[1] ? ~0 : 0;
3194    dst->u[2] = src0->u[2] >= src1->u[2] ? ~0 : 0;
3195    dst->u[3] = src0->u[3] >= src1->u[3] ? ~0 : 0;
3196 }
3197
3198 static void
3199 micro_ushr(union tgsi_exec_channel *dst,
3200            const union tgsi_exec_channel *src0,
3201            const union tgsi_exec_channel *src1)
3202 {
3203    dst->u[0] = src0->u[0] >> src1->u[0];
3204    dst->u[1] = src0->u[1] >> src1->u[1];
3205    dst->u[2] = src0->u[2] >> src1->u[2];
3206    dst->u[3] = src0->u[3] >> src1->u[3];
3207 }
3208
3209 static void
3210 micro_uslt(union tgsi_exec_channel *dst,
3211            const union tgsi_exec_channel *src0,
3212            const union tgsi_exec_channel *src1)
3213 {
3214    dst->u[0] = src0->u[0] < src1->u[0] ? ~0 : 0;
3215    dst->u[1] = src0->u[1] < src1->u[1] ? ~0 : 0;
3216    dst->u[2] = src0->u[2] < src1->u[2] ? ~0 : 0;
3217    dst->u[3] = src0->u[3] < src1->u[3] ? ~0 : 0;
3218 }
3219
3220 static void
3221 micro_usne(union tgsi_exec_channel *dst,
3222            const union tgsi_exec_channel *src0,
3223            const union tgsi_exec_channel *src1)
3224 {
3225    dst->u[0] = src0->u[0] != src1->u[0] ? ~0 : 0;
3226    dst->u[1] = src0->u[1] != src1->u[1] ? ~0 : 0;
3227    dst->u[2] = src0->u[2] != src1->u[2] ? ~0 : 0;
3228    dst->u[3] = src0->u[3] != src1->u[3] ? ~0 : 0;
3229 }
3230
3231 static void
3232 exec_instruction(
3233    struct tgsi_exec_machine *mach,
3234    const struct tgsi_full_instruction *inst,
3235    int *pc )
3236 {
3237    union tgsi_exec_channel r[10];
3238
3239    (*pc)++;
3240
3241    switch (inst->Instruction.Opcode) {
3242    case TGSI_OPCODE_ARL:
3243       exec_vector_unary(mach, inst, micro_arl, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_FLOAT);
3244       break;
3245
3246    case TGSI_OPCODE_MOV:
3247       exec_vector_unary(mach, inst, micro_mov, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_FLOAT);
3248       break;
3249
3250    case TGSI_OPCODE_LIT:
3251       exec_lit(mach, inst);
3252       break;
3253
3254    case TGSI_OPCODE_RCP:
3255       exec_scalar_unary(mach, inst, micro_rcp, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3256       break;
3257
3258    case TGSI_OPCODE_RSQ:
3259       exec_scalar_unary(mach, inst, micro_rsq, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3260       break;
3261
3262    case TGSI_OPCODE_EXP:
3263       exec_exp(mach, inst);
3264       break;
3265
3266    case TGSI_OPCODE_LOG:
3267       exec_log(mach, inst);
3268       break;
3269
3270    case TGSI_OPCODE_MUL:
3271       exec_vector_binary(mach, inst, micro_mul, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3272       break;
3273
3274    case TGSI_OPCODE_ADD:
3275       exec_vector_binary(mach, inst, micro_add, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3276       break;
3277
3278    case TGSI_OPCODE_DP3:
3279       exec_dp3(mach, inst);
3280       break;
3281
3282    case TGSI_OPCODE_DP4:
3283       exec_dp4(mach, inst);
3284       break;
3285
3286    case TGSI_OPCODE_DST:
3287       exec_dst(mach, inst);
3288       break;
3289
3290    case TGSI_OPCODE_MIN:
3291       exec_vector_binary(mach, inst, micro_min, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3292       break;
3293
3294    case TGSI_OPCODE_MAX:
3295       exec_vector_binary(mach, inst, micro_max, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3296       break;
3297
3298    case TGSI_OPCODE_SLT:
3299       exec_vector_binary(mach, inst, micro_slt, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3300       break;
3301
3302    case TGSI_OPCODE_SGE:
3303       exec_vector_binary(mach, inst, micro_sge, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3304       break;
3305
3306    case TGSI_OPCODE_MAD:
3307       exec_vector_trinary(mach, inst, micro_mad, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3308       break;
3309
3310    case TGSI_OPCODE_SUB:
3311       exec_vector_binary(mach, inst, micro_sub, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3312       break;
3313
3314    case TGSI_OPCODE_LRP:
3315       exec_vector_trinary(mach, inst, micro_lrp, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3316       break;
3317
3318    case TGSI_OPCODE_CND:
3319       exec_vector_trinary(mach, inst, micro_cnd, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3320       break;
3321
3322    case TGSI_OPCODE_DP2A:
3323       exec_dp2a(mach, inst);
3324       break;
3325
3326    case TGSI_OPCODE_FRC:
3327       exec_vector_unary(mach, inst, micro_frc, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3328       break;
3329
3330    case TGSI_OPCODE_CLAMP:
3331       exec_vector_trinary(mach, inst, micro_clamp, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3332       break;
3333
3334    case TGSI_OPCODE_FLR:
3335       exec_vector_unary(mach, inst, micro_flr, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3336       break;
3337
3338    case TGSI_OPCODE_ROUND:
3339       exec_vector_unary(mach, inst, micro_rnd, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3340       break;
3341
3342    case TGSI_OPCODE_EX2:
3343       exec_scalar_unary(mach, inst, micro_exp2, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3344       break;
3345
3346    case TGSI_OPCODE_LG2:
3347       exec_scalar_unary(mach, inst, micro_lg2, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3348       break;
3349
3350    case TGSI_OPCODE_POW:
3351       exec_scalar_binary(mach, inst, micro_pow, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3352       break;
3353
3354    case TGSI_OPCODE_XPD:
3355       exec_xpd(mach, inst);
3356       break;
3357
3358    case TGSI_OPCODE_ABS:
3359       exec_vector_unary(mach, inst, micro_abs, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3360       break;
3361
3362    case TGSI_OPCODE_RCC:
3363       exec_scalar_unary(mach, inst, micro_rcc, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3364       break;
3365
3366    case TGSI_OPCODE_DPH:
3367       exec_dph(mach, inst);
3368       break;
3369
3370    case TGSI_OPCODE_COS:
3371       exec_scalar_unary(mach, inst, micro_cos, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3372       break;
3373
3374    case TGSI_OPCODE_DDX:
3375       exec_vector_unary(mach, inst, micro_ddx, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3376       break;
3377
3378    case TGSI_OPCODE_DDY:
3379       exec_vector_unary(mach, inst, micro_ddy, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3380       break;
3381
3382    case TGSI_OPCODE_KILP:
3383       exec_kilp (mach, inst);
3384       break;
3385
3386    case TGSI_OPCODE_KIL:
3387       exec_kil (mach, inst);
3388       break;
3389
3390    case TGSI_OPCODE_PK2H:
3391       assert (0);
3392       break;
3393
3394    case TGSI_OPCODE_PK2US:
3395       assert (0);
3396       break;
3397
3398    case TGSI_OPCODE_PK4B:
3399       assert (0);
3400       break;
3401
3402    case TGSI_OPCODE_PK4UB:
3403       assert (0);
3404       break;
3405
3406    case TGSI_OPCODE_RFL:
3407       exec_rfl(mach, inst);
3408       break;
3409
3410    case TGSI_OPCODE_SEQ:
3411       exec_vector_binary(mach, inst, micro_seq, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3412       break;
3413
3414    case TGSI_OPCODE_SFL:
3415       exec_vector(mach, inst, micro_sfl, TGSI_EXEC_DATA_FLOAT);
3416       break;
3417
3418    case TGSI_OPCODE_SGT:
3419       exec_vector_binary(mach, inst, micro_sgt, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3420       break;
3421
3422    case TGSI_OPCODE_SIN:
3423       exec_scalar_unary(mach, inst, micro_sin, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3424       break;
3425
3426    case TGSI_OPCODE_SLE:
3427       exec_vector_binary(mach, inst, micro_sle, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3428       break;
3429
3430    case TGSI_OPCODE_SNE:
3431       exec_vector_binary(mach, inst, micro_sne, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3432       break;
3433
3434    case TGSI_OPCODE_STR:
3435       exec_vector(mach, inst, micro_str, TGSI_EXEC_DATA_FLOAT);
3436       break;
3437
3438    case TGSI_OPCODE_TEX:
3439       /* simple texture lookup */
3440       /* src[0] = texcoord */
3441       /* src[1] = sampler unit */
3442       exec_tex(mach, inst, TEX_MODIFIER_NONE);
3443       break;
3444
3445    case TGSI_OPCODE_TXB:
3446       /* Texture lookup with lod bias */
3447       /* src[0] = texcoord (src[0].w = LOD bias) */
3448       /* src[1] = sampler unit */
3449       exec_tex(mach, inst, TEX_MODIFIER_LOD_BIAS);
3450       break;
3451
3452    case TGSI_OPCODE_TXD:
3453       /* Texture lookup with explict partial derivatives */
3454       /* src[0] = texcoord */
3455       /* src[1] = d[strq]/dx */
3456       /* src[2] = d[strq]/dy */
3457       /* src[3] = sampler unit */
3458       exec_txd(mach, inst);
3459       break;
3460
3461    case TGSI_OPCODE_TXL:
3462       /* Texture lookup with explit LOD */
3463       /* src[0] = texcoord (src[0].w = LOD) */
3464       /* src[1] = sampler unit */
3465       exec_tex(mach, inst, TEX_MODIFIER_EXPLICIT_LOD);
3466       break;
3467
3468    case TGSI_OPCODE_TXP:
3469       /* Texture lookup with projection */
3470       /* src[0] = texcoord (src[0].w = projection) */
3471       /* src[1] = sampler unit */
3472       exec_tex(mach, inst, TEX_MODIFIER_PROJECTED);
3473       break;
3474
3475    case TGSI_OPCODE_UP2H:
3476       assert (0);
3477       break;
3478
3479    case TGSI_OPCODE_UP2US:
3480       assert (0);
3481       break;
3482
3483    case TGSI_OPCODE_UP4B:
3484       assert (0);
3485       break;
3486
3487    case TGSI_OPCODE_UP4UB:
3488       assert (0);
3489       break;
3490
3491    case TGSI_OPCODE_X2D:
3492       exec_x2d(mach, inst);
3493       break;
3494
3495    case TGSI_OPCODE_ARA:
3496       assert (0);
3497       break;
3498
3499    case TGSI_OPCODE_ARR:
3500       exec_vector_unary(mach, inst, micro_arr, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_FLOAT);
3501       break;
3502
3503    case TGSI_OPCODE_BRA:
3504       assert (0);
3505       break;
3506
3507    case TGSI_OPCODE_CAL:
3508       /* skip the call if no execution channels are enabled */
3509       if (mach->ExecMask) {
3510          /* do the call */
3511
3512          /* First, record the depths of the execution stacks.
3513           * This is important for deeply nested/looped return statements.
3514           * We have to unwind the stacks by the correct amount.  For a
3515           * real code generator, we could determine the number of entries
3516           * to pop off each stack with simple static analysis and avoid
3517           * implementing this data structure at run time.
3518           */
3519          mach->CallStack[mach->CallStackTop].CondStackTop = mach->CondStackTop;
3520          mach->CallStack[mach->CallStackTop].LoopStackTop = mach->LoopStackTop;
3521          mach->CallStack[mach->CallStackTop].ContStackTop = mach->ContStackTop;
3522          mach->CallStack[mach->CallStackTop].SwitchStackTop = mach->SwitchStackTop;
3523          mach->CallStack[mach->CallStackTop].BreakStackTop = mach->BreakStackTop;
3524          /* note that PC was already incremented above */
3525          mach->CallStack[mach->CallStackTop].ReturnAddr = *pc;
3526
3527          mach->CallStackTop++;
3528
3529          /* Second, push the Cond, Loop, Cont, Func stacks */
3530          assert(mach->CondStackTop < TGSI_EXEC_MAX_COND_NESTING);
3531          assert(mach->LoopStackTop < TGSI_EXEC_MAX_LOOP_NESTING);
3532          assert(mach->ContStackTop < TGSI_EXEC_MAX_LOOP_NESTING);
3533          assert(mach->SwitchStackTop < TGSI_EXEC_MAX_SWITCH_NESTING);
3534          assert(mach->BreakStackTop < TGSI_EXEC_MAX_BREAK_STACK);
3535          assert(mach->FuncStackTop < TGSI_EXEC_MAX_CALL_NESTING);
3536
3537          mach->CondStack[mach->CondStackTop++] = mach->CondMask;
3538          mach->LoopStack[mach->LoopStackTop++] = mach->LoopMask;
3539          mach->ContStack[mach->ContStackTop++] = mach->ContMask;
3540          mach->SwitchStack[mach->SwitchStackTop++] = mach->Switch;
3541          mach->BreakStack[mach->BreakStackTop++] = mach->BreakType;
3542          mach->FuncStack[mach->FuncStackTop++] = mach->FuncMask;
3543
3544          /* Finally, jump to the subroutine */
3545          *pc = inst->Label.Label;
3546       }
3547       break;
3548
3549    case TGSI_OPCODE_RET:
3550       mach->FuncMask &= ~mach->ExecMask;
3551       UPDATE_EXEC_MASK(mach);
3552
3553       if (mach->FuncMask == 0x0) {
3554          /* really return now (otherwise, keep executing */
3555
3556          if (mach->CallStackTop == 0) {
3557             /* returning from main() */
3558             mach->CondStackTop = 0;
3559             mach->LoopStackTop = 0;
3560             *pc = -1;
3561             return;
3562          }
3563
3564          assert(mach->CallStackTop > 0);
3565          mach->CallStackTop--;
3566
3567          mach->CondStackTop = mach->CallStack[mach->CallStackTop].CondStackTop;
3568          mach->CondMask = mach->CondStack[mach->CondStackTop];
3569
3570          mach->LoopStackTop = mach->CallStack[mach->CallStackTop].LoopStackTop;
3571          mach->LoopMask = mach->LoopStack[mach->LoopStackTop];
3572
3573          mach->ContStackTop = mach->CallStack[mach->CallStackTop].ContStackTop;
3574          mach->ContMask = mach->ContStack[mach->ContStackTop];
3575
3576          mach->SwitchStackTop = mach->CallStack[mach->CallStackTop].SwitchStackTop;
3577          mach->Switch = mach->SwitchStack[mach->SwitchStackTop];
3578
3579          mach->BreakStackTop = mach->CallStack[mach->CallStackTop].BreakStackTop;
3580          mach->BreakType = mach->BreakStack[mach->BreakStackTop];
3581
3582          assert(mach->FuncStackTop > 0);
3583          mach->FuncMask = mach->FuncStack[--mach->FuncStackTop];
3584
3585          *pc = mach->CallStack[mach->CallStackTop].ReturnAddr;
3586
3587          UPDATE_EXEC_MASK(mach);
3588       }
3589       break;
3590
3591    case TGSI_OPCODE_SSG:
3592       exec_vector_unary(mach, inst, micro_sgn, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3593       break;
3594
3595    case TGSI_OPCODE_CMP:
3596       exec_vector_trinary(mach, inst, micro_cmp, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3597       break;
3598
3599    case TGSI_OPCODE_SCS:
3600       exec_scs(mach, inst);
3601       break;
3602
3603    case TGSI_OPCODE_NRM:
3604       exec_nrm3(mach, inst);
3605       break;
3606
3607    case TGSI_OPCODE_NRM4:
3608       exec_nrm4(mach, inst);
3609       break;
3610
3611    case TGSI_OPCODE_DIV:
3612       exec_vector_binary(mach, inst, micro_div, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3613       break;
3614
3615    case TGSI_OPCODE_DP2:
3616       exec_dp2(mach, inst);
3617       break;
3618
3619    case TGSI_OPCODE_IF:
3620       /* push CondMask */
3621       assert(mach->CondStackTop < TGSI_EXEC_MAX_COND_NESTING);
3622       mach->CondStack[mach->CondStackTop++] = mach->CondMask;
3623       FETCH( &r[0], 0, CHAN_X );
3624       /* update CondMask */
3625       if( ! r[0].u[0] ) {
3626          mach->CondMask &= ~0x1;
3627       }
3628       if( ! r[0].u[1] ) {
3629          mach->CondMask &= ~0x2;
3630       }
3631       if( ! r[0].u[2] ) {
3632          mach->CondMask &= ~0x4;
3633       }
3634       if( ! r[0].u[3] ) {
3635          mach->CondMask &= ~0x8;
3636       }
3637       UPDATE_EXEC_MASK(mach);
3638       /* Todo: If CondMask==0, jump to ELSE */
3639       break;
3640
3641    case TGSI_OPCODE_ELSE:
3642       /* invert CondMask wrt previous mask */
3643       {
3644          uint prevMask;
3645          assert(mach->CondStackTop > 0);
3646          prevMask = mach->CondStack[mach->CondStackTop - 1];
3647          mach->CondMask = ~mach->CondMask & prevMask;
3648          UPDATE_EXEC_MASK(mach);
3649          /* Todo: If CondMask==0, jump to ENDIF */
3650       }
3651       break;
3652
3653    case TGSI_OPCODE_ENDIF:
3654       /* pop CondMask */
3655       assert(mach->CondStackTop > 0);
3656       mach->CondMask = mach->CondStack[--mach->CondStackTop];
3657       UPDATE_EXEC_MASK(mach);
3658       break;
3659
3660    case TGSI_OPCODE_END:
3661       /* make sure we end primitives which haven't
3662        * been explicitly emitted */
3663       conditional_emit_primitive(mach);
3664       /* halt execution */
3665       *pc = -1;
3666       break;
3667
3668    case TGSI_OPCODE_PUSHA:
3669       assert (0);
3670       break;
3671
3672    case TGSI_OPCODE_POPA:
3673       assert (0);
3674       break;
3675
3676    case TGSI_OPCODE_CEIL:
3677       exec_vector_unary(mach, inst, micro_ceil, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3678       break;
3679
3680    case TGSI_OPCODE_I2F:
3681       exec_vector_unary(mach, inst, micro_i2f, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_INT);
3682       break;
3683
3684    case TGSI_OPCODE_NOT:
3685       exec_vector_unary(mach, inst, micro_not, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3686       break;
3687
3688    case TGSI_OPCODE_TRUNC:
3689       exec_vector_unary(mach, inst, micro_trunc, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_FLOAT);
3690       break;
3691
3692    case TGSI_OPCODE_SHL:
3693       exec_vector_binary(mach, inst, micro_shl, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3694       break;
3695
3696    case TGSI_OPCODE_AND:
3697       exec_vector_binary(mach, inst, micro_and, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3698       break;
3699
3700    case TGSI_OPCODE_OR:
3701       exec_vector_binary(mach, inst, micro_or, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3702       break;
3703
3704    case TGSI_OPCODE_MOD:
3705       exec_vector_binary(mach, inst, micro_mod, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3706       break;
3707
3708    case TGSI_OPCODE_XOR:
3709       exec_vector_binary(mach, inst, micro_xor, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3710       break;
3711
3712    case TGSI_OPCODE_SAD:
3713       assert (0);
3714       break;
3715
3716    case TGSI_OPCODE_TXF:
3717       assert (0);
3718       break;
3719
3720    case TGSI_OPCODE_TXQ:
3721       assert (0);
3722       break;
3723
3724    case TGSI_OPCODE_EMIT:
3725       emit_vertex(mach);
3726       break;
3727
3728    case TGSI_OPCODE_ENDPRIM:
3729       emit_primitive(mach);
3730       break;
3731
3732    case TGSI_OPCODE_BGNLOOP:
3733       /* push LoopMask and ContMasks */
3734       assert(mach->LoopStackTop < TGSI_EXEC_MAX_LOOP_NESTING);
3735       assert(mach->ContStackTop < TGSI_EXEC_MAX_LOOP_NESTING);
3736       assert(mach->LoopLabelStackTop < TGSI_EXEC_MAX_LOOP_NESTING);
3737       assert(mach->BreakStackTop < TGSI_EXEC_MAX_BREAK_STACK);
3738
3739       mach->LoopStack[mach->LoopStackTop++] = mach->LoopMask;
3740       mach->ContStack[mach->ContStackTop++] = mach->ContMask;
3741       mach->LoopLabelStack[mach->LoopLabelStackTop++] = *pc - 1;
3742       mach->BreakStack[mach->BreakStackTop++] = mach->BreakType;
3743       mach->BreakType = TGSI_EXEC_BREAK_INSIDE_LOOP;
3744       break;
3745
3746    case TGSI_OPCODE_ENDLOOP:
3747       /* Restore ContMask, but don't pop */
3748       assert(mach->ContStackTop > 0);
3749       mach->ContMask = mach->ContStack[mach->ContStackTop - 1];
3750       UPDATE_EXEC_MASK(mach);
3751       if (mach->ExecMask) {
3752          /* repeat loop: jump to instruction just past BGNLOOP */
3753          assert(mach->LoopLabelStackTop > 0);
3754          *pc = mach->LoopLabelStack[mach->LoopLabelStackTop - 1] + 1;
3755       }
3756       else {
3757          /* exit loop: pop LoopMask */
3758          assert(mach->LoopStackTop > 0);
3759          mach->LoopMask = mach->LoopStack[--mach->LoopStackTop];
3760          /* pop ContMask */
3761          assert(mach->ContStackTop > 0);
3762          mach->ContMask = mach->ContStack[--mach->ContStackTop];
3763          assert(mach->LoopLabelStackTop > 0);
3764          --mach->LoopLabelStackTop;
3765
3766          mach->BreakType = mach->BreakStack[--mach->BreakStackTop];
3767       }
3768       UPDATE_EXEC_MASK(mach);
3769       break;
3770
3771    case TGSI_OPCODE_BRK:
3772       exec_break(mach);
3773       break;
3774
3775    case TGSI_OPCODE_CONT:
3776       /* turn off cont channels for each enabled exec channel */
3777       mach->ContMask &= ~mach->ExecMask;
3778       /* Todo: if mach->LoopMask == 0, jump to end of loop */
3779       UPDATE_EXEC_MASK(mach);
3780       break;
3781
3782    case TGSI_OPCODE_BGNSUB:
3783       /* no-op */
3784       break;
3785
3786    case TGSI_OPCODE_ENDSUB:
3787       /*
3788        * XXX: This really should be a no-op. We should never reach this opcode.
3789        */
3790
3791       assert(mach->CallStackTop > 0);
3792       mach->CallStackTop--;
3793
3794       mach->CondStackTop = mach->CallStack[mach->CallStackTop].CondStackTop;
3795       mach->CondMask = mach->CondStack[mach->CondStackTop];
3796
3797       mach->LoopStackTop = mach->CallStack[mach->CallStackTop].LoopStackTop;
3798       mach->LoopMask = mach->LoopStack[mach->LoopStackTop];
3799
3800       mach->ContStackTop = mach->CallStack[mach->CallStackTop].ContStackTop;
3801       mach->ContMask = mach->ContStack[mach->ContStackTop];
3802
3803       mach->SwitchStackTop = mach->CallStack[mach->CallStackTop].SwitchStackTop;
3804       mach->Switch = mach->SwitchStack[mach->SwitchStackTop];
3805
3806       mach->BreakStackTop = mach->CallStack[mach->CallStackTop].BreakStackTop;
3807       mach->BreakType = mach->BreakStack[mach->BreakStackTop];
3808
3809       assert(mach->FuncStackTop > 0);
3810       mach->FuncMask = mach->FuncStack[--mach->FuncStackTop];
3811
3812       *pc = mach->CallStack[mach->CallStackTop].ReturnAddr;
3813
3814       UPDATE_EXEC_MASK(mach);
3815       break;
3816
3817    case TGSI_OPCODE_NOP:
3818       break;
3819
3820    case TGSI_OPCODE_BREAKC:
3821       FETCH(&r[0], 0, CHAN_X);
3822       /* update CondMask */
3823       if (r[0].u[0] && (mach->ExecMask & 0x1)) {
3824          mach->LoopMask &= ~0x1;
3825       }
3826       if (r[0].u[1] && (mach->ExecMask & 0x2)) {
3827          mach->LoopMask &= ~0x2;
3828       }
3829       if (r[0].u[2] && (mach->ExecMask & 0x4)) {
3830          mach->LoopMask &= ~0x4;
3831       }
3832       if (r[0].u[3] && (mach->ExecMask & 0x8)) {
3833          mach->LoopMask &= ~0x8;
3834       }
3835       /* Todo: if mach->LoopMask == 0, jump to end of loop */
3836       UPDATE_EXEC_MASK(mach);
3837       break;
3838
3839    case TGSI_OPCODE_F2I:
3840       exec_vector_unary(mach, inst, micro_f2i, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_FLOAT);
3841       break;
3842
3843    case TGSI_OPCODE_IDIV:
3844       exec_vector_binary(mach, inst, micro_idiv, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3845       break;
3846
3847    case TGSI_OPCODE_IMAX:
3848       exec_vector_binary(mach, inst, micro_imax, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3849       break;
3850
3851    case TGSI_OPCODE_IMIN:
3852       exec_vector_binary(mach, inst, micro_imin, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3853       break;
3854
3855    case TGSI_OPCODE_INEG:
3856       exec_vector_unary(mach, inst, micro_ineg, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3857       break;
3858
3859    case TGSI_OPCODE_ISGE:
3860       exec_vector_binary(mach, inst, micro_isge, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3861       break;
3862
3863    case TGSI_OPCODE_ISHR:
3864       exec_vector_binary(mach, inst, micro_ishr, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3865       break;
3866
3867    case TGSI_OPCODE_ISLT:
3868       exec_vector_binary(mach, inst, micro_islt, TGSI_EXEC_DATA_INT, TGSI_EXEC_DATA_INT);
3869       break;
3870
3871    case TGSI_OPCODE_F2U:
3872       exec_vector_unary(mach, inst, micro_f2u, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_FLOAT);
3873       break;
3874
3875    case TGSI_OPCODE_U2F:
3876       exec_vector_unary(mach, inst, micro_u2f, TGSI_EXEC_DATA_FLOAT, TGSI_EXEC_DATA_UINT);
3877       break;
3878
3879    case TGSI_OPCODE_UADD:
3880       exec_vector_binary(mach, inst, micro_uadd, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3881       break;
3882
3883    case TGSI_OPCODE_UDIV:
3884       exec_vector_binary(mach, inst, micro_udiv, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3885       break;
3886
3887    case TGSI_OPCODE_UMAD:
3888       exec_vector_trinary(mach, inst, micro_umad, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3889       break;
3890
3891    case TGSI_OPCODE_UMAX:
3892       exec_vector_binary(mach, inst, micro_umax, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3893       break;
3894
3895    case TGSI_OPCODE_UMIN:
3896       exec_vector_binary(mach, inst, micro_umin, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3897       break;
3898
3899    case TGSI_OPCODE_UMOD:
3900       exec_vector_binary(mach, inst, micro_umod, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3901       break;
3902
3903    case TGSI_OPCODE_UMUL:
3904       exec_vector_binary(mach, inst, micro_umul, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3905       break;
3906
3907    case TGSI_OPCODE_USEQ:
3908       exec_vector_binary(mach, inst, micro_useq, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3909       break;
3910
3911    case TGSI_OPCODE_USGE:
3912       exec_vector_binary(mach, inst, micro_usge, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3913       break;
3914
3915    case TGSI_OPCODE_USHR:
3916       exec_vector_binary(mach, inst, micro_ushr, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3917       break;
3918
3919    case TGSI_OPCODE_USLT:
3920       exec_vector_binary(mach, inst, micro_uslt, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3921       break;
3922
3923    case TGSI_OPCODE_USNE:
3924       exec_vector_binary(mach, inst, micro_usne, TGSI_EXEC_DATA_UINT, TGSI_EXEC_DATA_UINT);
3925       break;
3926
3927    case TGSI_OPCODE_SWITCH:
3928       exec_switch(mach, inst);
3929       break;
3930
3931    case TGSI_OPCODE_CASE:
3932       exec_case(mach, inst);
3933       break;
3934
3935    case TGSI_OPCODE_DEFAULT:
3936       exec_default(mach);
3937       break;
3938
3939    case TGSI_OPCODE_ENDSWITCH:
3940       exec_endswitch(mach);
3941       break;
3942
3943    case TGSI_OPCODE_LOAD:
3944       assert(0);
3945       break;
3946
3947    case TGSI_OPCODE_LOAD_MS:
3948       assert(0);
3949       break;
3950
3951    case TGSI_OPCODE_SAMPLE:
3952       exec_sample(mach, inst, TEX_MODIFIER_NONE);
3953       break;
3954
3955    case TGSI_OPCODE_SAMPLE_B:
3956       exec_sample(mach, inst, TEX_MODIFIER_LOD_BIAS);
3957       break;
3958
3959    case TGSI_OPCODE_SAMPLE_C:
3960       exec_sample(mach, inst, TEX_MODIFIER_NONE);
3961       break;
3962
3963    case TGSI_OPCODE_SAMPLE_C_LZ:
3964       exec_sample(mach, inst, TEX_MODIFIER_LOD_BIAS);
3965       break;
3966
3967    case TGSI_OPCODE_SAMPLE_D:
3968       exec_sample_d(mach, inst);
3969       break;
3970
3971    case TGSI_OPCODE_SAMPLE_L:
3972       exec_sample(mach, inst, TEX_MODIFIER_EXPLICIT_LOD);
3973       break;
3974
3975    case TGSI_OPCODE_GATHER4:
3976       assert(0);
3977       break;
3978
3979    case TGSI_OPCODE_RESINFO:
3980       assert(0);
3981       break;
3982
3983    case TGSI_OPCODE_SAMPLE_POS:
3984       assert(0);
3985       break;
3986
3987    case TGSI_OPCODE_SAMPLE_INFO:
3988       assert(0);
3989       break;
3990
3991    default:
3992       assert( 0 );
3993    }
3994 }
3995
3996
3997 #define DEBUG_EXECUTION 0
3998
3999
4000 /**
4001  * Run TGSI interpreter.
4002  * \return bitmask of "alive" quad components
4003  */
4004 uint
4005 tgsi_exec_machine_run( struct tgsi_exec_machine *mach )
4006 {
4007    uint i;
4008    int pc = 0;
4009
4010    mach->CondMask = 0xf;
4011    mach->LoopMask = 0xf;
4012    mach->ContMask = 0xf;
4013    mach->FuncMask = 0xf;
4014    mach->ExecMask = 0xf;
4015
4016    mach->Switch.mask = 0xf;
4017
4018    assert(mach->CondStackTop == 0);
4019    assert(mach->LoopStackTop == 0);
4020    assert(mach->ContStackTop == 0);
4021    assert(mach->SwitchStackTop == 0);
4022    assert(mach->BreakStackTop == 0);
4023    assert(mach->CallStackTop == 0);
4024
4025    mach->Temps[TEMP_KILMASK_I].xyzw[TEMP_KILMASK_C].u[0] = 0;
4026    mach->Temps[TEMP_OUTPUT_I].xyzw[TEMP_OUTPUT_C].u[0] = 0;
4027
4028    if( mach->Processor == TGSI_PROCESSOR_GEOMETRY ) {
4029       mach->Temps[TEMP_PRIMITIVE_I].xyzw[TEMP_PRIMITIVE_C].u[0] = 0;
4030       mach->Primitives[0] = 0;
4031    }
4032
4033    /* execute declarations (interpolants) */
4034    for (i = 0; i < mach->NumDeclarations; i++) {
4035       exec_declaration( mach, mach->Declarations+i );
4036    }
4037
4038    {
4039 #if DEBUG_EXECUTION
4040       struct tgsi_exec_vector temps[TGSI_EXEC_NUM_TEMPS + TGSI_EXEC_NUM_TEMP_EXTRAS];
4041       struct tgsi_exec_vector outputs[PIPE_MAX_ATTRIBS];
4042       uint inst = 1;
4043
4044       memcpy(temps, mach->Temps, sizeof(temps));
4045       memcpy(outputs, mach->Outputs, sizeof(outputs));
4046 #endif
4047
4048       /* execute instructions, until pc is set to -1 */
4049       while (pc != -1) {
4050
4051 #if DEBUG_EXECUTION
4052          uint i;
4053
4054          tgsi_dump_instruction(&mach->Instructions[pc], inst++);
4055 #endif
4056
4057          assert(pc < (int) mach->NumInstructions);
4058          exec_instruction(mach, mach->Instructions + pc, &pc);
4059
4060 #if DEBUG_EXECUTION
4061          for (i = 0; i < TGSI_EXEC_NUM_TEMPS + TGSI_EXEC_NUM_TEMP_EXTRAS; i++) {
4062             if (memcmp(&temps[i], &mach->Temps[i], sizeof(temps[i]))) {
4063                uint j;
4064
4065                memcpy(&temps[i], &mach->Temps[i], sizeof(temps[i]));
4066                debug_printf("TEMP[%2u] = ", i);
4067                for (j = 0; j < 4; j++) {
4068                   if (j > 0) {
4069                      debug_printf("           ");
4070                   }
4071                   debug_printf("(%6f %u, %6f %u, %6f %u, %6f %u)\n",
4072                                temps[i].xyzw[0].f[j], temps[i].xyzw[0].u[j],
4073                                temps[i].xyzw[1].f[j], temps[i].xyzw[1].u[j],
4074                                temps[i].xyzw[2].f[j], temps[i].xyzw[2].u[j],
4075                                temps[i].xyzw[3].f[j], temps[i].xyzw[3].u[j]);
4076                }
4077             }
4078          }
4079          for (i = 0; i < PIPE_MAX_ATTRIBS; i++) {
4080             if (memcmp(&outputs[i], &mach->Outputs[i], sizeof(outputs[i]))) {
4081                uint j;
4082
4083                memcpy(&outputs[i], &mach->Outputs[i], sizeof(outputs[i]));
4084                debug_printf("OUT[%2u] =  ", i);
4085                for (j = 0; j < 4; j++) {
4086                   if (j > 0) {
4087                      debug_printf("           ");
4088                   }
4089                   debug_printf("(%6f %u, %6f %u, %6f %u, %6f %u)\n",
4090                                outputs[i].xyzw[0].f[j], outputs[i].xyzw[0].u[j],
4091                                outputs[i].xyzw[1].f[j], outputs[i].xyzw[1].u[j],
4092                                outputs[i].xyzw[2].f[j], outputs[i].xyzw[2].u[j],
4093                                outputs[i].xyzw[3].f[j], outputs[i].xyzw[3].u[j]);
4094                }
4095             }
4096          }
4097 #endif
4098       }
4099    }
4100
4101 #if 0
4102    /* we scale from floats in [0,1] to Zbuffer ints in sp_quad_depth_test.c */
4103    if (mach->Processor == TGSI_PROCESSOR_FRAGMENT) {
4104       /*
4105        * Scale back depth component.
4106        */
4107       for (i = 0; i < 4; i++)
4108          mach->Outputs[0].xyzw[2].f[i] *= ctx->DrawBuffer->_DepthMaxF;
4109    }
4110 #endif
4111
4112    /* Strictly speaking, these assertions aren't really needed but they
4113     * can potentially catch some bugs in the control flow code.
4114     */
4115    assert(mach->CondStackTop == 0);
4116    assert(mach->LoopStackTop == 0);
4117    assert(mach->ContStackTop == 0);
4118    assert(mach->SwitchStackTop == 0);
4119    assert(mach->BreakStackTop == 0);
4120    assert(mach->CallStackTop == 0);
4121
4122    return ~mach->Temps[TEMP_KILMASK_I].xyzw[TEMP_KILMASK_C].u[0];
4123 }