X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=src%2FTestTopOpeTools%2FTestTopOpeTools_TraceCommands.cxx;h=fed9bc0086094b8e4d5833a004cc2eeb5f9de629;hb=b1ea14b63c956a9cfdd8477281ab161865812117;hpb=76021966ce433317ffee7964d113cf033e88e2b6

diff --git a/src/TestTopOpeTools/TestTopOpeTools_TraceCommands.cxx b/src/TestTopOpeTools/TestTopOpeTools_TraceCommands.cxx
index 3dde246260..fed9bc0086 100755
--- a/src/TestTopOpeTools/TestTopOpeTools_TraceCommands.cxx
+++ b/src/TestTopOpeTools/TestTopOpeTools_TraceCommands.cxx
@@ -319,7 +319,7 @@ Standard_Integer dstrace(Draw_Interpretor& di, Standard_Integer n , const char**
   pa[1] = (char *)a1.ToCString();
   for (Standard_Integer i=1;i<n;i++) pa[i+1] = a[i];
   TestTopOpeTools_SetTrace(di,npa,pa);
-  if (pa) delete [] pa;
+  if (pa) free(pa);
   return 0;
 }