diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-02-22 15:59:59 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-02-22 15:59:59 -0300 |
commit | 5f37134e64aec3a0414a41c11d6b055c667369d1 (patch) | |
tree | 29415835aca3bc8bfe31c9e4c03d894ac6bcef09 /lvm.c | |
parent | 52ee91dd73199e068d31d3ac138d933ddd4fb9b1 (diff) | |
download | lua-5f37134e64aec3a0414a41c11d6b055c667369d1.tar.gz lua-5f37134e64aec3a0414a41c11d6b055c667369d1.tar.bz2 lua-5f37134e64aec3a0414a41c11d6b055c667369d1.zip |
avoid '...' and "..." inside comments
Diffstat (limited to 'lvm.c')
-rw-r--r-- | lvm.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 1.169 2001/02/12 13:04:19 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.170 2001/02/20 18:15:33 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -237,13 +237,13 @@ static int luaV_strlessthan (const TString *ls, const TString *rs) { | |||
237 | for (;;) { | 237 | for (;;) { |
238 | int temp = strcoll(l, r); | 238 | int temp = strcoll(l, r); |
239 | if (temp != 0) return (temp < 0); | 239 | if (temp != 0) return (temp < 0); |
240 | else { /* strings are equal up to a '\0' */ | 240 | else { /* strings are equal up to a `\0' */ |
241 | size_t len = strlen(l); /* index of first '\0' in both strings */ | 241 | size_t len = strlen(l); /* index of first `\0' in both strings */ |
242 | if (len == lr) /* r is finished? */ | 242 | if (len == lr) /* r is finished? */ |
243 | return 0; /* l is equal or greater than r */ | 243 | return 0; /* l is equal or greater than r */ |
244 | else if (len == ll) /* l is finished? */ | 244 | else if (len == ll) /* l is finished? */ |
245 | return 1; /* l is smaller than r (because r is not finished) */ | 245 | return 1; /* l is smaller than r (because r is not finished) */ |
246 | /* both strings longer than `len'; go on comparing (after the '\0') */ | 246 | /* both strings longer than `len'; go on comparing (after the `\0') */ |
247 | len++; | 247 | len++; |
248 | l += len; ll -= len; r += len; lr -= len; | 248 | l += len; ll -= len; r += len; lr -= len; |
249 | } | 249 | } |
@@ -600,7 +600,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
600 | luaD_error(L, "`for' limit must be a number"); | 600 | luaD_error(L, "`for' limit must be a number"); |
601 | if (tonumber(top-3)) | 601 | if (tonumber(top-3)) |
602 | luaD_error(L, "`for' initial value must be a number"); | 602 | luaD_error(L, "`for' initial value must be a number"); |
603 | pc += -jmp; /* "jump" to loop end (delta is negated here) */ | 603 | pc += -jmp; /* `jump' to loop end (delta is negated here) */ |
604 | goto forloop; /* do not increment index */ | 604 | goto forloop; /* do not increment index */ |
605 | } | 605 | } |
606 | case OP_FORLOOP: { | 606 | case OP_FORLOOP: { |
@@ -626,7 +626,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
626 | setnvalue(top-3, -1); /* initial index */ | 626 | setnvalue(top-3, -1); /* initial index */ |
627 | setnilvalue(top-2); | 627 | setnilvalue(top-2); |
628 | setnilvalue(top-1); | 628 | setnilvalue(top-1); |
629 | pc += -jmp; /* "jump" to loop end (delta is negated here) */ | 629 | pc += -jmp; /* `jump' to loop end (delta is negated here) */ |
630 | /* go through */ | 630 | /* go through */ |
631 | } | 631 | } |
632 | case OP_LFORLOOP: { | 632 | case OP_LFORLOOP: { |