git-svn-id: https://spexeah.com:8443/svn/Asuro@497 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

2018-04-11 17:13:34 +00:00 · 2018-04-11 17:13:34 +00:00 · 44d31235d7
commit 44d31235d7
parent 82a497430f
65 changed files with 33 additions and 20 deletions
--- a/Asuro.iso
+++ b/Asuro.iso
--- a/lib/E1000.ppu
+++ b/lib/E1000.ppu
--- a/lib/IDE.ppu
+++ b/lib/IDE.ppu
--- a/lib/PCI.ppu
+++ b/lib/PCI.ppu
--- a/lib/USB.ppu
+++ b/lib/USB.ppu
--- a/lib/bios_data_area.ppu
+++ b/lib/bios_data_area.ppu
--- a/lib/console.ppu
+++ b/lib/console.ppu
--- a/lib/drivermanagement.ppu
+++ b/lib/drivermanagement.ppu
--- a/lib/drivertypes.ppu
+++ b/lib/drivertypes.ppu
--- a/lib/eth2.ppu
+++ b/lib/eth2.ppu
--- a/lib/gdt.ppu
+++ b/lib/gdt.ppu
--- a/lib/idt.ppu
+++ b/lib/idt.ppu
--- a/lib/ipv4.ppu
+++ b/lib/ipv4.ppu
--- a/lib/irq.ppu
+++ b/lib/irq.ppu
--- a/lib/isr.ppu
+++ b/lib/isr.ppu
--- a/lib/isr0.ppu
+++ b/lib/isr0.ppu
--- a/lib/isr1.ppu
+++ b/lib/isr1.ppu
--- a/lib/isr10.ppu
+++ b/lib/isr10.ppu
--- a/lib/isr11.ppu
+++ b/lib/isr11.ppu
--- a/lib/isr12.ppu
+++ b/lib/isr12.ppu
--- a/lib/isr13.ppu
+++ b/lib/isr13.ppu
--- a/lib/isr14.ppu
+++ b/lib/isr14.ppu
--- a/lib/isr15.ppu
+++ b/lib/isr15.ppu
--- a/lib/isr16.ppu
+++ b/lib/isr16.ppu
--- a/lib/isr17.ppu
+++ b/lib/isr17.ppu
--- a/lib/isr18.ppu
+++ b/lib/isr18.ppu
--- a/lib/isr2.ppu
+++ b/lib/isr2.ppu
--- a/lib/isr3.ppu
+++ b/lib/isr3.ppu
--- a/lib/isr32.ppu
+++ b/lib/isr32.ppu
--- a/lib/isr33.ppu
+++ b/lib/isr33.ppu
--- a/lib/isr4.ppu
+++ b/lib/isr4.ppu
--- a/lib/isr40.ppu
+++ b/lib/isr40.ppu
--- a/lib/isr44.ppu
+++ b/lib/isr44.ppu
--- a/lib/isr5.ppu
+++ b/lib/isr5.ppu
--- a/lib/isr6.ppu
+++ b/lib/isr6.ppu
--- a/lib/isr7.ppu
+++ b/lib/isr7.ppu
--- a/lib/isr76.ppu
+++ b/lib/isr76.ppu
--- a/lib/isr8.ppu
+++ b/lib/isr8.ppu
--- a/lib/isr9.ppu
+++ b/lib/isr9.ppu
--- a/lib/isr_types.ppu
+++ b/lib/isr_types.ppu
--- a/lib/kernel.ppu
+++ b/lib/kernel.ppu
--- a/lib/keyboard.ppu
+++ b/lib/keyboard.ppu
--- a/lib/libpconsole.a
+++ b/lib/libpconsole.a
--- a/lib/libpmultiboot.a
+++ b/lib/libpmultiboot.a
--- a/lib/libpsystem.a
+++ b/lib/libpsystem.a
--- a/lib/lists.ppu
+++ b/lib/lists.ppu
--- a/lib/lmemorymanager.ppu
+++ b/lib/lmemorymanager.ppu
--- a/lib/mouse.ppu
+++ b/lib/mouse.ppu
--- a/lib/multiboot.ppu
+++ b/lib/multiboot.ppu
--- a/lib/net.ppu
+++ b/lib/net.ppu
--- a/lib/nettypes.ppu
+++ b/lib/nettypes.ppu
--- a/lib/netutils.ppu
+++ b/lib/netutils.ppu
--- a/lib/pmemorymanager.ppu
+++ b/lib/pmemorymanager.ppu
--- a/lib/scheduler.ppu
+++ b/lib/scheduler.ppu
--- a/lib/storagemanagement.ppu
+++ b/lib/storagemanagement.ppu
--- a/lib/strings.ppu
+++ b/lib/strings.ppu
--- a/lib/system.o
+++ b/lib/system.o
--- a/lib/system.ppu
+++ b/lib/system.ppu
--- a/lib/terminal.ppu
+++ b/lib/terminal.ppu
--- a/lib/testdriver.ppu
+++ b/lib/testdriver.ppu
--- a/lib/tss.ppu
+++ b/lib/tss.ppu
--- a/lib/util.ppu
+++ b/lib/util.ppu
--- a/lib/vmemorymanager.ppu
+++ b/lib/vmemorymanager.ppu
--- a/src/include/system.pas
+++ b/src/include/system.pas
@ -15,6 +15,7 @@ const
     KERNEL_VIRTUAL_BASE = $C0000000;
     KERNEL_PAGE_NUMBER = KERNEL_VIRTUAL_BASE SHR 22;
     BSOD_ENABLE = true;
+     TRACER_ENABLE = true;

 type
    //internal types
--- a/src/tracer.pas
+++ b/src/tracer.pas
@ -22,7 +22,7 @@ var

 procedure freeze;
 begin
-    t_ready:= false;
+    if TRACER_ENABLE then t_ready:= false;
 end;

 procedure push_trace(t_name : pchar);
@ -30,24 +30,28 @@ var
    mem : void;

 begin
-    if t_ready then begin
-        if not Locked then begin
-            Locked:= true;
-            mem:= LL_Insert(TraceStack, 0);
-            memset(uint32(mem), 0, StringSize(t_name) + 5);
-            memcpy(uint32(t_name), uint32(mem), StringSize(t_name) + 1);
-            Locked:= false;
+    if TRACER_ENABLE then begin
+        if t_ready then begin
+            if not Locked then begin
+                Locked:= true;
+                mem:= LL_Insert(TraceStack, 0);
+                memset(uint32(mem), 0, StringSize(t_name) + 5);
+                memcpy(uint32(t_name), uint32(mem), StringSize(t_name) + 1);
+                Locked:= false;
+            end;
        end;
    end;
 end;

 procedure pop_trace;
 begin
-    if t_ready then begin
-        if not Locked then begin
-            Locked:= true;
-            LL_Delete(TraceStack, 0);
-            Locked:= false;
+    if TRACER_ENABLE then begin
+        if t_ready then begin
+            if not Locked then begin
+                Locked:= true;
+                LL_Delete(TraceStack, 0);
+                Locked:= false;
+            end;
        end;
    end;
 end;
@ -55,26 +59,34 @@ end;
 function get_last_trace : pchar;
 begin
    get_last_trace:= nil;
-    if t_ready then begin
-        get_last_trace:= pchar(LL_Get(TraceStack, 0));
+    if TRACER_ENABLE then begin
+        if t_ready then begin
+            get_last_trace:= pchar(LL_Get(TraceStack, 0));
+        end;
    end;
 end;

 procedure init;
 begin
-    TraceStack:= LL_New(255);
-    t_ready:= true;
-    push_trace('kmain');
+    if TRACER_ENABLE then begin
+        TraceStack:= LL_New(255);
+        t_ready:= true;
+        push_trace('kmain');
+    end;
 end;

 function get_trace_count : uint32;
 begin
-    get_trace_count:= LL_Size(TraceStack);
+    if TRACER_ENABLE then begin
+        get_trace_count:= LL_Size(TraceStack);
+    end;
 end;

 function get_trace_N(idx : uint32) : pchar;
 begin
-     get_trace_N:= pchar(LL_Get(TraceStack, idx));
+    if TRACER_ENABLE then begin
+        get_trace_N:= pchar(LL_Get(TraceStack, idx));
+    end;
 end;

 end.