瀏覽代碼

[cs] Call real_type for the underlying Pointer type as well

Cauê Waneck 11 年之前
父節點
當前提交
d35d8c438c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      gencommon.ml

+ 1 - 1
gencommon.ml

@@ -1350,7 +1350,7 @@ let field_access gen (t:t) (field:string) : (tfield_access) =
 	(* let pointers to values be accessed as the underlying values *)
 	let t = match gen.greal_type t with
 		| TAbstract({ a_path = ["cs"],"Pointer" },[t]) ->
-			t
+			gen.greal_type t
 		| _ -> t
 	in