Patch for occt-7.4.0p1. See disussion at
https://github.com/tpaviot/pythonocc-core/issues/870

Index: pythonocc-core-7.4.0/src/SWIG_files/wrapper/BOPAlgo.i
===================================================================
--- src/SWIG_files/wrapper/BOPAlgo.i
+++ src/SWIG_files/wrapper/BOPAlgo.i
@@ -632,17 +632,6 @@ class BOPAlgo_Tools {
 	:rtype: void") PerformCommonBlocks;
 		static void PerformCommonBlocks (const BOPDS_IndexedDataMapOfPaveBlockListOfInteger & theMBlocks,const opencascade::handle<NCollection_BaseAllocator> & theAllocator,BOPDS_PDS & pDS,const opencascade::handle<IntTools_Context> & theContext = opencascade::handle<IntTools_Context>());
 
-		/****************** TreatCompound ******************/
-		%feature("compactdefaultargs") TreatCompound;
-		%feature("autodoc", "* Collect in the output list recursively all non-compound subshapes of the first level of the given shape theS. If a shape presents in the map theMFence it is skipped. All shapes put in the output are also added into theMFence.
-	:param theS:
-	:type theS: TopoDS_Shape
-	:param theMFence:
-	:type theMFence: TopTools_MapOfShape
-	:param theLS:
-	:type theLS: TopTools_ListOfShape
-	:rtype: void") TreatCompound;
-		static void TreatCompound (const TopoDS_Shape & theS,TopTools_MapOfShape & theMFence,TopTools_ListOfShape & theLS);
 
 		/****************** WiresToFaces ******************/
 		%feature("compactdefaultargs") WiresToFaces;
Index: pythonocc-core-7.4.0/src/SWIG_files/wrapper/BOPTools.i
===================================================================
--- src/SWIG_files/wrapper/BOPTools.i
+++ src/SWIG_files/wrapper/BOPTools.i
@@ -776,6 +776,18 @@ class BOPTools_AlgoTools {
 	:rtype: int") Sense;
 		static Standard_Integer Sense (const TopoDS_Face & theF1,const TopoDS_Face & theF2,const opencascade::handle<IntTools_Context> & theContext);
 
+		/****************** TreatCompound ******************/
+		%feature("compactdefaultargs") TreatCompound;
+		%feature("autodoc", "* Collect in the output list recursively all non-compound subshapes of the first level of the given shape theS. If a shape presents in the map theMFence it is skipped. All shapes put in the output are also added into theMFence.
+	:param theS:
+	:type theS: TopoDS_Shape
+	:param theLS:
+	:type theLS: TopTools_ListOfShape
+	:param theMFence:
+	:type theMFence: TopTools_MapOfShape
+	:rtype: void") TreatCompound;
+		static void TreatCompound (const TopoDS_Shape & theS,TopTools_ListOfShape & theLS, TopTools_MapOfShape * theMFence);
+
 		/****************** UpdateVertex ******************/
 		%feature("compactdefaultargs") UpdateVertex;
 		%feature("autodoc", "* @name Updating the vertex Update the tolerance value for vertex <aV> taking into account the fact that <aV> lays on the curve <aIC>