|
@@ -1,5 +1,5 @@
|
|
/*
|
|
/*
|
|
-** $Id: lvm.c,v 1.21 1997/12/30 19:08:23 roberto Exp roberto $
|
|
|
|
|
|
+** $Id: lvm.c,v 1.22 1998/01/12 13:35:37 roberto Exp roberto $
|
|
** Lua virtual machine
|
|
** Lua virtual machine
|
|
** See Copyright Notice in lua.h
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
*/
|
|
@@ -22,6 +22,11 @@
|
|
#include "lvm.h"
|
|
#include "lvm.h"
|
|
|
|
|
|
|
|
|
|
|
|
+#ifdef OLD_ANSI
|
|
|
|
+#define strcoll(a,b) strcmp(a,b)
|
|
|
|
+#endif
|
|
|
|
+
|
|
|
|
+
|
|
#define skip_word(pc) (pc+=2)
|
|
#define skip_word(pc) (pc+=2)
|
|
#define get_word(pc) (*(pc)+(*((pc)+1)<<8))
|
|
#define get_word(pc) (*(pc)+(*((pc)+1)<<8))
|
|
#define next_word(pc) (pc+=2, get_word(pc-2))
|
|
#define next_word(pc) (pc+=2, get_word(pc-2))
|