diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-04-06 15:25:00 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-04-06 15:25:00 -0300 |
| commit | a68635a919c5541b6acf5c2e8da5f81c67b65a7a (patch) | |
| tree | e18acd4fc3fd6abdca5d3f8611e97015fd7bda0e /ldebug.c | |
| parent | 211214268065ec61180141d336e02393bc15bce4 (diff) | |
| download | lua-a68635a919c5541b6acf5c2e8da5f81c67b65a7a.tar.gz lua-a68635a919c5541b6acf5c2e8da5f81c67b65a7a.tar.bz2 lua-a68635a919c5541b6acf5c2e8da5f81c67b65a7a.zip | |
list constructors do not adjust last expression
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 1.74 2001/03/07 18:09:25 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.75 2001/03/26 14:31:49 roberto Exp roberto $ |
| 3 | ** Debug Interface | 3 | ** Debug Interface |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -419,13 +419,13 @@ static Instruction luaG_symbexec (lua_State *L, const Proto *pt, | |||
| 419 | break; | 419 | break; |
| 420 | } | 420 | } |
| 421 | case OP_SETLIST: { | 421 | case OP_SETLIST: { |
| 422 | pop = arg2; | 422 | check(arg2 >= 0); |
| 423 | check(top-pop >= 1); /* there must be a table below the list */ | 423 | pop = top-arg2-1; |
| 424 | break; | 424 | break; |
| 425 | } | 425 | } |
| 426 | case OP_SETMAP: { | 426 | case OP_SETMAP: { |
| 427 | pop = 2*arg1; | 427 | check(arg1 >= 0); |
| 428 | check(top-pop >= 1); | 428 | pop = top-arg1-1; |
| 429 | break; | 429 | break; |
| 430 | } | 430 | } |
| 431 | case OP_CONCAT: { | 431 | case OP_CONCAT: { |