dan/Cosmos
1
0
Fork 0
mirror of https://github.com/danbulant/Cosmos synced 2026-05-24 12:35:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Browse source
This commit is contained in:
kudzu_cp 2012-07-08 15:27:48 +00:00
parent 4593c05251
commit ef487a6513
2 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
source2/Compiler/Cosmos.Compiler.DebugStub/Commands.cs
View file

@ -26,6 +26,28 @@ namespace Cosmos.Debug.DebugStub {
new Label("DebugStub_Ping_Exit"); new Label("DebugStub_Ping_Exit");
new Return(); new Return();
new Comment("X#: procedure TraceOn {");
new Label("DebugStub_TraceOn");
new Comment("Tracing.On");
new Comment(".TraceMode = 1");
new Comment("X#: }");
new Label("DebugStub_TraceOn_Exit");
new Return();
new Comment("X#: procedure TraceOff {");
new Label("DebugStub_TraceOff");
new Comment("Tracing.Off");
new Comment(".TraceMode = 0");
new Comment("X#: }");
new Label("DebugStub_TraceOff_Exit");
new Return();
} }
} }
} }

10
source2/Compiler/Cosmos.Compiler.DebugStub/Commands.xs
View file

@ -5,3 +5,13 @@ procedure Ping {
AL = 13 AL = 13
Call .ComWriteAL Call .ComWriteAL
} }
procedure TraceOn {
# Tracing.On
#.TraceMode = 1
}
procedure TraceOff {
# Tracing.Off
#.TraceMode = 0
}