Prevent compile of __concat with tailcall to fast function.

E.g. __concat = function() return setmetatable(...) end
Reported by Fezile Manana.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/lj_record.c b/src/lj_record.c
index 3ca2fb4f..86f17abc 100644
--- a/src/lj_record.c
+++ b/src/lj_record.c
@@ -919,6 +919,9 @@ void lj_record_ret(jit_State *J, BCReg rbase, ptrdiff_t gotresults)
       TRef tr = gotresults ? J->base[cbase+rbase] : TREF_NIL;
       if (bslot != J->maxslot) {  /* Concatenate the remainder. */
         TValue *b = J->L->base, save;  /* Simulate lower frame and result. */
+        /* Can't handle MM_concat + CALLT + fast func side-effects. */
+        if (J->postproc != LJ_POST_NONE)
+          lj_trace_err(J, LJ_TRERR_NYIRETL);
         J->base[J->maxslot] = tr;
         copyTV(J->L, &save, b-(2<<LJ_FR2));
         if (gotresults)