diff --git a/src/AdvApp2Var/AdvApp2Var_MathBase.cxx b/src/AdvApp2Var/AdvApp2Var_MathBase.cxx
index 02de836581..a668c0d504 100644
--- a/src/AdvApp2Var/AdvApp2Var_MathBase.cxx
+++ b/src/AdvApp2Var/AdvApp2Var_MathBase.cxx
@@ -10157,15 +10157,13 @@ void AdvApp2Var_MathBase::mmwprcs_(doublereal *epsil1,
  doublereal AdvApp2Var_MathBase::pow__di (doublereal *x,
 				   integer *n)
 {
-
-  register integer ii ;
   doublereal result ;
   integer    absolute ;
   result = 1.0e0 ;
   if ( *n > 0 ) {absolute = *n;}
   else {absolute = -*n;}
     /* System generated locals */
-  for(ii = 0 ; ii < absolute ; ii++) {
+  for(integer ii = 0 ; ii < absolute ; ii++) {
       result *=  *x ;
    }
   if (*n < 0) {
@@ -10216,14 +10214,13 @@ integer pow__ii(integer *x,
 		integer *n)
 
 {
-  register integer ii ;
   integer result ;
   integer    absolute ;
   result = 1 ;
   if ( *n > 0 ) {absolute = *n;}
   else {absolute = -*n;}
     /* System generated locals */
-  for(ii = 0 ; ii < absolute ; ii++) {
+  for(integer ii = 0 ; ii < absolute ; ii++) {
       result *=  *x ;
    }
   if (*n < 0) {
diff --git a/src/AdvApp2Var/AdvApp2Var_SysBase.cxx b/src/AdvApp2Var/AdvApp2Var_SysBase.cxx
index 0cd5353639..ee37c0d18e 100644
--- a/src/AdvApp2Var/AdvApp2Var_SysBase.cxx
+++ b/src/AdvApp2Var/AdvApp2Var_SysBase.cxx
@@ -2423,18 +2423,18 @@ int AdvApp2Var_SysBase::mcrfill_(integer *size,
 				 void *tout)
 
 {
-  register char *jmin=static_cast<char*> (tin);
-  register char *jmout=static_cast<char*> (tout);
+  char *jmin=static_cast<char*> (tin);
+  char *jmout=static_cast<char*> (tout);
   if (mcrfill_ABS(jmout-jmin) >= *size)
     memcpy( tout, tin, *size);
   else if (tin > tout)
     {
-      register integer n = *size;
+      integer n = *size;
       while (n-- > 0) *jmout++ = *jmin++;
     }
   else
     {
-      register integer n = *size;
+      integer n = *size;
       jmin+=n;
       jmout+=n;
       while (n-- > 0) *--jmout = *--jmin;
diff --git a/src/GeomLib/GeomLib.cxx b/src/GeomLib/GeomLib.cxx
index a38fda2821..c504dbc0ed 100644
--- a/src/GeomLib/GeomLib.cxx
+++ b/src/GeomLib/GeomLib.cxx
@@ -998,9 +998,8 @@ void GeomLib_CurveOnSurfaceEvaluator::Evaluate (Standard_Integer *,/*Dimension*/
                                                 Standard_Integer *DerivativeRequest,
                                                 Standard_Real    *Result,// [Dimension]
                                                 Standard_Integer *ReturnCode)
-{ 
-  register Standard_Integer ii ;
-  gp_Pnt Point ;
+{
+  gp_Pnt Point;
 
   //Gestion des positionnements gauche / droite
   if ((DebutFin[0] != FirstParam) || (DebutFin[1] != LastParam)) 
@@ -1015,21 +1014,21 @@ void GeomLib_CurveOnSurfaceEvaluator::Evaluate (Standard_Integer *,/*Dimension*/
     {
      TrimCurve->D0((*Parameter), Point) ;
    
-     for (ii = 0 ; ii < 3 ; ii++)
+     for (Standard_Integer ii = 0 ; ii < 3 ; ii++)
        Result[ii] = Point.Coord(ii + 1);
    }
   if (*DerivativeRequest == 1) 
     {
       gp_Vec Vector;
       TrimCurve->D1((*Parameter), Point, Vector);
-      for (ii = 0 ; ii < 3 ; ii++)
+      for (Standard_Integer ii = 0 ; ii < 3 ; ii++)
         Result[ii] = Vector.Coord(ii + 1) ;
     }
   if (*DerivativeRequest == 2) 
     {
       gp_Vec Vector, VecBis;
       TrimCurve->D2((*Parameter), Point, VecBis, Vector);
-      for (ii = 0 ; ii < 3 ; ii++)
+      for (Standard_Integer ii = 0 ; ii < 3 ; ii++)
         Result[ii] = Vector.Coord(ii + 1) ;
     }
   ReturnCode[0] = 0;