From 705e4c08f59f354d2d9d2b2c3b16620abd9a7d49 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 22 Jun 2022 16:11:03 +0200
Subject: [PATCH] * Fix getting clock time

---
 packages/wasi/wasienv.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/wasi/wasienv.pas b/packages/wasi/wasienv.pas
index 6d2899c..615786d 100644
--- a/packages/wasi/wasienv.pas
+++ b/packages/wasi/wasienv.pas
@@ -769,7 +769,7 @@ Var
 
 begin
   lowWord:=value;
-  highWord:=0;
+  highWord:=value shr 32;
   if LittleEndian then
     begin
     view.setUint32(ByteOffset+0, lowWord, littleEndian);
@@ -801,6 +801,7 @@ begin
   WASI_CLOCK_THREAD_CPUTIME_ID:
     Result:=TJSDate.Now;
   end;
+  Result:=Result*1000000
 end;