paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-12 17:09:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix getting clock time

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-22 16:11:03 +02:00
parent a897cae63e
commit 705e4c08f5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/wasi/wasienv.pas
View File

@ -769,7 +769,7 @@ Var
begin begin
lowWord:=value; lowWord:=value;
highWord:=0; highWord:=value shr 32;
if LittleEndian then if LittleEndian then
begin begin
view.setUint32(ByteOffset+0, lowWord, littleEndian); view.setUint32(ByteOffset+0, lowWord, littleEndian);
@ -801,6 +801,7 @@ begin
WASI_CLOCK_THREAD_CPUTIME_ID: WASI_CLOCK_THREAD_CPUTIME_ID:
Result:=TJSDate.Now; Result:=TJSDate.Now;
end; end;
Result:=Result*1000000
end; end;