From 0f279d32855c49f8df686ea14c0030f93c56f3d3 Mon Sep 17 00:00:00 2001
From: skv <skv@opencascade.com>
Date: Thu, 14 May 2015 10:44:37 +0300
Subject: [PATCH] 0023048: [CEA 1474] Performance regression on MakeGlueEdges

---
 src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 mode change 100755 => 100644 src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx

diff --git a/src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx b/src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx
old mode 100755
new mode 100644
index 8c2a1cd1b..3505101d4
--- a/src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx
+++ b/src/GEOMAlgo/GEOMAlgo_AlgoTools.cxx
@@ -222,6 +222,19 @@ Standard_Integer GEOMAlgo_AlgoTools::BuildPCurveForEdgeOnFace
     return iRet;
   }
   //
+#if OCC_VERSION_LARGE > 0x06070100
+  // Try to copy PCurve from old edge to the new one.
+  iRet = BOPTools_AlgoTools2D::AttachExistingPCurve(aEold, aEnew, aF, aCtx);
+
+  if (iRet) {
+    // Do PCurve using projection algorithm.
+    iRet = 0;
+  } else {
+    // The PCurve is attached successfully.
+    return iRet;
+  }
+#endif
+  //
   BOPTools_AlgoTools2D::BuildPCurveForEdgeOnFace(aEnew, aF);
   aC2D=BRep_Tool::CurveOnSurface(aEnew, aF, aT1, aT2);
   if (aC2D.IsNull()){
-- 
2.39.2