many, many changes

src/cas/example/simple/Makefile

@@ -3,8 +3,6 @@ TOP=../../../..
 
 include $(TOP)/configure/CONFIG
 
-CXXCMPLR = STRICT
-
 PROD_LIBS := cas ca gdd Com
 cas_DIR = $(INSTALL_LIB)
 ca_DIR = $(INSTALL_LIB)

src/cas/example/simple/Makefile.Vx.WorkInProgress

@@ -4,8 +4,6 @@ TOP = $(CAS)/../..
 
 include $(TOP)/config/CONFIG_BASE
 
-CXXCMPLR = STRICT
-
 USR_INCLUDES = 
 USR_LDFLAGS = 
 

src/cas/example/simple/exPV.cc

@@ -86,11 +86,6 @@ caStatus exPV::update(gdd &valueIn)
 		return cas;
 	}
 
-	aitTimeStamp ts = this->currentTime;
-	this->pValue->setTimeStamp (&ts);
-	this->pValue->setStat (epicsAlarmNone);
-	this->pValue->setSevr (epicsSevNone);
-
 	//
 	// post a value change event
 	//

src/cas/example/simple/exVectorPV.cc

@@ -52,7 +52,7 @@ aitIndex exVectorPV::maxBound (unsigned dimension) const
 void exVectorPV::scan()
 {
 	caStatus		status;
-	double		radians;
+	double          radians;
 	smartGDDPointer	pDD;
 	aitFloat32		*pF, *pFE, *pCF;
 	float			newValue;
@@ -256,6 +256,12 @@ caStatus exVectorPV::updateValue(gdd &valueIn)
 		if (gdds) {
 			return S_cas_noConvert;
 		}
+
+	    aitTimeStamp ts;
+        valueIn.getTimeStamp (&ts);
+	    pNewValue->setTimeStamp (&ts);
+	    pNewValue->setStat (valueIn.getStat());
+	    pNewValue->setSevr (valueIn.getSevr());
 	}
 	
 	this->pValue = pNewValue;