OCC20178 Conversion problems during VS2005 compilation

diff --git a/src/WOKUtils/WOKUtils_Param.cxx b/src/WOKUtils/WOKUtils_Param.cxx
index 2709b456acd4f458189412bd2d60dd348afd9948..2d77a207fd0bb8bdb780a919426f5ddba0be8a00 100755 (executable)
--- a/src/WOKUtils/WOKUtils_Param.cxx
+++ b/src/WOKUtils/WOKUtils_Param.cxx
@@ -431,22 +431,18 @@ Handle(TCollection_HAsciiString) WOKUtils_Param::ClassFile(const Standard_CStrin
 //=======================================================================
 Handle(TCollection_HAsciiString) WOKUtils_Param::ClassSubFile(const Standard_CString aclass, const Standard_CString asub) const
 {
-  Standard_PCharacter thedir = strchr(asub, '@');
+  Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(asub);
+  Standard_CString thedir = strchr(asub, '@');
 
   if(thedir)
-    {
-      Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(&(thedir[1]));
-      result->AssignCat("/");
-      *thedir = '\0';
-      result->AssignCat(asub);
-      *thedir = '@';
-      result->AssignCat("_");
-      result->AssignCat(aclass);
-      result->AssignCat(".edl");
-      return result;
-    }
+  {
+    Handle(TCollection_HAsciiString) res = new TCollection_HAsciiString(&(thedir[1]));
+    result->Trunc(thedir-asub);
+    res->AssignCat("/");
+    res->AssignCat(result);
+    result = res;
+  }
 
-  Handle(TCollection_HAsciiString) result = new TCollection_HAsciiString(asub);
   result->AssignCat("_");
   result->AssignCat(aclass);
   result->AssignCat(".edl");