Skip to content
Snippets Groups Projects
Commit 89ab73e9 authored by David Bühler's avatar David Bühler
Browse files

[Eva] Values_request: minor fix.

parent 6ce15612
No related branches found
No related tags found
No related merge requests found
...@@ -281,7 +281,7 @@ module Proxy(A : Analysis.S) : EvaProxy = struct ...@@ -281,7 +281,7 @@ module Proxy(A : Analysis.S) : EvaProxy = struct
let b = Base.of_varinfo vi in let b = Base.of_varinfo vi in
try try
match Cvalue.Model.find_base b state with match Cvalue.Model.find_base b state with
| `Bottom -> InvalidLoc | `Bottom -> Bottom
| `Value m -> Offsetmap m | `Value m -> Offsetmap m
| `Top -> Top | `Top -> Top
with Not_found -> InvalidLoc with Not_found -> InvalidLoc
...@@ -297,7 +297,7 @@ module Proxy(A : Analysis.S) : EvaProxy = struct ...@@ -297,7 +297,7 @@ module Proxy(A : Analysis.S) : EvaProxy = struct
try try
let size = Int_Base.project loc'.Locations.size in let size = Int_Base.project loc'.Locations.size in
match Cvalue.Model.copy_offsetmap loc'.Locations.loc size state with match Cvalue.Model.copy_offsetmap loc'.Locations.loc size state with
| `Bottom -> Bottom | `Bottom -> InvalidLoc
| `Value offsm -> Offsetmap offsm | `Value offsm -> Offsetmap offsm
with Abstract_interp.Error_Top -> Top with Abstract_interp.Error_Top -> Top
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment