0024186: Eliminate remaining compiler warnings in MSVC++ 2010 64 bit with warning...

[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_OtherCommands.cxx

diff --git a/src/TestTopOpeDraw/TestTopOpeDraw_OtherCommands.cxx b/src/TestTopOpeDraw/TestTopOpeDraw_OtherCommands.cxx
index f80ccd2..0190871 100755 (executable)
--- a/src/TestTopOpeDraw/TestTopOpeDraw_OtherCommands.cxx
+++ b/src/TestTopOpeDraw/TestTopOpeDraw_OtherCommands.cxx
@@ -91,7 +91,7 @@ void OthersCommands_flags(Standard_Integer& na,const char** a,TestTopOpeDraw_Dis
     iloc = i - decal;
     if(!a[iloc]) break;
     if (a[iloc][0] == '-') {
-      l = strlen(a[iloc]);
+      l = (Standard_Integer)strlen(a[iloc]);
       for (j=1; j<l; j++) {
        if     (a[iloc][j] == 'g') tgeo=Standard_True;
        else if(!strcmp(a[iloc],"-tol")) tolflag = Standard_True;
@@ -227,7 +227,7 @@ static void BoopReadInitFile(Draw_Interpretor& di, const char* filename)
   di.EvalFile(filename);
 }
 
-static Standard_Integer ttab(Draw_Interpretor& di, Standard_Integer narg, const char** /*a*/) {
+static Standard_Integer ttab(Draw_Interpretor& di, Standard_Integer /*narg*/, const char** /*a*/) {
   char s[2000]; strcpy(s,"");
   Sprintf(s,"%s%s",s,"proc addt {at args} {upvar $at x;set L \"\";addl L [join $args];");
   Sprintf(s,"%s%s",s,"foreach l $L {set x([array size x]) $l}};");