diff options
| author | Mike Pall <mike> | 2013-11-25 15:18:31 +0100 |
|---|---|---|
| committer | Mike Pall <mike> | 2013-11-25 15:19:17 +0100 |
| commit | 4593fb5e29adc09cd53beaba8777f5656434c08d (patch) | |
| tree | 104b63db5384ad540451645294879e2cdc91ad28 /src/lj_ffrecord.c | |
| parent | c378f7dbb882068d1ae06edc8e7049fb1907db2d (diff) | |
| download | luajit-4593fb5e29adc09cd53beaba8777f5656434c08d.tar.gz luajit-4593fb5e29adc09cd53beaba8777f5656434c08d.tar.bz2 luajit-4593fb5e29adc09cd53beaba8777f5656434c08d.zip | |
Add table.clear().
Diffstat (limited to 'src/lj_ffrecord.c')
| -rw-r--r-- | src/lj_ffrecord.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/lj_ffrecord.c b/src/lj_ffrecord.c index de74a3ec..69614d92 100644 --- a/src/lj_ffrecord.c +++ b/src/lj_ffrecord.c | |||
| @@ -1024,6 +1024,16 @@ static void LJ_FASTCALL recff_table_new(jit_State *J, RecordFFData *rd) | |||
| 1024 | UNUSED(rd); | 1024 | UNUSED(rd); |
| 1025 | } | 1025 | } |
| 1026 | 1026 | ||
| 1027 | static void LJ_FASTCALL recff_table_clear(jit_State *J, RecordFFData *rd) | ||
| 1028 | { | ||
| 1029 | TRef tr = J->base[0]; | ||
| 1030 | if (tref_istab(tr)) { | ||
| 1031 | rd->nres = 0; | ||
| 1032 | lj_ir_call(J, IRCALL_lj_tab_clear, tr); | ||
| 1033 | J->needsnap = 1; | ||
| 1034 | } /* else: Interpreter will throw. */ | ||
| 1035 | } | ||
| 1036 | |||
| 1027 | /* -- I/O library fast functions ------------------------------------------ */ | 1037 | /* -- I/O library fast functions ------------------------------------------ */ |
| 1028 | 1038 | ||
| 1029 | /* Get FILE* for I/O function. Any I/O error aborts recording, so there's | 1039 | /* Get FILE* for I/O function. Any I/O error aborts recording, so there's |