diff --git a/packages/wasi/wasienv.pas b/packages/wasi/wasienv.pas index 3d7e069..a403005 100644 --- a/packages/wasi/wasienv.pas +++ b/packages/wasi/wasienv.pas @@ -303,6 +303,8 @@ type TWASIExports = Class External name 'Object' (TJSModulesExports) Public Procedure start; external name '_start'; + function AllocMem(aSize : Integer) : Integer; external name 'wasiAlloc'; + function freeMem(aLocation : Integer) : Integer; external name 'wasiFree'; end; TGetConsoleInputBufferEvent = Reference to Procedure(Sender : TObject; Var AInput : TJSUint8Array);