gm2-libs/Debug (The GNU Modula-2 Compiler)

#### 4.1.11 gm2-libs/Debug ¶

    DEFINITION MODULE Debug ;

    (*
        Description: provides some simple debugging routines.
    *)

    EXPORT QUALIFIED Halt, DebugString ;

    (*
       Halt - writes a message in the format:
              Module:Function:Line:Message

              It then terminates by calling HALT.
    *)

    PROCEDURE Halt (Message,
                    Module,
                    Function: ARRAY OF CHAR ;
                    LineNo  : CARDINAL) ;

    (*
       DebugString - writes a string to the debugging device (Scn.Write).
                     It interprets \n as carriage return, linefeed.
    *)

    PROCEDURE DebugString (a: ARRAY OF CHAR) ;

    END Debug.