Explorar o código

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

Cauê Waneck %!s(int64=11) %!d(string=hai) anos
pai
achega
d35d8c438c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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