Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl

comparison VMS.c @ 54:f8508572f3de

find changesets by author, revision, files, or words in the commit message
Added boolean guarded debug messages and VMS__throw_exception
author Me
date Tue, 02 Nov 2010 16:43:01 -0700
parents 42dd44df1bb0
children 3bac84e4e56e 85b731b290f8
comparison
equal deleted inserted replaced
23:52f3740daaf9 24:3bf3a370dba5
286 286
287 //============================= MEASUREMENT STUFF ======================== 287 //============================= MEASUREMENT STUFF ========================
288 #ifdef STATS__TURN_ON_PROBES 288 #ifdef STATS__TURN_ON_PROBES
289 struct timeval timeStamp; 289 struct timeval timeStamp;
290 gettimeofday( &(timeStamp), NULL); 290 gettimeofday( &(timeStamp), NULL);
291 newPr->createPtInSecs = timeStamp.tv_sec +(timeStamp.tv_usec/1000000.0); 291 newPr->createPtInSecs = timeStamp.tv_sec +(timeStamp.tv_usec/1000000.0) -
292 _VMSMasterEnv->createPtInSecs;
292 #endif 293 #endif
293 //======================================================================== 294 //========================================================================
294 295
295 return newPr; 296 return newPr;
296 } 297 }
750 //These are the only two that use system free 751 //These are the only two that use system free
751 VMS_ext__free_free_list( _VMSMasterEnv->freeListHead ); 752 VMS_ext__free_free_list( _VMSMasterEnv->freeListHead );
752 free( (void *)_VMSMasterEnv ); 753 free( (void *)_VMSMasterEnv );
753 } 754 }
754 755
756
757 //================================
758
759
760 /*Later, improve this -- for now, just exits the application after printing
761 * the error message.
762 */
763 void
764 VMS__throw_exception( char *msgStr, VirtProcr *reqstPr, VMSExcp *excpData )
765 {
766 printf(msgStr);
767 fflush(stdin);
768 exit(1);
769 }
770
771
772