lj_auditlog.c: Log VM definition information

Currently logs the array 'lj_ir_mode' that defines the operand modes
for each IR instruction.

src/lj_auditlog.c

@@ -42,17 +42,8 @@ static void bin_32(void *ptr, int n) {
 
 /* -- low-level object logging API ---------------------------------------- */
 
-/* Ensure that the log file is open. */
-static void ensure_log_open() {
- if (!fp) {
- fp = fopen("audit.log", "w");
- lua_assert(fp != NULL);
- }
-}
-
 /* Log a snapshot of an object in memory. */
 static void log_mem(const char *type, void *ptr, unsigned int size) {
- ensure_log_open();
  fixmap(4);
  str_16("type"); /* = */ str_16("memory");
  str_16("hint"); /* = */ str_16(type);
@@ -68,11 +59,27 @@ static void log_event(const char *type, int nattributes) {
  /* Caller fills in the further nattributes... */
 }
 
+/* Log objects that define the virtual machine. */
+void lj_auditlog_vm_definitions()
+{
+ log_mem("lj_ir_mode", &lj_ir_mode, sizeof(lj_ir_mode));
+}
+
+/* Ensure that the log file is open. */
+static void ensure_log_open() {
+ if (!fp) {
+ fp = fopen("audit.log", "w");
+ lua_assert(fp != NULL);
+ lj_auditlog_vm_definitions();
+ }
+}
+
 /* -- high-level LuaJIT object logging ------------------------------------ */
 
 /* Log a trace that has just been compiled. */
 void lj_auditlog_trace_stop(jit_State *J, GCtrace *T)
 {
+ ensure_log_open();
  log_mem("GCtrace", T, sizeof(*T));
  log_mem("MCode[]", T->mcode, T->szmcode);
  log_mem("SnapShot[]", T->snap, T->nsnap * sizeof(*T->snap));
@@ -83,6 +90,7 @@ void lj_auditlog_trace_stop(jit_State *J, GCtrace *T)
 }
 
 void lj_auditlog_trace_abort(jit_State *J, TraceError e) {
+ ensure_log_open();
  log_mem("jit_State", J, sizeof(*J));
  log_event("trace_abort", 2);
  str_16("jit_State"); /* = */ uint_64((uint64_t)J);