diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-10 15:37:44 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-10 15:37:44 -0300 |
commit | 73aa465a8ed8dee6c6a27a6f8b2f51227b70789d (patch) | |
tree | 496a63ffffe0312f1d0b9882d97944fa38ed7801 /lobject.c | |
parent | 3d0577f4b98908be3f2d697ab75c5fbbd3f6999b (diff) | |
download | lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.gz lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.tar.bz2 lua-73aa465a8ed8dee6c6a27a6f8b2f51227b70789d.zip |
some name changes
Diffstat (limited to 'lobject.c')
-rw-r--r-- | lobject.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.c,v 1.31 2000/02/17 18:30:36 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 1.32 2000/03/03 14:58:26 roberto Exp roberto $ |
3 | ** Some generic functions over Lua objects | 3 | ** Some generic functions over Lua objects |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -20,7 +20,7 @@ const char *const luaO_typenames[] = { /* ORDER LUA_T */ | |||
20 | }; | 20 | }; |
21 | 21 | ||
22 | 22 | ||
23 | const TObject luaO_nilobject = {LUA_T_NIL, {NULL}}; | 23 | const TObject luaO_nilobject = {TAG_NIL, {NULL}}; |
24 | 24 | ||
25 | 25 | ||
26 | /* | 26 | /* |
@@ -35,19 +35,19 @@ unsigned long luaO_power2 (unsigned long n) { | |||
35 | 35 | ||
36 | int luaO_equalval (const TObject *t1, const TObject *t2) { | 36 | int luaO_equalval (const TObject *t1, const TObject *t2) { |
37 | switch (ttype(t1)) { | 37 | switch (ttype(t1)) { |
38 | case LUA_T_NIL: | 38 | case TAG_NIL: |
39 | return 1; | 39 | return 1; |
40 | case LUA_T_NUMBER: | 40 | case TAG_NUMBER: |
41 | return nvalue(t1) == nvalue(t2); | 41 | return nvalue(t1) == nvalue(t2); |
42 | case LUA_T_STRING: case LUA_T_USERDATA: | 42 | case TAG_STRING: case TAG_USERDATA: |
43 | return svalue(t1) == svalue(t2); | 43 | return svalue(t1) == svalue(t2); |
44 | case LUA_T_ARRAY: | 44 | case TAG_ARRAY: |
45 | return avalue(t1) == avalue(t2); | 45 | return avalue(t1) == avalue(t2); |
46 | case LUA_T_LPROTO: | 46 | case TAG_LPROTO: |
47 | return tfvalue(t1) == tfvalue(t2); | 47 | return tfvalue(t1) == tfvalue(t2); |
48 | case LUA_T_CPROTO: | 48 | case TAG_CPROTO: |
49 | return fvalue(t1) == fvalue(t2); | 49 | return fvalue(t1) == fvalue(t2); |
50 | case LUA_T_CCLOSURE: case LUA_T_LCLOSURE: | 50 | case TAG_CCLOSURE: case TAG_LCLOSURE: |
51 | return t1->value.cl == t2->value.cl; | 51 | return t1->value.cl == t2->value.cl; |
52 | default: | 52 | default: |
53 | LUA_INTERNALERROR(L, "invalid type"); | 53 | LUA_INTERNALERROR(L, "invalid type"); |
@@ -67,7 +67,7 @@ static double expten (unsigned int e) { | |||
67 | } | 67 | } |
68 | 68 | ||
69 | 69 | ||
70 | int luaO_str2d (const char *s, real *result) { /* LUA_NUMBER */ | 70 | int luaO_str2d (const char *s, Number *result) { /* LUA_NUMBER */ |
71 | double a = 0.0; | 71 | double a = 0.0; |
72 | int point = 0; /* number of decimal digits */ | 72 | int point = 0; /* number of decimal digits */ |
73 | int sig; | 73 | int sig; |