From 6ae48a2f079d6c420df57cb8616692c3d6cdd0ca Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Thu, 16 Apr 2020 18:01:25 +0200 Subject: adapt for Icond with predicted direction --- backend/Inject.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'backend/Inject.v') diff --git a/backend/Inject.v b/backend/Inject.v index 2350c149..971a5423 100644 --- a/backend/Inject.v +++ b/backend/Inject.v @@ -34,7 +34,7 @@ Definition successor (i : instruction) : node := | Istore _ _ _ _ pc' => pc' | Icall _ _ _ _ pc' => pc' | Ibuiltin _ _ _ pc' => pc' - | Icond _ _ pc' _ => pc' + | Icond _ _ pc' _ _ => pc' | Itailcall _ _ _ | Ijumptable _ _ | Ireturn _ => 1 @@ -47,7 +47,7 @@ Definition alter_successor (i : instruction) (pc' : node) : instruction := | Iload trap chunk addr args dst _ => Iload trap chunk addr args dst pc' | Istore chunk addr args src _ => Istore chunk addr args src pc' | Ibuiltin ef args res _ => Ibuiltin ef args res pc' - | Icond cond args _ pc2 => Icond cond args pc' pc2 + | Icond cond args _ pc2 expected => Icond cond args pc' pc2 expected | Icall sig ros args res _ => Icall sig ros args res pc' | Itailcall _ _ _ | Ijumptable _ _ -- cgit