Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
 Last modified on Tue Jun 16 13:16:27 PDT 1992 by muller     
      modified on Wed Jul 31 20:34:55 PDT 1991 by meehan     
      modified on Tue Jul 14 18:44:38 1987 by chan           

These procedures are used only for debugging.

IMPORT MText, MTextPrivate, Wr;

PROCEDURE Dump (m: MText.T);
Gives a structural printout of the state of an mtext.

PROCEDURE Verify (wr: Wr.T; node: MTextPrivate.Node; msg: TEXT);
Verifies that the internal consistency conditions expected of an mtext hold for this particular mtext. In case of failure, prints an error message, along with the identifying message msg, and aborts the program.

END MTextDebug.