pghs975uc
/
infer_clone
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[sledge] Convert intrinsic functions to instructions

Browse Source 
Reviewed By: jvillard

Differential Revision: D25146158

fbshipit-source-id: f8707a734
master
Josh Berdine 4 years ago committed by Facebook GitHub Bot
parent 1fddf1a5d0
commit 87ee0df07d
4 changed files with 88 additions and 93 deletions
Show Stats Download Patch File Download Diff File

21
sledge/cli/domain_itv.ml
Unescape View File

@ -205,26 +205,7 @@ let exec_intrinsic ~skip_throw:_ aret i _ pre =
let name = Llair.Function.name i in let name = Llair.Function.name i in
if if
List.exists List.exists
[ "malloc" ["__cxa_allocate_exception"; "_ZN5folly13usingJEMallocEv"]
; "aligned_alloc"
; "calloc"
; "posix_memalign"
; "realloc"
; "mallocx"
; "rallocx"
; "xallocx"
; "sallocx"
; "dallocx"
; "sdallocx"
; "nallocx"
; "malloc_usable_size"
; "mallctl"
; "mallctlnametomib"
; "mallctlbymib"
; "malloc_stats_print"
; "strlen"
; "__cxa_allocate_exception"
; "_ZN5folly13usingJEMallocEv" ]
~f:(String.equal name) ~f:(String.equal name)
then then
let+ aret = aret in let+ aret = aret in

21
sledge/src/domain_used_globals.ml
Unescape View File

@ -49,26 +49,7 @@ let exec_intrinsic ~skip_throw:_ _ intrinsic actuals st =
let name = Llair.Function.name intrinsic in let name = Llair.Function.name intrinsic in
if if
List.exists List.exists
[ "malloc" ["__cxa_allocate_exception"; "_ZN5folly13usingJEMallocEv"]
; "aligned_alloc"
; "calloc"
; "posix_memalign"
; "realloc"
; "mallocx"
; "rallocx"
; "xallocx"
; "sallocx"
; "dallocx"
; "sdallocx"
; "nallocx"
; "malloc_usable_size"
; "mallctl"
; "mallctlnametomib"
; "mallctlbymib"
; "malloc_stats_print"
; "strlen"
; "__cxa_allocate_exception"
; "_ZN5folly13usingJEMallocEv" ]
~f:(String.equal name) ~f:(String.equal name)
then IArray.fold ~f:used_globals actuals st |> fun res -> Some (Some res) then IArray.fold ~f:used_globals actuals st |> fun res -> Some (Some res)
else None else None

111
sledge/src/exec.ml
Unescape View File

@ -737,99 +737,106 @@ let free pre ~ptr = exec_spec pre (free_spec ptr)
let nondet pre = function Some reg -> kill pre reg | None -> pre let nondet pre = function Some reg -> kill pre reg | None -> pre
let abort _ = None let abort _ = None
let intrinsic ~skip_throw:_ : let intrinsic ~skip_throw :
Sh.t Sh.t
-> Var.t option -> Var.t option
-> Llair.Intrinsic.t -> Llair.Intrinsic.t
-> Term.t iarray -> Term.t iarray
-> Sh.t option = -> Sh.t option =
fun pre _areturn intrinsic _actuals ->
match intrinsic with `nop -> Some pre
let intrinsic_func ~skip_throw :
Sh.t -> Var.t option -> string -> Term.t iarray -> Sh.t option option =
fun pre areturn intrinsic actuals -> fun pre areturn intrinsic actuals ->
let name = match (areturn, intrinsic, IArray.to_array actuals) with
match String.index intrinsic '.' with
| None -> intrinsic
| Some i -> String.take i intrinsic
in
let skip pre = Some (Some pre) in
( match (areturn, name, IArray.to_array actuals) with
(* (*
* cstdlib - memory management * cstdlib - memory management
*) *)
(* void* malloc(size_t size) *) (* void* malloc(size_t size) *)
| Some reg, "malloc", [|size|] | Some reg, `malloc, [|size|]
(* void* aligned_alloc(size_t alignment, size_t size) *) (* void* aligned_alloc(size_t alignment, size_t size) *)
|Some reg, "aligned_alloc", [|_; size|] -> |Some reg, `aligned_alloc, [|_; size|] ->
Some (exec_spec pre (malloc_spec reg size)) exec_spec pre (malloc_spec reg size)
(* void* calloc(size_t number, size_t size) *) (* void* calloc(size_t number, size_t size) *)
| Some reg, "calloc", [|number; size|] -> | Some reg, `calloc, [|number; size|] ->
Some (exec_spec pre (calloc_spec reg number size)) exec_spec pre (calloc_spec reg number size)
(* int posix_memalign(void** ptr, size_t alignment, size_t size) *) (* int posix_memalign(void** ptr, size_t alignment, size_t size) *)
| Some reg, "posix_memalign", [|ptr; _; size|] -> | Some reg, `posix_memalign, [|ptr; _; size|] ->
Some (exec_spec pre (posix_memalign_spec reg ptr size)) exec_spec pre (posix_memalign_spec reg ptr size)
(* void* realloc(void* ptr, size_t size) *) (* void* realloc(void* ptr, size_t size) *)
| Some reg, "realloc", [|ptr; size|] -> | Some reg, `realloc, [|ptr; size|] ->
Some (exec_spec pre (realloc_spec reg ptr size)) exec_spec pre (realloc_spec reg ptr size)
(* (*
* jemalloc - non-standard API * jemalloc - non-standard API
*) *)
(* void* mallocx(size_t size, int flags) *) (* void* mallocx(size_t size, int flags) *)
| Some reg, "mallocx", [|size; _|] -> | Some reg, `mallocx, [|size; _|] -> exec_spec pre (mallocx_spec reg size)
Some (exec_spec pre (mallocx_spec reg size))
(* void* rallocx(void* ptr, size_t size, int flags) *) (* void* rallocx(void* ptr, size_t size, int flags) *)
| Some reg, "rallocx", [|ptr; size; _|] -> | Some reg, `rallocx, [|ptr; size; _|] ->
Some (exec_spec pre (rallocx_spec reg ptr size)) exec_spec pre (rallocx_spec reg ptr size)
(* size_t xallocx(void* ptr, size_t size, size_t extra, int flags) *) (* size_t xallocx(void* ptr, size_t size, size_t extra, int flags) *)
| Some reg, "xallocx", [|ptr; size; extra; _|] -> | Some reg, `xallocx, [|ptr; size; extra; _|] ->
Some (exec_spec pre (xallocx_spec reg ptr size extra)) exec_spec pre (xallocx_spec reg ptr size extra)
(* size_t sallocx(void* ptr, int flags) *) (* size_t sallocx(void* ptr, int flags) *)
| Some reg, "sallocx", [|ptr; _|] -> | Some reg, `sallocx, [|ptr; _|] -> exec_spec pre (sallocx_spec reg ptr)
Some (exec_spec pre (sallocx_spec reg ptr))
(* void dallocx(void* ptr, int flags) *) (* void dallocx(void* ptr, int flags) *)
| None, "dallocx", [|ptr; _|] | None, `dallocx, [|ptr; _|]
(* void sdallocx(void* ptr, size_t size, int flags) *) (* void sdallocx(void* ptr, size_t size, int flags) *)
|None, "sdallocx", [|ptr; _; _|] -> |None, `sdallocx, [|ptr; _; _|] ->
Some (exec_spec pre (dallocx_spec ptr)) exec_spec pre (dallocx_spec ptr)
(* size_t nallocx(size_t size, int flags) *) (* size_t nallocx(size_t size, int flags) *)
| Some reg, "nallocx", [|size; _|] -> | Some reg, `nallocx, [|size; _|] -> exec_spec pre (nallocx_spec reg size)
Some (exec_spec pre (nallocx_spec reg size))
(* size_t malloc_usable_size(void* ptr) *) (* size_t malloc_usable_size(void* ptr) *)
| Some reg, "malloc_usable_size", [|ptr|] -> | Some reg, `malloc_usable_size, [|ptr|] ->
Some (exec_spec pre (malloc_usable_size_spec reg ptr)) exec_spec pre (malloc_usable_size_spec reg ptr)
(* int mallctl(const char* name, void* oldp, size_t* oldlenp, void* newp, (* int mallctl(const char* name, void* oldp, size_t* oldlenp, void* newp,
size_t newlen) *) size_t newlen) *)
| Some _, "mallctl", [|_; oldp; oldlenp; newp; newlen|] -> | Some _, `mallctl, [|_; oldp; oldlenp; newp; newlen|] ->
Some (exec_specs pre (mallctl_specs oldp oldlenp newp newlen)) exec_specs pre (mallctl_specs oldp oldlenp newp newlen)
(* int mallctlnametomib(const char* name, size_t* mibp, size_t* miblenp) *) (* int mallctlnametomib(const char* name, size_t* mibp, size_t* miblenp) *)
| Some _, "mallctlnametomib", [|_; mibp; miblenp|] -> | Some _, `mallctlnametomib, [|_; mibp; miblenp|] ->
Some (exec_spec pre (mallctlnametomib_spec mibp miblenp)) exec_spec pre (mallctlnametomib_spec mibp miblenp)
(* int mallctlbymib(const size_t* mib, size_t miblen, void* oldp, size_t* (* int mallctlbymib(const size_t* mib, size_t miblen, void* oldp, size_t*
oldlenp, void* newp, size_t newlen); *) oldlenp, void* newp, size_t newlen); *)
| Some _, "mallctlbymib", [|mib; miblen; oldp; oldlenp; newp; newlen|] -> | Some _, `mallctlbymib, [|mib; miblen; oldp; oldlenp; newp; newlen|] ->
Some exec_specs pre
(exec_specs pre (mallctlbymib_specs mib miblen oldp oldlenp newp newlen)
(mallctlbymib_specs mib miblen oldp oldlenp newp newlen)) | _, `malloc_stats_print, _ -> Some pre
| _, "malloc_stats_print", _ -> skip pre
(* (*
* cstring * cstring
*) *)
(* size_t strlen (const char* ptr) *) (* size_t strlen (const char* ptr) *)
| Some reg, "strlen", [|ptr|] -> | Some reg, `strlen, [|ptr|] -> exec_spec pre (strlen_spec reg ptr)
Some (exec_spec pre (strlen_spec reg ptr))
(* (*
* cxxabi * cxxabi
*) *)
| Some _, "__cxa_allocate_exception", [|_|] when skip_throw -> | Some _, `__cxa_allocate_exception, [|_|] when skip_throw ->
skip (Sh.false_ pre.us) Some (Sh.false_ pre.us)
(* (*
* folly * folly
*) *)
(* bool folly::usingJEMalloc() *) (* bool folly::usingJEMalloc() *)
| Some _, "_ZN5folly13usingJEMallocEv", [||] -> skip pre | Some _, `_ZN5folly13usingJEMallocEv, [||] -> Some pre
| _ -> None ) (*
* signature mismatch
*)
| ( _
, ( `malloc | `aligned_alloc | `calloc | `posix_memalign | `realloc
| `mallocx | `rallocx | `xallocx | `sallocx | `dallocx | `sdallocx
| `nallocx | `malloc_usable_size | `mallctl | `mallctlnametomib
| `mallctlbymib | `strlen | `__cxa_allocate_exception
| `_ZN5folly13usingJEMallocEv )
, _ ) ->
fail "%aintrinsic %a%a;"
(Option.pp "%a := " Var.pp)
areturn Llair.Intrinsic.pp intrinsic (IArray.pp "@ " Term.pp)
actuals ()
let intrinsic_func ~skip_throw:_ :
Sh.t -> Var.t option -> string -> Term.t iarray -> Sh.t option option =
fun pre areturn intrinsic actuals ->
let name =
match String.index intrinsic '.' with
| None -> intrinsic
| Some i -> String.take i intrinsic
in
(match (areturn, name, IArray.to_array actuals) with _ -> None)
$> function $> function
| None -> () | None -> ()
| Some _ -> | Some _ ->

28
sledge/src/llair/intrinsics.ml
Unescape View File

@ -7,4 +7,30 @@
(** Intrinsic instruction opcodes *) (** Intrinsic instruction opcodes *)
type t = [`nop] [@@deriving compare, equal, hash, sexp, enumerate, variants] type t =
[ (* cstdlib - memory management *)
`malloc
| `aligned_alloc
| `calloc
| `posix_memalign
| `realloc
| (* jemalloc - non-standard API *)
`mallocx
| `rallocx
| `xallocx
| `sallocx
| `dallocx
| `sdallocx
| `nallocx
| `malloc_usable_size
| `mallctl
| `mallctlnametomib
| `mallctlbymib
| `malloc_stats_print
| (* cstring *)
`strlen
| (* cxxabi *)
`__cxa_allocate_exception
| (* folly *)
`_ZN5folly13usingJEMallocEv ]
[@@deriving compare, equal, hash, sexp, enumerate, variants]

Write Preview
Loading…
Cancel
Save