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@657 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-04 00:08:21 +00:00
parent 1fb51e6cdb
commit 0406efe0ec
13 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/cpu.pas
View File

@ -163,7 +163,7 @@ begin
if CPUID.Capabilities0^.TSC then begin
t1:= getDateTime;
t2:= getDateTime;
c2:= 0;
c1:= getTSC;
while (t1.Seconds = t2.Seconds) do begin
t2:= getDateTime;
c1:= getTSC;

1
src/include/asuro.pas
View File

@ -9,6 +9,7 @@ const
VERSION_SUB = '0';
REVISION = '653';
RELEASE = 'a';
LINE_COUNT = 26780;
implementation

2
src/prog/terminal.pas
View File

@ -207,6 +207,8 @@ end;
procedure version(params : PParamList);
begin
console.writestringlnWND(asuro.VERSION, TERMINAL_HWND);
console.writestringWND('Line Count: ', TERMINAL_HWND);
console.writeintlnWND(LINE_COUNT, TERMINAL_HWND);
end;
procedure help(params : PParamList);