lua

A copy of the Lua development repository
Log | Files | Refs | README

commit b82ff713e321f4b65b2dc41fc1fe97633f7b197d
parent 77113ee02f383848cd4877e2780c36ffb4405b84
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue,  9 Feb 1999 16:01:33 -0200

new name for opcode

Diffstat:
Mlopcodes.h | 6+++---
Mlparser.c | 4++--
Mlvm.c | 6+++---
3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lopcodes.h b/lopcodes.h @@ -1,5 +1,5 @@ /* -** $Id: lopcodes.h,v 1.23 1999/02/08 18:54:19 roberto Exp roberto $ +** $Id: lopcodes.h,v 1.24 1999/02/09 15:58:45 roberto Exp roberto $ ** Opcodes for Lua virtual machine ** See Copyright Notice in lua.h */ @@ -27,8 +27,8 @@ POPDUP,/* b v v TOP-=b */ PUSHNUMBERW,/* w - (float)w */ PUSHNUMBER,/* b - (float)b */ -PUSHNEGW,/* w - (float)-w */ -PUSHNEG,/* b - (float)-b */ +PUSHNUMBERNEGW,/* w - (float)-w */ +PUSHNUMBERNEG,/* b - (float)-b */ PUSHCONSTANTW,/*w - CNST[w] */ PUSHCONSTANT,/* b - CNST[b] */ diff --git a/lparser.c b/lparser.c @@ -1,5 +1,5 @@ /* -** $Id: lparser.c,v 1.18 1999/02/08 18:54:19 roberto Exp roberto $ +** $Id: lparser.c,v 1.19 1999/02/09 15:59:10 roberto Exp roberto $ ** LL(1) Parser and code generator for Lua ** See Copyright Notice in lua.h */ @@ -270,7 +270,7 @@ static void code_number (LexState *ls, real f) { real af = (f<0) ? -f : f; if (0 <= af && af <= (real)MAX_WORD && (int)af == af) { /* abs(f) has a short integer value */ - code_oparg(ls, (f<0) ? PUSHNEG : PUSHNUMBER, (int)af, 1); + code_oparg(ls, (f<0) ? PUSHNUMBERNEG : PUSHNUMBER, (int)af, 1); } else code_constant(ls, real_constant(ls->fs, f)); diff --git a/lvm.c b/lvm.c @@ -1,5 +1,5 @@ /* -** $Id: lvm.c,v 1.47 1999/02/08 18:54:19 roberto Exp roberto $ +** $Id: lvm.c,v 1.48 1999/02/09 15:58:45 roberto Exp roberto $ ** Lua virtual machine ** See Copyright Notice in lua.h */ @@ -359,8 +359,8 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base) { S->top++; break; - case PUSHNEGW: aux += highbyte(*pc++); - case PUSHNEG: aux += *pc++; + case PUSHNUMBERNEGW: aux += highbyte(*pc++); + case PUSHNUMBERNEG: aux += *pc++; ttype(S->top) = LUA_T_NUMBER; nvalue(S->top) = -aux; S->top++;