games/minimal/mods/experimental/textures/experimental_dummyball.png

/*
** $Id: lcode.c,v 2.25.1.3 2007/12/28 15:32:23 roberto Exp $
** Code generator for Lua
** See Copyright Notice in lua.h
*/


#include <stdlib.h>

#define lcode_c
#define LUA_CORE

#include "lua.h"

#include "lcode.h"
#include "ldebug.h"
#include "ldo.h"
#include "lgc.h"
#include "llex.h"
#include "lmem.h"
#include "lobject.h"
#include "lopcodes.h"
#include "lparser.h"
#include "ltable.h"


#define hasjumps(e)	((e)->t != (e)->f)


static int isnumeral(expdesc *e) {
  return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP);
}


void luaK_nil (FuncState *fs, int from, int n) {
  Instruction *previous;
  if (fs->pc > fs->lasttarget) {  /* no jumps to current position? */
    if (fs->pc == 0) {  /* function start? */
      if (from >= fs->nactvar)
        return;  /* positions are already clean */
    }
    else {
      previous = &fs->f->code[fs->pc-1];
      if (GET_OPCODE(*previous) == OP_LOADNIL) {
        int pfrom = GETARG_A(*previous);
        int pto = GETARG_B(*previous);
        if (pfrom <= from && from <= pto+1) {  /* can connect both? */
          if (from+n-1 > pto)
            SETARG_B(*previous, from+n-1);
          return;
        }
      }
    }
  }
  luaK_codeABC(fs, OP_LOADNIL, from, from+n-1, 0);  /* else no optimization */
}


int luaK_jump (FuncState *fs) {
  int jpc = fs->jpc;  /* save list of jumps to here */
  int j;
  fs->jpc = NO_JUMP;
  j = luaK_codeAsBx(fs, OP_JMP, 0, NO_JUMP);
  luaK_concat(fs, &j, jpc);  /* keep them on hold */
  return j;
}


void luaK_ret (FuncState *fs, int first, int nret) {
  luaK_codeABC(fs, OP_RETURN, first, nret+1, 0);
}


static int condjump (FuncState *fs, OpCode op, int A, int B, int C) {
  luaK_codeABC(fs, op, A, B, C);
  return luaK_jump(fs);
}


static void fixjump (FuncState *fs, int pc, int dest) {
  Instruction *jmp = &fs->f->code[pc];
  int offset = dest-(pc+1);
  lua_assert(dest != NO_JUMP);
  if (abs(offset) > MAXARG_sBx)
    luaX_syntaxerror(fs->ls, "control structure too long");
  SETARG_sBx(*jmp, offset);
}


/*
** returns current `pc' and marks it as a jump target (to avoid wrong
** optimizations with consecutive instructions not in the same basic block).
*/
int luaK_getlabel (FuncState *fs) {
  fs->lasttarget = fs->pc;
  return fs->pc;
}


static int getjump (FuncState *fs, int pc) {
  int offset = GETARG_sBx(fs->f->code[pc]);
  if (offset == NO_JUMP)  /* point to itself represents end of list */
    return NO_JUMP;  /* end of list */
  else
    return (pc+1)+offset;  /* turn offset into absolute position */
}


static Instruction *getjumpcontrol (FuncState *fs, int pc) {
  Instruction *pi = &fs->f->code[pc];
  if (pc >= 1 && testTMode(GET_OPCODE(*(pi-1))))
    return pi-1;
  else
    return pi;
}


/*
** check whether list has any jump that do not produce a value
** (or produce an inverted value)
*/
static int need_value (FuncState *fs, int list) {
  for (; list != NO_JUMP; list = getjump(fs, list)) {
    Instruction i = *getjumpcontrol(fs, list);
    if (GET_OPCODE(i) != OP_TESTSET) return 1;
  }
  return 0;  /* not found */
}


static int patchtestreg (FuncState *fs, int node, int reg) {
  Instruction *i = getjumpcontrol(fs, node);
  if (GET_OPCODE(*i) != OP_TESTSET)
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 10 00 00 00 30 08 03 00 00 00 2f 81 0a	.PNG........IHDR.......0...../..
0020	65 00 00 00 54 50 4c 54 45 00 00 00 5c 46 28 74 53 29 80 07 03 80 5e 32 94 94 94 97 6a 2f a5 0a	e...TPLTE...\F(tS)....^2....j/..
0040	04 b8 b8 b8 bb 8a 49 d0 0c 05 f1 0e 06 f9 37 30 3f 02 00 53 02 00 5c 46 28 67 03 00 72 72 72 74	......I.......70?..S..\F(g..rrrt
0060	53 29 7a 04 00 80 5e 32 94 94 94 97 6a 2f b8 b8 b8 bb 8a 49 bc 06 00 d4 d4 d4 ff ff ff a1 28 22	S)z...^2....j/.....I..........("
0080	58 00 00 00 0d 74 52 4e 53 00 00 00 00 00 00 00 00 00 00 00 00 00 ed 48 78 48 00 00 00 dd 49 44	X....tRNS..............HxH....ID
00a0	41 54 78 da 75 8a ed 4e c4 20 14 05 d5 55 d8 96 da ad 85 52 c0 f7 7f 4f cf fd 38 49 fd d1 49 48	ATx.u..N.....U.....R...O..8I..IH
00c0	ee 0c e7 ed 86 5f f0 4f c7 18 e7 18 cf 8b 9f a7 14 fa 09 74 73 58 c0 e9 78 10 b7 f6 e3 81 ff 1e	....._.O...........tsX..x.......
00e0	e0 2c 0c 77 8b 83 0b bd d5 11 84 03 d0 0d 9c 40 fc 9e 09 f8 f9 04 d3 14 42 f8 0c 41 6e 69 f0 06	.,.w...........@........B..Ani..
0100	50 38 6f ad d6 5a 6a 0d 5f 1a d4 4b 91 62 a1 b5 02 74 53 2c e0 24 16 c4 ad bd 18 8c dd 03 9c 85	P8o..Zj._..K.b...tS,.$..........
0120	e1 6e b1 73 a1 b7 ba 85 b0 ef f4 77 28 f8 c0 09 e8 60 59 52 4a 73 4a 17 5f 00 0a 9d 8b 14 19 52	.n.s.......w(....`YRJsJ._......R
0140	07 28 0c bd e7 9c b7 9c 19 c4 b7 4d 8a 85 de 37 a0 9b d5 02 4e c7 83 b8 b5 6f 0f fc f7 00 67 61	.(.........M...7....N....o....ga
0160	b8 5b ac 5c e8 ad 6e 21 ad 2b fd 61 61 c6 a9 44 86 79 8e 51 de 03 41 88 f1 e2 7f 1d 29 23 55 3c	.[.\..n!.+.aa..D.y.Q..A.....)#U<
0180	39 23 41 00 00 00 00 49 45 4e 44 ae 42 60 82	9#A....IEND.B`.