** If expression is a constant, fills 'v' with its value ** and returns 1. Otherwise, returns 0. */
| 81 | ** and returns 1. Otherwise, returns 0. |
| 82 | */ |
| 83 | int luaK_exp2const (FuncState *fs, const expdesc *e, TValue *v) { |
| 84 | if (hasjumps(e)) |
| 85 | return 0; /* not a constant */ |
| 86 | switch (e->k) { |
| 87 | case VFALSE: |
| 88 | setbfvalue(v); |
| 89 | return 1; |
| 90 | case VTRUE: |
| 91 | setbtvalue(v); |
| 92 | return 1; |
| 93 | case VNIL: |
| 94 | setnilvalue(v); |
| 95 | return 1; |
| 96 | case VKSTR: { |
| 97 | setsvalue(fs->ls->L, v, e->u.strval); |
| 98 | return 1; |
| 99 | } |
| 100 | case VCONST: { |
| 101 | setobj(fs->ls->L, v, const2val(fs, e)); |
| 102 | return 1; |
| 103 | } |
| 104 | default: return tonumeral(e, v); |
| 105 | } |
| 106 | } |
| 107 | |
| 108 | |
| 109 | /* |