Rename dump functions.

Rename `DocDump` to `DocDumpLines`.
Rename `DocDm` to `DocDumpMem`.
Rename `DocD` to `DocDump`.
Rename `Dump` to `FileDump`.
Rename `DClus` to `ClusDump`.
Rename `DBlk` to `BlkDump`.
Rename `RawDm` to `RawDumpMem`.
Rename `RawDr` to `RawDumpRegs`.
Rename `RawD` to `RawDump`.
Rename `Dr` to `DumpRegs`.
Rename `Dm` to `DumpMem`.
Rename `D` to `Dump`.
Rename `Who` to `HashTableDump`.
Rename `Da` to `DumpAddress`.
This commit is contained in:
TomAwezome 2021-11-30 14:22:38 -05:00
parent 772f3317c5
commit 05be1d0e0c
30 changed files with 88 additions and 70 deletions

View File

@ -162,7 +162,7 @@ U8 *CmdLinePrompt()
}
'>';
if (IsDebugMode && IsRaw)
RawDr;
RawDumpRegs;
LBts(&Fs->task_flags, TASKf_CMD_LINE_PROMPT);
st = StrGet(,, SGF_SHIFT_ESC_EXIT);

View File

@ -375,7 +375,7 @@ U0 Ui(U8 *buf, U8 **_rip, I64 seg_size=64, I64 *_jmp_dst=NULL, Bool just_ins=FAL
if (tmpins->opcode[i] != rip[i])
{
// ST_ERR_ST "$$HL,0$$\nBAD MATCH SSE check #1! %02X with %02X\n", tmpins->opcode[i], rip[i];
// D(tmpins, sizeof(CInst));"$$HL,1$$";
// Dump(tmpins, sizeof(CInst));"$$HL,1$$";
if (opsize == 32 && seg_size == 64)
{
tmpins2 = InstEntryFind(rip, 64, seg_size);
@ -393,7 +393,7 @@ U0 Ui(U8 *buf, U8 **_rip, I64 seg_size=64, I64 *_jmp_dst=NULL, Bool just_ins=FAL
if (tmpins->opcode[i] != rip[i])
{
// ST_ERR_ST "$$HL,0$$BAD MATCH SSE check #2! %02X with %02X\n", tmpins->opcode[i], rip[i];
// D(tmpins, sizeof(CInst));"\n$$HL,1$$";
// Dump(tmpins, sizeof(CInst));"\n$$HL,1$$";
goto sse_check_fail; // evaluate inst op with RIP. if not identical, not a match.
}
}

Binary file not shown.

View File

@ -309,7 +309,7 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$
* Note: We will never put multiple $LK,"Keyboard Tables",A="FI:::/Kernel/SerialDev/Keyboard.CC"$. Each country must make their own version of ZealOS. The $LK,"Intel Factory ROM",A="FF:::/Doc/Demands.DD,English"$ will have just English. Our $LK,"Charter",A="FI:::/Doc/Charter.DD"$ bans multiple country or architectures in the same version.
* 12 border chars in screen font codes 0x02-0x0D. $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$() $LK,"::/Demo/Games/CharDemo.CC"$. LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.
* 12 border chars in screen font codes 0x02-0x0D. $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDumpRegs",A="MN:RawDumpRegs"$() $LK,"::/Demo/Games/CharDemo.CC"$. LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.
* Super-simple high speed serial needs flow control. $FG,2$<CTRL-s>$FG$ and $FG,2$<CTRL-q>$FG$?

View File

@ -4,7 +4,7 @@ Press <CTRL-ALT-c> to break.
Rerun Program
Press <CTRL-ALT-d> to enter Debug.
> $LK,"Dr",A="MN:Dr"$; //Dump Registers
> $LK,"DumpRegs",A="MN:DumpRegs"$; //Dump Registers
> $LK,"G2",A="MN:G2"$; //Cont program
Press <CTRL-ALT-d> to enter Debug.

View File

@ -26,7 +26,7 @@ U0 RawAccess(I64 drv_let=0)
{
blk = I64Get("Block to Read: ", old_offset, 0, bd->max_blk);
BlkRead(drive, buf, blk, 1);
D(buf, BLK_SIZE);
Dump(buf, BLK_SIZE);
}
catch
PutExcept;
@ -40,4 +40,4 @@ U0 RawAccess(I64 drv_let=0)
RawAccess;
//See $LK,"BlkRead",A="MN:BlkRead"$(), $LK,"BlkWrite",A="MN:BlkWrite"$(), $LK,"DriveLock",A="MN:DriveLock"$(), $LK,"DriveUnlock",A="MN:DriveUnlock"$()
//$LK,"DBlk",A="MN:DBlk"$(), $LK,"DClus",A="MN:DClus"$(), $LK,"BlkDevLock",A="MN:BlkDevLock"$() and $LK,"BlkDevUnlock",A="MN:BlkDevUnlock"$().
//$LK,"BlkDump",A="MN:BlkDump"$(), $LK,"ClusDump",A="MN:ClusDump"$(), $LK,"BlkDevLock",A="MN:BlkDevLock"$() and $LK,"BlkDevUnlock",A="MN:BlkDevUnlock"$().

View File

@ -15,7 +15,7 @@ U0 SerializeTree()
"$$GREEN$$***************$$FG$$\n";
ptr = DirTreeSerialize(tmpde, &size);
DirTreeDel(tmpde);
D(ptr, size);
Dump(ptr, size);
"$$GREEN$$***************:%7d$$FG$$\n", size;
tmpde = DirTreeUnserialize(ptr);
LineRep2(DocPut, tmpde); //We don't have $LK,"CDirEntry",A="MN:CDirEntry"$.fullname

View File

@ -13,7 +13,7 @@ Test g1[] = {
{30, "Name3"}
};
D(g1, sizeof(g1));
Dump(g1, sizeof(g1));
"Time 1:%d\n", g1[1].time;
U0 Main1()
@ -23,7 +23,7 @@ U0 Main1()
{(tS % 10.0) * 100, "Static2"}, //Dynamic initialization
{30, "Static3"}
};
D(s1, sizeof(s1));
Dump(s1, sizeof(s1));
"Time 2:%d\n", s1[1].time;
}
@ -54,7 +54,7 @@ Test g2[] = {
{30, "name3"}
};
D(g2, sizeof(g2));
Dump(g2, sizeof(g2));
"Time 3:%d\n", g2[1].time;
U0 Main2()
@ -64,7 +64,7 @@ U0 Main2()
{(tS % 10.0) * 100, "static2"}, //No dynamic initialization--converted to const
{30, "static3"}
};
D(s2, sizeof(s2));
Dump(s2, sizeof(s2));
"Time 4:%d\n", s2[1].time;
}

View File

@ -98,14 +98,14 @@ U0 MPRadixSortDemo(I64 dummy=0)
MemCopy(arg2, arg1, sizeof(I32) * NUM);
QuickSort(arg2, NUM, sizeof(I32), &Compare);
"Time:%9.6f\n", tS - t0;
D(arg2 + NUM / 4);
Dump(arg2 + NUM / 4);
"$$GREEN$$QuickSortU32$$FG$$\n";
t0 = tS;
MemCopy(arg2, arg1, sizeof(I32)*NUM);
QuickSortU32(arg2, NUM);
"Time:%9.6f\n", tS - t0;
D(arg2 + NUM / 4);
Dump(arg2 + NUM / 4);
for (i = 0; i < my_mp_count; i++)
{
@ -140,7 +140,7 @@ U0 MPRadixSortDemo(I64 dummy=0)
j += bn[i];
}
"Time:%9.6f\n", tS - t0;
D(arg2 + NUM / 4);
Dump(arg2 + NUM / 4);
Free(arg1);
Free(arg2);

View File

@ -1,4 +1,21 @@
$WW,1$$FG,5$$TX+CX,"ChangeLog"$$FG$
$IV,1$----11/30/21 13:40:29----$IV,0$
* Raised version number to 1.05.
* $LK,"R",A="MN:R"$("DocDump", "$LK+PU,"DocDumpLines",A="MN:DocDumpLines"$");
* $LK,"R",A="MN:R"$("DocDm", "$LK+PU,"DocDumpMem",A="MN:DocDumpMem"$");
* $LK,"R",A="MN:R"$("DocD", "$LK+PU,"DocDump",A="MN:DocDump"$");
* $LK,"R",A="MN:R"$("Dump(U8", "$LK+PU,"FileDump",A="MN:FileDump"$(U8");
* $LK,"R",A="MN:R"$("DClus", "$LK+PU,"ClusDump",A="MN:ClusDump"$");
* $LK,"R",A="MN:R"$("DBlk", "$LK+PU,"BlkDump",A="MN:BlkDump"$");
* $LK,"R",A="MN:R"$("RawDm", "$LK+PU,"RawDumpMem",A="MN:RawDumpMem"$");
* $LK,"R",A="MN:R"$("RawDr", "$LK+PU,"RawDumpRegs",A="MN:RawDumpRegs"$");
* $LK,"R",A="MN:R"$("RawD", "$LK+PU,"RawDump",A="MN:RawDump"$");
* $LK,"R",A="MN:R"$("Dr", "$LK+PU,"DumpRegs",A="MN:DumpRegs"$");
* $LK,"R",A="MN:R"$("Dm", "$LK+PU,"DumpMem",A="MN:DumpMem"$");
* $LK,"R",A="MN:R"$("D(", "$LK+PU,"Dump",A="MN:Dump"$(", "-i");
* $LK,"R",A="MN:R"$("Who", "$LK+PU,"HashTableDump",A="MN:HashTableDump"$");
* $LK,"R",A="MN:R"$("Da", "$LK+PU,"DumpAddress",A="MN:DumpAddress"$");
$IV,1$----10/30/21 05:02:51----$IV,0$
* Added column headers to Rep functions.
* Changed $LK+PU,"ProfRep",A="FF:::/System/Utils/Profiler.CC,ProfSort"$ to sort by hits.
@ -128,7 +145,7 @@ $IV,1$----07/23/21 16:30:23----$IV,0$
$IV,1$----07/14/21 13:12:34----$IV,0$
* Raised version number to 0.08.
* Fixed non-writable drive throw when #include with F5 in $LK+PU,"DocPutKey",A="FF:::/System/DolDoc/DocPutKey.CC,SC_F5"$ and when attempting to $LK+PU,"save",A="FF:::/System/DolDoc/DocPutKey.CC,CH_CTRLS"$.
* Added top & right borders to $LK+PU,"RawDr",A="FF:::/Kernel/KDebug.CC,RawDr"$.
* Added top & right borders to $LK+PU,"RawDumpRegs",A="FF:::/Kernel/KDebug.CC,RawDumpRegs"$.
* Improved spacing in some debug commands.
* Fixed $LK+PU,"RawPutChar",A="MN:RawPutChar"$ and $LK+PU,"EdLite",A="MN:EdLite"$ tab width.
* Fixed $LK+PU,"Ui",A="MN:Ui"$ missing "0x" prefix syntax highlighter bug.
@ -377,7 +394,7 @@ $BK,1$* Zenith 1.0 released.$BK,0$
* Renamed VGAFlush() -> $LK,"LFBFlush",A="MN:LFBFlush"$().
* Updated $LK,"Palette Demo",A="FI:::/Demo/Graphics/Palette.CC"$ to use current palette environment.
* Shortened $LK,"CheckPtr",A="MN:CheckPtr"$() and $LK,"CheckCodePtr",A="MN:CheckCodePtr"$(). Even though boolean expressions outside of $HL$if$HL,0$ statements are compiled inefficiently, clarity and low line count is more important.
* $LK,"RawDr",A="MN:RawDr"$() is 40 columns off the right of the screen, instead of fixed at column 40.
* $LK,"RawDumpRegs",A="MN:RawDumpRegs"$() is 40 columns off the right of the screen, instead of fixed at column 40.
* Windows start at $LK,"4/5th the screen height",A="FF:::/Kernel/KTask.CC,text.rows"$ instead of row 13. System task window is $LK,"1/5th the screen height",A="FF:::/StartOS.CC,text.rows"$.
* $LK,"R",A="MN:R"$("RLf_VGA", "$LK,"RLf_VESA",A="MN:RLf_VESA"$");
* Removed VGA text mode support, and all definitions relating to it, including from the $LK,"kernel config",A="FI:::/Kernel/KConfig.CC"$.

View File

@ -10,13 +10,13 @@ $WW,1$$FG,5$$TX+CX,"Debugging Overview"$$FG$
* You can use $LK,"SysLog",A="MN:SysLog"$() to send text to the $LK,"System Task",A="FF:::/Doc/Glossary.DD,System Task"$ window. It works like $LK,"Print",A="MN:Print"$(). You could also use $LK,"RawPrint",A="MN:RawPrint"$().
* $LK,"D",A="MN:D"$(), $LK,"DocD",A="MN:DocD"$(), $LK,"RawD",A="MN:RawD"$() to do 16 column hex dump mem with numbering from zero. With $LK,"DocD",A="MN:DocD"$ the values are updated continually and you can alter mem by editing.
* $LK,"D",A="MN:D"$(), $LK,"DocDump",A="MN:DocDump"$(), $LK,"RawDump",A="MN:RawDump"$() to do 16 column hex dump mem with numbering from zero. With $LK,"DocDump",A="MN:DocDump"$ the values are updated continually and you can alter mem by editing.
* $LK,"Dm",A="MN:Dm"$(), $LK,"DocDm",A="MN:DocDm"$(), $LK,"RawDm",A="MN:RawDm"$() to do 16 column hex dump mem with addresses showing.
* $LK,"DumpMem",A="MN:DumpMem"$(), $LK,"DocDumpMem",A="MN:DocDumpMem"$(), $LK,"RawDumpMem",A="MN:RawDumpMem"$() to do 16 column hex dump mem with addresses showing.
* $LK,"Da",A="MN:Da"$() to do one column address dump (for stack, etc.) with symbolic addresses.
* $LK,"DumpAddress",A="MN:DumpAddress"$() to do one column address dump (for stack, etc.) with symbolic addresses.
* $LK,"Dr",A="MN:Dr"$() dumps registers. You can display and modify registers in the debugger with variable-like labels, $FG,4$_RAX$FG$, $FG,4$_RBX$FG$, etc.
* $LK,"DumpRegs",A="MN:DumpRegs"$() dumps registers. You can display and modify registers in the debugger with variable-like labels, $FG,4$_RAX$FG$, $FG,4$_RBX$FG$, etc.
* $LK,"ClassRep",A="MN:ClassRep"$() and the dynamic version $LK,"ClassRepD",A="MN:ClassRepD"$() can be used to dump structures.

View File

@ -156,7 +156,7 @@ $ID,2$A left expression arg, $FG,2$LE=<Exp>$FG$, will return a number when click
See $LK,"PopUpRangeI64",A="MN:PopUpRangeI64"$().
$ID,-2$$TR,"HX Hex Edit"$
$ID,2$See $LK,"DocD",A="MN:DocD"$().
$ID,2$See $LK,"DocDump",A="MN:DocDump"$().
$ID,-2$$TR,"TR Tree Widget"$
$ID,2$A tree widget is a branch in a collapsable tree. The domain of the branch extends from the first +indent until enough -indents bring it back to where it started. Tree's begin collapsed unless a $FG,2$-C$FG$ flag is present.

View File

@ -69,7 +69,7 @@ $ID,2$Binary executable files have export symbols which are loaded into the symb
$ID,-2$$TR,"Why doesn't assert work?"$
$ID,2$$FG,2$#assert$FG$ might print a message at COMPILE time, not run time.
$ID,-2$$TR,"Why doesn't C++ public work?"$
$ID,2$The word $FG,2$public$FG$ in $LK,"CosmiC",A="FI:::/Doc/CosmiC.DD"$ does very little except allow the $LK,"Help & Index",A="FI:::/Doc/HelpIndex.DD"$ and $LK,"Who",A="MN:Who"$() to exclude meaningless symbols. If you wish a full report of public and nonpublic symbols $MA-X+PU,"Click Here",LM="DocMax(1000000);Who;View;\n"$.
$ID,2$The word $FG,2$public$FG$ in $LK,"CosmiC",A="FI:::/Doc/CosmiC.DD"$ does very little except allow the $LK,"Help & Index",A="FI:::/Doc/HelpIndex.DD"$ and $LK,"HashTableDump",A="MN:HashTableDump"$() to exclude meaningless symbols. If you wish a full report of public and nonpublic symbols $MA-X+PU,"Click Here",LM="DocMax(1000000);HashTableDump;View;\n"$.
$ID,-2$$TR,"How does the debugger do source debugging?"$
$ID,2$When compilation takes place, the structures used by the compiler stick around. Data on classes can be accessed. See $LK,"ClassRep",A="MN:ClassRep"$().
$ID,-2$$TR,"What is ASCII 5 doing in my text files?"$

View File

@ -98,7 +98,7 @@ $FG,5$$TX+CX,"Hash Sym Tables"$$FG$
* $FG,2$Fs->hash_table$FG$ holds user CosmiC symbols and if a symbol is not found, it checks parents. When a duplicate symbol is added to the table, it overshadows the prev symbol. When developing software, typically you include the file at the cmd prompt, make changes and reinclude it. Old symbols are overshadowed but they are still there. Periodically, kill the TASK and start fresh when mem is low. If you wish your applications to free themselves instead of staying in mem, spawn or $LK,"PopUp",A="MN:PopUp"$() a task to run the application and kill it when it's done.
* To display the contents of a hash table, use the $LK,"Who",A="MN:Who"$() routine or the varients. $LK,"HashDepthRep",A="MN:HashDepthRep"$() gives a histogram of how long the chains are, in case you wish to make hash table sizes bigger.
* To display the contents of a hash table, use the $LK,"HashTableDump",A="MN:HashTableDump"$() routine or the varients. $LK,"HashDepthRep",A="MN:HashDepthRep"$() gives a histogram of how long the chains are, in case you wish to make hash table sizes bigger.

View File

@ -139,7 +139,7 @@ I64 HtmlGen()
progress1 = 0;
progress1_max = FileCount(FilesFind("::/", FUF_RECURSE));
DirIndex("::/HTML/", "::/", "Who;");
DirIndex("::/HTML/", "::/", "HashTableDump;");
res = Dir2Html("::/", "::/HTML/");

View File

@ -44,7 +44,7 @@ U0 TCPTest()
"\n\n";
Dm(buffer, buffer_size);
DumpMem(buffer, buffer_size);
ClassRep(tcp_globals.bound_socket_tree);

View File

@ -45,7 +45,7 @@ U0 TCPTest()
"\n\n";
D(buffer, buffer_size, FALSE);
Dump(buffer, buffer_size, FALSE);
"\n\n";

View File

@ -448,7 +448,7 @@ public U0 PaletteEditor()
case CH_CTRLA:
PESave(TRUE, c);
break;
case CH_ESC:
case CH_ESC:
MemCopy(&gr_temp_palette, gr_palette, sizeof(CBGR24) * COLORS_NUM);
keep_palette = TRUE;
case CH_SHIFT_ESC:

View File

@ -192,9 +192,9 @@ U0 CallerRep(U8 **rbp=NULL, CTask *task=NULL)
}
}
U0 D(U8 *addr, I64 count=0x80, Bool show_offset=TRUE)
U0 Dump(U8 *addr, I64 count=0x80, Bool show_offset=TRUE)
{//Dump mem, showing offsets.
//See $LK,"DocD",A="MN:DocD"$() for a live dump.
//See $LK,"DocDump",A="MN:DocDump"$() for a live dump.
I64 i, j, ch;
U8 *ptr = addr;
@ -227,12 +227,12 @@ U0 D(U8 *addr, I64 count=0x80, Bool show_offset=TRUE)
}
}
U0 Dm(U8 *addr, I64 count=0x80)
U0 DumpMem(U8 *addr, I64 count=0x80)
{//Show mem address, not offsets.
D(addr, count, FALSE);
Dump(addr, count, FALSE);
}
U0 Da(U8 **addr, I64 count=0x10)
U0 DumpAddress(U8 **addr, I64 count=0x10)
{//Dump mem, showing symbolic addresses.
while (count-- > 0)
{
@ -260,7 +260,7 @@ U0 RawPrint(I64 mS=100, U8 *format, ...)
Free(buf);
}
U0 RawD(I64 mS=100, U8 *addr, I64 count=0x80)
U0 RawDump(I64 mS=100, U8 *addr, I64 count=0x80)
{//Dumps a block of mem using $LK,"Raw",A="MN:Raw"$
//screen output for a fixed length
//of time.
@ -270,7 +270,7 @@ U0 RawD(I64 mS=100, U8 *addr, I64 count=0x80)
CLI
old_raw = Raw(ON);
old_input_filter = LBtr(&Fs->task_flags, TASKf_INPUT_FILTER_TASK);
D(addr, count);
Dump(addr, count);
Busy(mS << 10);
POPFD
@ -278,7 +278,7 @@ U0 RawD(I64 mS=100, U8 *addr, I64 count=0x80)
Raw(old_raw);
}
U0 RawDm(I64 mS=100, U8 *addr, I64 count=0x80)
U0 RawDumpMem(I64 mS=100, U8 *addr, I64 count=0x80)
{//Dumps a block of mem using $LK,"Raw",A="MN:Raw"$
//screen output for a fixed length
//of time.
@ -288,7 +288,7 @@ U0 RawDm(I64 mS=100, U8 *addr, I64 count=0x80)
CLI
old_raw = Raw(ON);
old_input_filter = LBtr(&Fs->task_flags, TASKf_INPUT_FILTER_TASK);
Dm(addr, count);
DumpMem(addr, count);
Busy(mS << 10);
POPFD
@ -322,7 +322,7 @@ I64 *TaskRegAddr(CTask *task, I64 reg_num)
#define RAWDR_COL (text.cols - 40)
U0 RawDr(CTask *task=NULL)
U0 RawDumpRegs(CTask *task=NULL)
{
I64 i, j, old_col = text.raw_col;
Bool old_raw = Raw(ON);
@ -380,7 +380,7 @@ U0 RawDr(CTask *task=NULL)
Raw(old_raw);
}
U0 Dr(CTask *task=NULL)
U0 DumpRegs(CTask *task=NULL)
{//Dump registers
I64 i;
@ -599,14 +599,14 @@ U0 DebugHelp()
"The cmd line is basically the same as normal. Here are some common\n"
"debugging commands.\n\n"
">EdLite(\"FileName\");\t\t\t\t// Edit file.\n"
">D(0x100000);\t\t\t\t\t\t// Dump page tables.\n"
">Dm(0x100000);\t\t\t\t\t\t// Dump page tables.\n"
">Dm(Fs, sizeof(CTask));\t\t\t\t// Dump current task record.\n"
">Dump(0x100000);\t\t\t\t\t// Dump page tables.\n"
">DumpMem(0x100000);\t\t\t\t\t// Dump page tables.\n"
">DumpMem(Fs, sizeof(CTask));\t\t// Dump current task record.\n"
">ClassRep(Fs, \"CTask\", 1);\t\t\t// Dump current task record.\n"
">ClassRep(Fs,, 1);\t\t\t\t\t// (It knows lastclass.)\n"
">CallerRep;\t\t\t\t\t\t\t// Stack trace report.\n"
">Da(_RSP);\t\t\t\t\t\t\t// Dump stack.\n"
">Dr;\t\t\t\t\t\t\t\t// Dump Registers.\n"
">DumpAddress(_RSP);\t\t\t\t\t// Dump stack.\n"
">DumpRegs;\t\t\t\t\t\t\t// Dump Registers.\n"
">1 + 2 * 3 + &Print;\t\t\t\t// Show calculation res.\n"
">*(0x70000)(I64 *) = 0x123456789;\t// Assign value to 0x70000-0x70007.\n"
">_RAX = 0x1234;\t\t\t\t\t\t// Set RAX to 0x1234.\n"
@ -647,6 +647,7 @@ U0 Debug2()
}
else
debug.panic = TRUE;
"\n";
old_waiting_message = LBtr(&Fs->task_flags, TASKf_AWAITING_MESSAGE);
old_win_inhibit = Fs->win_inhibit;
Fs->win_inhibit = WIG_USER_TASK_DEFAULT;

View File

@ -13,7 +13,7 @@ CTask *sys_winmgr_task,
U8 *rev_bits_table; //Table with U8 bits reversed
CDate local_time_offset;
F64 *pow10_I64,
sys_os_version = 1.04;
sys_os_version = 1.05;
CAutoCompleteDictGlobals acd;
CAutoCompleteGlobals ac;

View File

@ -183,10 +183,10 @@ public extern Bool Man(U8 *st, I64 edf_dof_flags=0);
#help_index "Debugging/Dump"
public extern U0 CallerRep(U8 **rbp=NULL, CTask *task=NULL);
public extern U0 D( U8 *addr, I64 count=0x80, Bool show_offset=TRUE);
public extern U0 Da(U8 **addr, I64 count=0x10);
public extern U0 Dm(U8 *addr, I64 count=0x80);
public extern U0 Dr( CTask *task=NULL);
public extern U0 Dump( U8 *addr, I64 count=0x80, Bool show_offset=TRUE);
public extern U0 DumpAddress(U8 **addr, I64 count=0x10);
public extern U0 DumpMem(U8 *addr, I64 count=0x80);
public extern U0 DumpRegs( CTask *task=NULL);
public extern U0 StackRep( CTask *task=NULL);
extern I64 *TaskRegAddr(CTask *task, I64 reg_num);
@ -203,9 +203,9 @@ public extern CHash *FunSegFind(U8 *addr, I64 *_offset);
#help_index "Debugging/Raw Output"
public extern Bool IsRaw();
public extern Bool Raw(Bool val);
public extern U0 RawD( I64 mS=100, U8 *addr, I64 count=0x80);
public extern U0 RawDm(I64 mS=100, U8 *addr, I64 count=0x80);
extern U0 RawDr(CTask *task=NULL);
public extern U0 RawDump( I64 mS=100, U8 *addr, I64 count=0x80);
public extern U0 RawDumpMem(I64 mS=100, U8 *addr, I64 count=0x80);
extern U0 RawDumpRegs(CTask *task=NULL);
public extern U0 RawPrint(I64 mS=100, U8 *format, ...);
public extern U0 RawPutChar(I64 ch);
public extern U0 LFBFlush();

View File

@ -1815,7 +1815,7 @@ U0 OSTestSuite()
}
TS("SATARep"); XTalkWait(task, "SATARep;\nSleep(750);\n");
TS("HashDepthRep"); XTalkWait(task, "HashDepthRep(sys_task->hash_table);Sleep(750);\n");
TS("Who"); XTalkWait(task, "Who;Sleep(750);\n");
TS("HashTableDump"); XTalkWait(task, "HashTableDump;Sleep(750);\n");
TS("DriveRep"); XTalkWait(task, "DriveRep;Sleep(750);\n");
TS("TaskRep"); XTalkWait(task, "TaskRep;Sleep(750);\n");
TS("VideoRep"); XTalkWait(task, "VideoRep;Sleep(750);\n");

Binary file not shown.

View File

@ -1,5 +1,5 @@
#help_index "File/Cmd Line (Typically);Cmd Line (Typically)"
public U8 *DBlk(I64 blk, Bool write=FALSE)
public U8 *BlkDump(I64 blk, Bool write=FALSE)
{//Dump disk block. Optionally, write.
//If you set write to TRUE, the block will
//be written when you press <ESC>.
@ -7,7 +7,7 @@ public U8 *DBlk(I64 blk, Bool write=FALSE)
U8 *buf = MAlloc(BLK_SIZE);
BlkRead(Fs->cur_dv, buf, blk, 1);
DocD(buf, BLK_SIZE);
DocDump(buf, BLK_SIZE);
if (write)
{
"Edit and press <ESC> to write or <SHIFT-ESC>\n";
@ -21,7 +21,7 @@ public U8 *DBlk(I64 blk, Bool write=FALSE)
return buf;
}
public U8 *DClus(I64 c, Bool write=FALSE, I64 num=0)
public U8 *ClusDump(I64 c, Bool write=FALSE, I64 num=0)
{//Dump disk cluster. Optionally, write.
//If you set write to TRUE, the cluster will
//be written when you press <ESC>.
@ -32,7 +32,7 @@ public U8 *DClus(I64 c, Bool write=FALSE, I64 num=0)
c = ClusNumNext(Fs->cur_dv, c, num);
ClusRead(Fs->cur_dv, buf, c, 1);
"Clus:%X\n", c;
DocD(buf, Fs->cur_dv->spc << BLK_SIZE_BITS);
DocDump(buf, Fs->cur_dv->spc << BLK_SIZE_BITS);
if (write)
{
"Edit and press <ESC> to write or <SHIFT-ESC>\n";
@ -46,7 +46,7 @@ public U8 *DClus(I64 c, Bool write=FALSE, I64 num=0)
return buf;
}
public U8 *Dump(U8 *filename, Bool write=FALSE)
public U8 *FileDump(U8 *filename, Bool write=FALSE)
{//Dump file. Optionally, write.
//If you set write to TRUE, the file will
//be written when you press <ESC>.
@ -55,7 +55,7 @@ public U8 *Dump(U8 *filename, Bool write=FALSE)
if (buf = FileRead(filename,&size))
{
DocD(buf, size);
DocDump(buf, size);
if (write)
{
"Edit and press <ESC> to write or <SHIFT-ESC>\n";

View File

@ -238,7 +238,7 @@ public U0 ClassRep(U8 *_d, U8 *class_name=lastclass, I64 max_depth=2, Bool u8_ch
if (IsRaw)
{
DocDump(doc, 100000);
DocDumpLines(doc, 100000);
DocDel(doc);
}
}
@ -263,7 +263,7 @@ public U0 ClassRepD(U8 *_d, U8 *class_name=lastclass, I64 max_depth=2, Bool u8_c
DocRecalc(doc);
if (IsRaw)
{
DocDump(doc, 100000);
DocDumpLines(doc, 100000);
DocDel(doc);
}
}

View File

@ -16,7 +16,7 @@ U0 LoadDocDefines()
$TR,"LineRep"$
$ID,2$DefinePrint("DD_ZEALOS_LOC","95,267");
$ID,-2$
$ID,-2$
DefinePrint("DD_MP_VECT", "%08X", MP_VECT_ADDR);
DefinePrint("DD_MP_VECT_END", "%08X", MP_VECT_ADDR + COREAP_16BIT_INIT_END - COREAP_16BIT_INIT - 1);

View File

@ -357,7 +357,7 @@ public Bool DocType(CDoc *doc=NULL, U8 *filename, I64 trailing_new_lines=1)
doc2 = DocRead(filename);
DocInsDoc(doc, doc2);
if (IsRaw)
DocDump(doc2, 100000);
DocDumpLines(doc2, 100000);
DocDel(doc2);
res = TRUE;
}

View File

@ -277,7 +277,7 @@ public U0 DocPrintAtomic(CDoc *doc=NULL, U8 *format, ...)
Free(buf);
}
U0 DocDump(CDoc *doc, I64 uS_delay=0)
U0 DocDumpLines(CDoc *doc, I64 uS_delay=0)
{
U8 *st;
CDocEntry *doc_e, *doc_e2;
@ -349,7 +349,7 @@ public CDocEntry *DocPutLine(CDoc *doc=NULL, CDocEntry *doc_e)
#help_index "Debugging/Dump;DolDoc/Cmd Line (Typically);"\
"Cmd Line (Typically);DolDoc/Output;StdOut/DolDoc"
public U0 DocDm(U8 *buf, I64 count=0x80)
public U0 DocDumpMem(U8 *buf, I64 count=0x80)
{//Dump live chunk of mem showing addresses. Can be edited.
CDocEntry *doc_e;
CDoc *doc = DocPut;
@ -363,7 +363,7 @@ public U0 DocDm(U8 *buf, I64 count=0x80)
DocUnlock(doc);
}
public U0 DocD(U8 *buf, I64 count=0x80)
public U0 DocDump(U8 *buf, I64 count=0x80)
{//Dump live chunk of mem showing offsets. Can be edited.
CDocEntry *doc_e;
CDoc *doc = DocPut;

View File

@ -15,11 +15,11 @@ extern U0 DocBottom(CDoc *doc=NULL);
extern U0 DocCenter(CDoc *doc=NULL, I64 recalc_flags=RECALCt_NORMAL);
extern U0 DocClear(CDoc *doc=NULL, Bool clear_holds=FALSE);
extern Bool DocCursor(Bool show=OFF, CDoc *doc=NULL);
extern U0 DocD(U8 *buf, I64 count=0x80);
extern U0 DocDump(U8 *buf, I64 count=0x80);
extern U0 DocDataFormat(CDoc *doc, CDocEntry *doc_e, I64 d=DOCM_CANCEL);
extern U0 DocDel(CDoc *doc);
extern CDoc *DocDisplay(CTask *task=NULL);
extern U0 DocDump(CDoc *doc, I64 uS_delay=0);
extern U0 DocDumpLines(CDoc *doc, I64 uS_delay=0);
extern CDocEntry *DocEntryCopy(CDoc *doc, CDocEntry *doc_e);
extern U0 DocEntryDel(CDoc *doc, CDocEntry *doc_e);
extern Bool DocForm(U8 *_d, U8 *class_name=lastclass, I64 dof_flags=0, U8 *header=NULL, U8 *footer=NULL);

View File

@ -166,7 +166,7 @@ I64 HashEntriesCompare3(CWho *h1, CWho *h2)
}
}
public U0 Who(U8 *fu_flags=NULL, CHashTable *h=NULL, U8 *idx=NULL, CDoc *doc=NULL)
public U0 HashTableDump(U8 *fu_flags=NULL, CHashTable *h=NULL, U8 *idx=NULL, CDoc *doc=NULL)
{ //Dump hash symbol table.
// "+p" for only public symbols
// "+m" to order by number (normally alphabetical)
@ -403,7 +403,7 @@ public I64 HashDepthRep(CHashTable *table=NULL)
public U0 DocHelpIdx(CDoc *doc, U8 *idx)
{//Put to doc report for given help idx.
Who("+p",, idx, doc);
HashTableDump("+p",, idx, doc);
}
public U0 PopUpHelpIndex(U8 *idx, CTask *parent=NULL)