new name for opcode

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] */

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));

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++;