Переглянути джерело

[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