@@ -775,14 +775,14 @@ struct
775775
776776 let tf var getl sidel getg sideg prev_node edge d =
777777 begin match edge with
778- | Assign (lv ,rv ) -> tf_assign var edge prev_node lv rv
779- | VDecl (v ) -> tf_vdecl var edge prev_node v
780- | Proc (r ,f ,ars ) -> tf_proc var edge prev_node r f ars
781- | Entry f -> tf_entry var edge prev_node f
782- | Ret (r ,fd ) -> tf_ret var edge prev_node r fd
783- | Test (p ,b ) -> tf_test var edge prev_node p b
784- | ASM (_ , _ , _ ,_ ) -> tf_asm var edge prev_node (* TODO: use ASM fields for something? *)
785- | Skip -> tf_skip var edge prev_node
778+ | Assign (lv ,rv ) -> tf_assign var edge prev_node lv rv
779+ | VDecl (v ) -> tf_vdecl var edge prev_node v
780+ | Proc (r ,f ,ars ) -> tf_proc var edge prev_node r f ars
781+ | Entry f -> tf_entry var edge prev_node f
782+ | Ret (r ,fd ) -> tf_ret var edge prev_node r fd
783+ | Test (p ,b ) -> tf_test var edge prev_node p b
784+ | ASM (_ , _ , _ ,_ ) -> tf_asm var edge prev_node (* TODO: use ASM fields for something? *)
785+ | Skip -> tf_skip var edge prev_node
786786 end getl sidel getg sideg d
787787
788788 type Goblint_backtrace.mark + = TfLocation of location
0 commit comments