Changeset 894 for cprs/branches/tmg-cprs/m_files/TMGDEBUG.m

Timestamp:

Jul 25, 2010, 2:51:23 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

interval update

File:

• cprs/branches/tmg-cprs/m_files/TMGDEBUG.m (modified) (3 diffs)

cprs/branches/tmg-cprs/m_files/TMGDEBUG.m

@@ -1 @@
-TMGDEBUG ;TMG/kst/Debug utilities: logging, record dump ;03/25/06
+TMGDEBUG ;TMG/kst/Debug utilities: logging, record dump ;03/25/06, 7/11/10
          ;;1.0;TMG-LIB;**1**;07/12/05
 
@@ -22 +22 @@
  ;"DebugExit^TMGDEBUG(DBIndent,ProcName)
  ;"ShowError^TMGDEBUG(PriorErrorFound,Error)
+ ;"$$FMERRSTR(ERRARRAY) -- same as $$GetErrStr()
  ;"$$GetErrStr^TMGDEBUG(ErrArray)
  ;"ShowIfDIERR^TMGDEBUG(ErrMsg,PriorErrorFound)  ;really same as below
@@ -410 +411 @@
 
 
+FMERRSTR(ERRARRAY)
+        QUIT $$GetErrStr(.ERRARRAY)
+        ;
 GetErrStr(ErrArray)
         ;"Purpose: convert a standard DIERR array into a string for output