diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1996-03-14 12:54:20 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1996-03-14 12:54:20 -0300 |
commit | 1dc0e82aeb43d2265fcb6834430e8471729c77e2 (patch) | |
tree | 8bb9f7280481321955091c4e5f5986f90f72a683 | |
parent | c2eb02aaf6f0c852b5528a6d47d098af103a6258 (diff) | |
download | lua-1dc0e82aeb43d2265fcb6834430e8471729c77e2.tar.gz lua-1dc0e82aeb43d2265fcb6834430e8471729c77e2.tar.bz2 lua-1dc0e82aeb43d2265fcb6834430e8471729c77e2.zip |
"freefunc" now is public.
-rw-r--r-- | func.c | 4 | ||||
-rw-r--r-- | func.h | 4 |
2 files changed, 5 insertions, 3 deletions
@@ -43,7 +43,7 @@ void luaI_insertfunction (TFunc *f) | |||
43 | /* | 43 | /* |
44 | ** Free function | 44 | ** Free function |
45 | */ | 45 | */ |
46 | static void freefunc (TFunc *f) | 46 | void luaI_freefunc (TFunc *f) |
47 | { | 47 | { |
48 | luaI_free (f->code); | 48 | luaI_free (f->code); |
49 | luaI_free (f->locvars); | 49 | luaI_free (f->locvars); |
@@ -68,7 +68,7 @@ Long luaI_funccollector (void) | |||
68 | function_root = next; | 68 | function_root = next; |
69 | else | 69 | else |
70 | prev->next = next; | 70 | prev->next = next; |
71 | freefunc (curr); | 71 | luaI_freefunc (curr); |
72 | ++counter; | 72 | ++counter; |
73 | } | 73 | } |
74 | else | 74 | else |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: $ | 2 | ** $Id: func.h,v 1.7 1996/03/08 12:04:04 roberto Exp roberto $ |
3 | */ | 3 | */ |
4 | 4 | ||
5 | #ifndef func_h | 5 | #ifndef func_h |
@@ -7,6 +7,7 @@ | |||
7 | 7 | ||
8 | #include "types.h" | 8 | #include "types.h" |
9 | #include "lua.h" | 9 | #include "lua.h" |
10 | #include "tree.h" | ||
10 | 11 | ||
11 | typedef struct LocVar | 12 | typedef struct LocVar |
12 | { | 13 | { |
@@ -33,6 +34,7 @@ Long luaI_funccollector (void); | |||
33 | void luaI_insertfunction (TFunc *f); | 34 | void luaI_insertfunction (TFunc *f); |
34 | 35 | ||
35 | void luaI_initTFunc (TFunc *f); | 36 | void luaI_initTFunc (TFunc *f); |
37 | void luaI_freefunc (TFunc *f); | ||
36 | 38 | ||
37 | void luaI_registerlocalvar (TaggedString *varname, int line); | 39 | void luaI_registerlocalvar (TaggedString *varname, int line); |
38 | void luaI_unregisterlocalvar (int line); | 40 | void luaI_unregisterlocalvar (int line); |