ソースを参照

[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