@@ -86,15 +86,13 @@ module MakeImplStage1<LocationSig Location, InputSig<Location> Lang> {
8686 bindingset [ p, kind]
8787 predicate parameterFlowThroughAllowed ( ParamNd p , ReturnKindExt kind ) ;
8888
89+ predicate fwdFlow ( Nd node ) ;
90+
8991 // begin StageSig
9092 class Ap ;
9193
9294 class ApNil extends Ap ;
9395
94- predicate fwdFlow ( Nd node ) ;
95-
96- predicate fwdFlow ( Nd node , Ap ap ) ;
97-
9896 predicate revFlow ( Nd node ) ;
9997
10098 predicate revFlow ( Nd node , Ap ap ) ;
@@ -1297,11 +1295,6 @@ module MakeImplStage1<LocationSig Location, InputSig<Location> Lang> {
12971295
12981296 predicate fwdFlow ( Nd node ) { Stage1:: fwdFlow ( node ) }
12991297
1300- predicate fwdFlow ( Nd node , Ap ap ) {
1301- Stage1:: fwdFlow ( node ) and
1302- exists ( ap )
1303- }
1304-
13051298 predicate revFlow ( NodeEx node , Ap ap ) { Stage1:: revFlow ( node ) and exists ( ap ) }
13061299
13071300 predicate toNormalSinkNode = toNormalSinkNodeEx / 1 ;
@@ -1408,8 +1401,6 @@ module MakeImplStage1<LocationSig Location, InputSig<Location> Lang> {
14081401
14091402 predicate fwdFlow ( Nd node ) { Stage1:: fwdFlow ( node .getNodeEx ( ) ) }
14101403
1411- predicate fwdFlow ( Nd node , Ap ap ) { Stage1:: fwdFlow ( node .getNodeEx ( ) ) and exists ( ap ) }
1412-
14131404 predicate revFlow ( Nd node ) { Stage1:: revFlow ( node .getNodeEx ( ) ) }
14141405
14151406 predicate revFlow ( Nd node , Ap ap ) { Stage1:: revFlow ( node .getNodeEx ( ) ) and exists ( ap ) }
0 commit comments