00001 /* 00002 * IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING. By 00003 * downloading, copying, installing or using the software you agree to 00004 * this license. If you do not agree to this license, do not download, 00005 * install, copy or use the software. 00006 * 00007 * Intel Open Source License 00008 * 00009 * Copyright (c) 2004 Intel Corporation. All rights reserved. 00010 * 00011 * Redistribution and use in source and binary forms, with or without 00012 * modification, are permitted provided that the following conditions are 00013 * met: 00014 * 00015 * Redistributions of source code must retain the above copyright 00016 * notice, this list of conditions and the following disclaimer. 00017 * 00018 * Redistributions in binary form must reproduce the above copyright 00019 * notice, this list of conditions and the following disclaimer in the 00020 * documentation and/or other materials provided with the distribution. 00021 * 00022 * Neither the name of the Intel Corporation nor the names of its 00023 * contributors may be used to endorse or promote products derived from 00024 * this software without specific prior written permission. 00025 * 00026 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 00027 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 00028 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 00029 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE INTEL OR 00030 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 00031 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 00032 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 00033 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 00034 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 00035 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 00036 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00037 */ 00038 00039 #include "DebugCommand.h" 00040 #include "memory/Memory.h" 00041 00042 namespace oasys { 00043 00044 DebugCommand::DebugCommand() 00045 : TclCommand("debug") 00046 { 00047 #ifdef OASYS_DEBUG_MEMORY_ENABLED 00048 add_to_help("dump_memory", "Dump memory usage"); 00049 add_to_help("dump_memory_diffs", "Dump memory diff of usage"); 00050 #endif 00051 } 00052 00053 int 00054 DebugCommand::exec(int argc, const char** argv, Tcl_Interp* interp) 00055 { 00056 (void)interp; 00057 00058 if (argc < 2) { 00059 resultf("need a subcommand"); 00060 return TCL_ERROR; 00061 } 00062 const char* cmd = argv[1]; 00063 00064 #ifdef OASYS_DEBUG_MEMORY_ENABLED 00065 // debug dump_memory 00066 if (!strcmp(cmd, "dump_memory")) { 00067 DbgMemInfo::debug_dump(); 00068 return TCL_OK; 00069 } else if (!strcmp(cmd, "dump_memory_diffs")) { 00070 DbgMemInfo::debug_dump(true); 00071 return TCL_OK; 00072 } 00073 #endif // OASYS_DEBUG_MEMORY_ENABLED 00074 00075 resultf("unimplemented debug subcommand: %s", cmd); 00076 return TCL_ERROR; 00077 } 00078 00079 } // namespace oasys