Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
kieron
2018-04-29 19:10:51 +00:00
parent 2fb551d5ec
commit 360c3eba3e
11 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/include/util.pas
View File

@ -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;

16
src/terminal.pas
View File

@ -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);