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

src/include/util.pas

@@ -279,12 +279,12 @@ var
     i   : uint32;
 
 begin
-    push_trace('util.memset');
+    //push_trace('util.memset');
     for i:=0 to size-1 do begin
         loc:= puint8(location + i);
         loc^:= value;
     end;
-    pop_trace;
+    //pop_trace;
 end;
 
 procedure memcpy(source : uint32; dest : uint32; size : uint32);
@@ -293,13 +293,13 @@ var
     i : uint32;
 
 begin
-    push_trace('util.memcpy');
+    //push_trace('util.memcpy');
     for i:=0 to size-1 do begin
         src:= puint8(source + i);
         dst:= puint8(dest + i);
         dst^:= src^;
     end;
-    pop_trace;
+    //pop_trace;
 end;
 
 function getWord(i : uint32; hi : boolean) : uint16;

src/terminal.pas

@@ -90,7 +90,7 @@ var
     i : uint32;
 
 begin
-    push_trace('terminal.paramCount');
+    //push_trace('terminal.paramCount');
     current:= params;
     i:= 0;
     while current^.param <> nil do begin
@@ -98,7 +98,7 @@ begin
         current:= current^.next;
     end;
     paramCount:= i-1;
-    pop_trace;
+    //pop_trace;
 end;
 
 function getParams(buf : TCommandBuffer) : PParamList;
@@ -110,7 +110,7 @@ var
     current : PParamList;
 
 begin
-    push_trace('terminal.getParams');
+    //push_trace('terminal.getParams');
     root:= PParamList(kalloc(sizeof(TParamList)));
     current:= root;
     current^.next:= nil;
@@ -136,7 +136,7 @@ begin
         inc(finish);     
     end;
     getParams:= root;
-    pop_trace;
+    //pop_trace;
 end;
 
 function getParam(index : uint32; params : PParamList) : pchar;
@@ -146,7 +146,7 @@ var
     i      : uint32;
 
 begin
-    push_trace('terminal.getParam');
+    //push_trace('terminal.getParam');
     result:= nil;
     search:= params;
     for i:=0 to index do begin
@@ -154,7 +154,7 @@ begin
     end;
     result:= search^.param;
     getParam:= result;
-    pop_trace;
+    //pop_trace;
 end;
 
 procedure freeParams(params : PParamList);
@@ -163,7 +163,7 @@ var
     next : PParamList;
 
 begin
-    push_trace('terminal.freeParams');
+    //push_trace('terminal.freeParams');
     p:= params;
     next:= p^.next;
     while p^.next <> nil do begin
@@ -172,7 +172,7 @@ begin
         p:= next;
         next:= p^.next;
     end;
-    pop_trace;
+    //pop_trace;
 end;
 
 procedure testParams(params : PParamList);