Skip to content

Commit 5cfb7e6

Browse files
committed
Ignore intermediate ignored types in access offsets
1 parent beb5459 commit 5cfb7e6

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/domains/access.ml

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -195,7 +195,10 @@ let add_struct side (e:exp) (w:bool) (conf:int) (ty:acc_typ) (lv: (varinfo * off
195195
match unrollType ty with
196196
| TComp (ci,_) ->
197197
let one_field fld =
198-
List.map (fun x -> `Field (fld,x)) (dist_fields fld.ftype)
198+
if is_ignorable_type fld.ftype then
199+
[]
200+
else
201+
List.map (fun x -> `Field (fld,x)) (dist_fields fld.ftype)
199202
in
200203
List.concat_map one_field ci.cfields
201204
| TArray (t,_,_) ->

0 commit comments

Comments
 (0)