Debug

AddToCallThroughList AsmDebugComplain CloseLog CommLog DebugWaitUntilMessageSeen DoCouldMoveMemory DoDebugComplain DoDebugLog DoDebugLogSetup DoDebugMessage

DoDebugQuickWhisper DoDebugSafeCopyBytes DoDebugWhisper DoRawDebugLog GetLoggingMode LogPrintF OpenLog PostNotImplementedAnnouncement PrintDebugMessage ReadLog

ReadLogToClipboard ReinitializeClass RemoveFromCallThroughList SetLoggingMode SizeLog StowPreviousLogFile ToggleDebugSwitch ToggleLeakFinder ValidateSystemOrPackages

Attributes

Class Debug defines no new attributes.

Fields

instance Debug tag;
end instance;

Define Class Debug;
    inherits from Object;
    
    overrides ReinitializeClass;

#ifdef DEBUG
    intrinsic GetLoggingMode(): Boolean;
    intrinsic SetLoggingMode(newMode: Boolean);
    intrinsic DoCouldMoveMemory();
        // checks if memory is "locked", and complains if it is.
        // called by the CouldMoveMemory() macro, don't call this directly.
 #ifndef M68K_RUNTIME
    intrinsic PrintDebugMessage(message: Literal);
 #endif
 #ifdef DEBUG_LOG_FILE
    intrinsic StowPreviousLogFile();
    intrinsic OpenLog();
    intrinsic CloseLog();
    intrinsic SizeLog(): Unsigned;
    intrinsic ReadLog(startPos: Unsigned; count: Unsigned; buff: Pointer);
    intrinsic ReadLogToClipboard(startLogCount: Unsigned): Boolean;
    intrinsic DoRawDebugLog(format: Literal; ...);
    intrinsic LogPrintF(format: Literal; ...);
    intrinsic DoDebugLogSetup(fileName: Literal; line: Unsigned);
    intrinsic DoDebugMessage(format: Literal; ...): Literal;
    intrinsic DoDebugQuickWhisper(format: Literal; ...): Literal;
    intrinsic DoDebugWhisper(format: Literal; ...): Literal;
    intrinsic DebugWaitUntilMessageSeen();
 #endif

    intrinsic DoDebugLog(format: Literal; ...): Literal;
    intrinsic DoDebugComplain(format: Literal; ...): Literal;
    intrinsic DoDebugSafeCopyBytes(destination: Object; sourceBase: ReadOnlyPointer; destinationBase: Pointer; byteCount: Unsigned): Literal;
    intrinsic AsmDebugComplain(message: ReadOnlyPointer; ...);

    intrinsic AddToCallThroughList(object: Object; operationNumber: OperationNumber);
    intrinsic RemoveFromCallThroughList(object: Object; operationNumber: OperationNumber): Unsigned;

    intrinsic CommLog(message: Literal; push: Boolean);

 #ifdef HOSTED
    intrinsic ToggleDebugSwitch(switchNumber: Unsigned);

  #ifdef VALIDATE
    intrinsic ValidateSystemOrPackages(validate: Object);
  #endif /* VALIDATE */
 #endif /* HOSTED */

#endif /* DEBUG */

#ifndef FINAL
    intrinsic PostNotImplementedAnnouncement(message: Text);
#endif
#ifdef LEAK_FINDER
    intrinsic ToggleLeakFinder() : Boolean;
        // Turns the leak finder on and off. Returns true if the leak finder
        // is on after calling this method.
#endif
end class;