Skip to content
Snippets Groups Projects
Commit 4c5f1cdf authored by Kostyantyn Vorobyov's avatar Kostyantyn Vorobyov
Browse files

Get rid of unnecessary prefixes

parent 1fc4b1ba
No related branches found
No related tags found
No related merge requests found
...@@ -24,7 +24,7 @@ open Cil_types ...@@ -24,7 +24,7 @@ open Cil_types
open Cil_datatype open Cil_datatype
let statement_locals: let statement_locals:
Cil_types.varinfo list Stmt.Hashtbl.t = Stmt.Hashtbl.create 17 varinfo list Stmt.Hashtbl.t = Stmt.Hashtbl.create 17
(* Mapping of statements to local variables available within that statement's (* Mapping of statements to local variables available within that statement's
scope. The mappings of this structure are used to determine variables which scope. The mappings of this structure are used to determine variables which
need to be removed before goto jumps. Generally, if some goto (with need to be removed before goto jumps. Generally, if some goto (with
...@@ -34,7 +34,7 @@ let statement_locals: ...@@ -34,7 +34,7 @@ let statement_locals:
tracked, they need to be removed from tracking. *) tracked, they need to be removed from tracking. *)
let exit_context: let exit_context:
Cil_types.stmt Stmt.Hashtbl.t = Stmt.Hashtbl.create 17 stmt Stmt.Hashtbl.t = Stmt.Hashtbl.create 17
(* Statement to statement mapping indicating source/destination of a jump. (* Statement to statement mapping indicating source/destination of a jump.
For instance, break statements are mapped to switches or loops they jump For instance, break statements are mapped to switches or loops they jump
out from and goto statements are mapped to their labeled statements. Notably, out from and goto statements are mapped to their labeled statements. Notably,
...@@ -43,7 +43,7 @@ let exit_context: ...@@ -43,7 +43,7 @@ let exit_context:
done for consistency, so all required information is stored uniformly. *) done for consistency, so all required information is stored uniformly. *)
let labelled_jumps: let labelled_jumps:
Cil_types.stmt Stmt.Hashtbl.t = Stmt.Hashtbl.create 17 stmt Stmt.Hashtbl.t = Stmt.Hashtbl.create 17
(* Map labelled statements back to gotos which lead to them *) (* Map labelled statements back to gotos which lead to them *)
let clear () = let clear () =
......
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