diff options
| -rw-r--r-- | backend/RTLTunneling.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/RTLTunneling.v b/backend/RTLTunneling.v index 4885002f..e6901a9f 100644 --- a/backend/RTLTunneling.v +++ b/backend/RTLTunneling.v @@ -63,8 +63,8 @@ Definition check_instr (td: UF) (pc: node) (i: instruction): res unit := | Icond _ _ ifso ifnot _ => let (tso,dso) := get td ifso in let (tnot,dnot) := get td ifnot in - if peq tpc ifso then - if peq tpc ifnot then + if peq tpc tso then + if peq tpc tnot then if zlt dso dpc then if zlt dnot dpc then OK tt else Error (msg "bad distance on else branch") |