Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
F
frama-c
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Deploy
Releases
Container Registry
Model registry
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
pub
frama-c
Commits
7afe0cc2
Commit
7afe0cc2
authored
1 year ago
by
David Bühler
Browse files
Options
Downloads
Patches
Plain Diff
[Eva] Removes unused module [Bool] from Abstract_interp.
parent
8467dbcb
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
src/kernel_services/abstract_interp/abstract_interp.ml
+0
-95
0 additions, 95 deletions
src/kernel_services/abstract_interp/abstract_interp.ml
src/kernel_services/abstract_interp/abstract_interp.mli
+0
-5
0 additions, 5 deletions
src/kernel_services/abstract_interp/abstract_interp.mli
with
0 additions
and
100 deletions
src/kernel_services/abstract_interp/abstract_interp.ml
+
0
−
95
View file @
7afe0cc2
...
...
@@ -306,101 +306,6 @@ module Rel = struct
let
sub_abs
=
sub
end
module
Bool
=
struct
type
t
=
Top
|
True
|
False
|
Bottom
let
hash
(
b
:
t
)
=
Hashtbl
.
hash
b
let
equal
(
b1
:
t
)
(
b2
:
t
)
=
b1
=
b2
let
compare
(
b1
:
t
)
(
b2
:
t
)
=
Stdlib
.
compare
b1
b2
let
pretty
fmt
=
function
|
Top
->
Format
.
fprintf
fmt
"Top"
|
True
->
Format
.
fprintf
fmt
"True"
|
False
->
Format
.
fprintf
fmt
"False"
|
Bottom
->
Format
.
fprintf
fmt
"Bottom"
let
is_included
t1
t2
=
match
t1
,
t2
with
|
Bottom
,
_
|
_
,
Top
|
True
,
True
|
False
,
False
->
true
|
_
->
false
let
bottom
=
Bottom
let
top
=
Top
let
join
b1
b2
=
match
b1
,
b2
with
|
Top
,
_
|
_
,
Top
|
True
,
False
->
Top
|
True
,
_
|
_
,
True
->
True
|
False
,
_
|
_
,
False
->
False
|
Bottom
,
Bottom
->
Bottom
let
narrow
b1
b2
=
match
b1
,
b2
with
|
Bottom
,
_
|
_
,
Bottom
|
True
,
False
->
Bottom
|
True
,
_
|
_
,
True
->
True
|
False
,
_
|
_
,
False
->
False
|
Top
,
Top
->
Top
let
link
=
join
let
meet
=
narrow
type
widen_hint
=
unit
let
widen
()
=
join
let
cardinal_zero_or_one
b
=
not
(
equal
b
top
)
let
intersects
b1
b2
=
match
b1
,
b2
with
|
Bottom
,
_
|
_
,
Bottom
->
false
|
_
,
Top
|
Top
,
_
->
true
|
False
,
False
|
True
,
True
->
true
|
False
,
True
|
True
,
False
->
false
let
diff
b1
b2
=
match
b1
,
b2
with
|
b1
,
Bottom
->
b1
|
_
,
Top
->
Bottom
|
Bottom
,
_
->
Bottom
|
Top
,
True
->
False
|
Top
,
False
->
True
|
True
,
True
->
Bottom
|
True
,
False
->
True
|
False
,
True
->
False
|
False
,
False
->
Bottom
let
diff_if_one
b1
b2
=
match
b1
,
b2
with
|
b1
,
Top
->
b1
|
_
,
_
->
diff
b1
b2
let
fold_enum
f
b
init
=
let
elements
=
match
b
with
|
Top
->
[
True
;
False
]
|
True
->
[
True
]
|
False
->
[
False
]
|
Bottom
->
[]
in
List
.
fold_right
(
fun
b
acc
->
f
b
acc
)
elements
init
let
cardinal
=
function
|
Top
->
2
|
True
|
False
->
1
|
Bottom
->
0
let
cardinal_less_than
b
i
=
let
c
=
cardinal
b
in
if
c
>
i
then
raise
Not_less_than
else
c
type
blt
=
t
include
(
Datatype
.
Make_with_collections
(
struct
type
t
=
blt
let
name
=
"Bool_lattice"
let
structural_descr
=
Structural_descr
.
t_abstract
let
reprs
=
[
Top
;
True
;
False
;
Bottom
]
let
equal
=
equal
let
compare
=
compare
let
hash
=
hash
let
rehash
=
Datatype
.
identity
let
copy
=
Datatype
.
identity
let
pretty
=
pretty
let
mem_project
=
Datatype
.
never_any_project
end
)
:
Datatype
.
S
with
type
t
:=
t
)
end
(*
Local Variables:
compile-command: "make -C ../../.."
...
...
This diff is collapsed.
Click to expand it.
src/kernel_services/abstract_interp/abstract_interp.mli
+
0
−
5
View file @
7afe0cc2
...
...
@@ -92,11 +92,6 @@ module Rel : sig
val
check
:
rem
:
t
->
modu
:
Int
.
t
->
bool
end
module
Bool
:
sig
type
t
=
Top
|
True
|
False
|
Bottom
include
Full_AI_Lattice_with_cardinality
with
type
t
:=
t
end
module
Make_Lattice_Set
(
V
:
Datatype
.
S
)
(
Set
:
Lattice_type
.
Hptset
with
type
elt
=
V
.
t
)
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment