浏览代码

FFI: Show address pointed to for tostring(ref), too.

Mike Pall 13 年之前
父节点
当前提交
0e2f5be140
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      src/lib_ffi.c

+ 4 - 1
src/lib_ffi.c

@@ -284,7 +284,10 @@ LJLIB_CF(ffi_meta___tostring)
   } else {
     CTState *cts = ctype_cts(L);
     CType *ct = ctype_raw(cts, id);
-    if (ctype_isref(ct->info)) ct = ctype_rawchild(cts, ct);
+    if (ctype_isref(ct->info)) {
+      p = *(void **)p;
+      ct = ctype_rawchild(cts, ct);
+    }
     if (ctype_iscomplex(ct->info)) {
       setstrV(L, L->top-1, lj_ctype_repr_complex(L, cdataptr(cd), ct->size));
       goto checkgc;