diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-02-26 12:48:55 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-02-26 12:48:55 -0300 |
commit | 72d675aba78d59e22ebfadbe447f4f51ddab5a5c (patch) | |
tree | 2f43006cba58bcfc97f01ecdd6f00e35e92aa673 /ldo.c | |
parent | ba57f7d946bc0b600996f7a982b2fb644df76a98 (diff) | |
download | lua-72d675aba78d59e22ebfadbe447f4f51ddab5a5c.tar.gz lua-72d675aba78d59e22ebfadbe447f4f51ddab5a5c.tar.bz2 lua-72d675aba78d59e22ebfadbe447f4f51ddab5a5c.zip |
macros "growvector" and "reallocvector" more compact
Diffstat (limited to 'ldo.c')
-rw-r--r-- | ldo.c | 12 |
1 files changed, 5 insertions, 7 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 1.34 1999/02/22 14:17:24 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.35 1999/02/22 19:23:36 roberto Exp roberto $ |
3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -43,13 +43,12 @@ void luaD_init (void) { | |||
43 | } | 43 | } |
44 | 44 | ||
45 | 45 | ||
46 | void luaD_checkstack (int n) | 46 | void luaD_checkstack (int n) { |
47 | { | ||
48 | struct Stack *S = &L->stack; | 47 | struct Stack *S = &L->stack; |
49 | if (S->last-S->top <= n) { | 48 | if (S->last-S->top <= n) { |
50 | StkId top = S->top-S->stack; | 49 | StkId top = S->top-S->stack; |
51 | int stacksize = (S->last-S->stack)+1+STACK_UNIT+n; | 50 | int stacksize = (S->last-S->stack)+STACK_UNIT+n; |
52 | S->stack = luaM_reallocvector(S->stack, stacksize, TObject); | 51 | luaM_reallocvector(S->stack, stacksize, TObject); |
53 | S->last = S->stack+(stacksize-1); | 52 | S->last = S->stack+(stacksize-1); |
54 | S->top = S->stack + top; | 53 | S->top = S->stack + top; |
55 | if (stacksize >= STACK_LIMIT) { /* stack overflow? */ | 54 | if (stacksize >= STACK_LIMIT) { /* stack overflow? */ |
@@ -65,8 +64,7 @@ void luaD_checkstack (int n) | |||
65 | /* | 64 | /* |
66 | ** Adjust stack. Set top to the given value, pushing NILs if needed. | 65 | ** Adjust stack. Set top to the given value, pushing NILs if needed. |
67 | */ | 66 | */ |
68 | void luaD_adjusttop (StkId newtop) | 67 | void luaD_adjusttop (StkId newtop) { |
69 | { | ||
70 | int diff = newtop-(L->stack.top-L->stack.stack); | 68 | int diff = newtop-(L->stack.top-L->stack.stack); |
71 | if (diff <= 0) | 69 | if (diff <= 0) |
72 | L->stack.top += diff; | 70 | L->stack.top += diff; |