plc, nmps lock wasn't removed at runtime stop

nmps/lib/nmps/src/nmps_plc.c

@@ -112,9 +112,8 @@ void NMpsCell_init( pwr_sClass_NMpsCell  *object)
 {
 	plc_t_DataInfo	*data_index;
 	int		i;
-	pwr_tStatus	sts;
 
-	nmps_create_lock( &sts);
+	// nmps_create_lock( &sts);
 
 	if ( !(object->Function & NMPS_CELLFUNC_BACKUP))
 	  NMpsCell_init_time( object);
@@ -706,9 +705,8 @@ void NMpsStoreCell_init( pwr_sClass_NMpsStoreCell  *object)
 {
 	plc_t_DataInfo	*data_index;
 	int		i;
-	pwr_tStatus 	sts;
 
-	nmps_create_lock( &sts);
+	// nmps_create_lock( &sts);
 
 	if ( !(object->Function & NMPS_CELLFUNC_BACKUP))
 	  NMpsCell_init_time( (pwr_sClass_NMpsCell *) object);
@@ -1163,7 +1161,7 @@ void NMpsStoreCell_exec(
 	if (( object->Function & NMPS_CELLFUNC_SINGELSELECT) ||
 		( object->Function & NMPS_CELLFUNC_ONESELECT))
 	{
-	  /* Unselect everone exept last selected */
+	  /* Unselect everyone except last selected */
 	  if ( object->DataSelected > 1)
 	  {
 	    data_index = (plc_t_DataInfo *) &object->Data1P;

src/exp/rt/src/rt_plc_process.c

@@ -299,6 +299,13 @@ init_process ( char *name)
     exit(sts);
   }
 
+  nmps_create_lock( &sts);
+  if (EVEN(sts)) {
+    errh_Fatal("nmps_create_lock, %m", sts);
+    errh_SetStatus( PWR__SRVTERM);
+    exit(sts);
+  }
+
   if ( strstr( name, "rt_plc_core") != 0)
     pp->is_core = 1;
   
@@ -582,6 +589,7 @@ clean_all (
   if (EVEN(sts))
     errh_Error("gdh_UnrefObjectInfoAll, %m", sts);
 
+  nmps_delete_lock( &sts);
 }
 
 /* Link to I/O base areas.

src/lib/rt/src/rt_nmps_lock.c

@@ -43,7 +43,7 @@
 #include "rt_sect.h"
 #include "rt_nmps_lock.h"
 
-sect_sHead *nmps_locksect = 0;
+static sect_sHead *nmps_locksect = 0;
 
 void nmps_create_lock( pwr_tStatus *sts)
 {