feature: implemented new extensions 'jit.crc32()' and 'jit.strhashcrc32()'.

Author: thibaultcha

src/lib_jit.c

@@ -15,6 +15,7 @@
 #include "lj_err.h"
 #include "lj_debug.h"
 #include "lj_str.h"
+#include "lj_str_hash.h"
 #include "lj_tab.h"
 #include "lj_state.h"
 #include "lj_bc.h"
@@ -156,6 +157,27 @@ LJLIB_CF(jit_prngstate)
   return 1;
 }
 
+LJLIB_CF(jit_crc32)
+{
+#if LJ_OR_STRHASHCRC32
+  setboolV(L->top++, lj_check_crc32_support());
+#else
+  setboolV(L->top++, 0);
+#endif
+  return 1;
+}
+
+LJLIB_CF(jit_strhashcrc32)
+{
+#if LJ_OR_STRHASHCRC32
+  global_State *g = G(L);
+  setboolV(L->top++, (g->strhashfn != lj_str_hash_orig) ? 1 : 0);
+#else
+  setboolV(L->top++, 0);
+#endif
+  return 1;
+}
+
 LJLIB_PUSH(top-5) LJLIB_SET(os)
 LJLIB_PUSH(top-4) LJLIB_SET(arch)
 LJLIB_PUSH(top-3) LJLIB_SET(version_num)

t/crc32.t

@@ -0,0 +1,39 @@
+# vim:set ts=4 sts=4 sw=4 et ft=:
+
+use lib '.';
+use t::TestLJ;
+
+plan tests => 3 * blocks();
+
+run_tests();
+
+__DATA__
+
+=== TEST 1: interpreted (sanity)
+flag.
+--- lua
+jit.off()
+
+jit.crc32()
+
+print("ok")
+--- out
+ok
+--- err
+
+
+
+=== TEST 2: JIT (sanity)
+--- lua
+jit.opt.start("minstitch=100000", "hotloop=2")
+
+for i = 1, 50 do
+    jit.crc32()
+end
+
+print("ok")
+--- out
+ok
+--- jv
+--- err eval
+qr/trace too short at jit\.crc32/

t/strhashcrc32.t

@@ -0,0 +1,42 @@
+# vim:set ts=4 sts=4 sw=4 et ft=:
+
+use lib '.';
+use t::TestLJ;
+
+plan tests => 3 * blocks();
+
+run_tests();
+
+__DATA__
+
+=== TEST 1: interpreted (sanity)
+--- lua
+jit.off()
+
+if jit.crc32() then
+    assert(jit.strhashcrc32() == true, "strhashcrc32 should be enabled")
+else
+    assert(jit.strhashcrc32() == false, "strhashcrc32 should be disabled")
+end
+
+print("ok")
+--- out
+ok
+--- err
+
+
+
+=== TEST 2: JIT (sanity)
+--- lua
+jit.opt.start("minstitch=100000", "hotloop=2")
+
+for i = 1, 50 do
+    jit.strhashcrc32()
+end
+
+print("ok")
+--- out
+ok
+--- jv
+--- err eval
+qr/trace too short at jit\.strhashcrc32/