diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-04-10 14:39:41 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-04-10 14:39:41 -0300 |
commit | 762c7370376dbd13cd8aeb4d8c8da0bb153269c3 (patch) | |
tree | 6170a2d6bc5d2a7cd4f15cf180dd17d89bf36554 /lundump.c | |
parent | de57dc2653ff9efcdfd1ddc5f21aaaa159e5f79a (diff) | |
download | lua-762c7370376dbd13cd8aeb4d8c8da0bb153269c3.tar.gz lua-762c7370376dbd13cd8aeb4d8c8da0bb153269c3.tar.bz2 lua-762c7370376dbd13cd8aeb4d8c8da0bb153269c3.zip |
last changes by lhfv5.0
Diffstat (limited to 'lundump.c')
-rw-r--r-- | lundump.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lundump.c,v 1.59 2003/01/27 15:52:57 roberto Exp roberto $ | 2 | ** $Id: lundump.c,v 1.49 2003/04/07 20:34:20 lhf Exp $ |
3 | ** load pre-compiled Lua chunks | 3 | ** load pre-compiled Lua chunks |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -104,7 +104,7 @@ static TString* LoadString (LoadState* S) | |||
104 | { | 104 | { |
105 | char* s=luaZ_openspace(S->L,S->b,size); | 105 | char* s=luaZ_openspace(S->L,S->b,size); |
106 | ezread(S,s,size); | 106 | ezread(S,s,size); |
107 | return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ | 107 | return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ |
108 | } | 108 | } |
109 | } | 109 | } |
110 | 110 | ||
@@ -146,7 +146,7 @@ static void LoadUpvalues (LoadState* S, Proto* f) | |||
146 | luaG_runerror(S->L,"bad nupvalues in %s: read %d; expected %d", | 146 | luaG_runerror(S->L,"bad nupvalues in %s: read %d; expected %d", |
147 | S->name,n,f->nups); | 147 | S->name,n,f->nups); |
148 | f->upvalues=luaM_newvector(S->L,n,TString*); | 148 | f->upvalues=luaM_newvector(S->L,n,TString*); |
149 | f->sizeupvalues = n; | 149 | f->sizeupvalues=n; |
150 | for (i=0; i<n; i++) f->upvalues[i]=LoadString(S); | 150 | for (i=0; i<n; i++) f->upvalues[i]=LoadString(S); |
151 | } | 151 | } |
152 | 152 | ||
@@ -226,14 +226,14 @@ static void TestSize (LoadState* S, int s, const char* what) | |||
226 | static void LoadHeader (LoadState* S) | 226 | static void LoadHeader (LoadState* S) |
227 | { | 227 | { |
228 | int version; | 228 | int version; |
229 | lua_Number x=0,tx=TEST_NUMBER; | 229 | lua_Number x,tx=TEST_NUMBER; |
230 | LoadSignature(S); | 230 | LoadSignature(S); |
231 | version=LoadByte(S); | 231 | version=LoadByte(S); |
232 | if (version>VERSION) | 232 | if (version>VERSION) |
233 | luaG_runerror(S->L,"%s too new: " | 233 | luaG_runerror(S->L,"%s too new: " |
234 | "read version %d.%d; expected at most %d.%d", | 234 | "read version %d.%d; expected at most %d.%d", |
235 | S->name,V(version),V(VERSION)); | 235 | S->name,V(version),V(VERSION)); |
236 | if (version<VERSION0) /* check last major change */ | 236 | if (version<VERSION0) /* check last major change */ |
237 | luaG_runerror(S->L,"%s too old: " | 237 | luaG_runerror(S->L,"%s too old: " |
238 | "read version %d.%d; expected at least %d.%d", | 238 | "read version %d.%d; expected at least %d.%d", |
239 | S->name,V(version),V(VERSION0)); | 239 | S->name,V(version),V(VERSION0)); |