Identical lvals not equal in Cil_datatype.Lval.Hashtbl
ID0001263:
**This issue was created automatically from Mantis Issue 1263. Further discussion may take place here.**
---
| **Id** | **Project** | **Category** | **View** | **Due Date** | **Updated** |
| --- | --- | --- | --- | --- | --- |
| ID0001263 | Frama-C | Kernel | public | 2012-08-08 | 2012-09-19 |
| | | | | | |
| --- | --- | --- | --- | --- | --- |
| **Reporter** | boris | **Assigned To** | virgile | **Resolution** | fixed |
| **Priority** | low | **Severity** | feature | **Reproducibility** | always |
| **Platform** | - | **OS** | - | **OS Version** | - |
| **Product Version** | Frama-C Nitrogen-20111001 | **Target Version** | - | **Fixed in Version** | Frama-C Oxygen-20120901 |
### Description :
The code below contains an lval this->gear at positions 1,2. If this->gear is hashed at position 1 using Cil_datatype.Lval.Hashtbl, a find for this->gear fails at position 2.
if(inp == up) {
if(this->gear < MAX_GEARS && motor_rpm(this, this->gear + 1) >= RPM_MIN)
this->gear++; // 1
} else if(inp == down) {
if(this->gear > 1 && motor_rpm(this, this->gear + 1) <= RPM_MAX)
this->gear--; // 2
}
The problem disappears if the lvals are converted to terms with
let xtl = Logic_utils.lval_to_term_lval false x in
Logic_const.term (TLval xtl) (Cil.typeOfTermLval xtl)
and hashed with
module TermHT = Hashtbl.Make(struct
type t = Cil_types.term
let equal = Logic_utils.is_same_term
let hash = Logic_utils.hash_term
end)
issue