Browse Source

+ added the minimal system unit from the wasm demo

git-svn-id: branches/wasm@46260 -
nickysn 5 năm trước cách đây
mục cha
commit
16aa4f0dfd
2 tập tin đã thay đổi với 22 bổ sung0 xóa
  1. 1 0
      .gitattributes
  2. 21 0
      rtl/wasi/system.pp

+ 1 - 0
.gitattributes

@@ -12095,6 +12095,7 @@ rtl/unix/unxdeclh.inc svneol=native#text/plain
 rtl/unix/unxovl.inc svneol=native#text/plain
 rtl/unix/unxovlh.inc svneol=native#text/plain
 rtl/unix/x86.pp svneol=native#text/plain
+rtl/wasi/system.pp svneol=native#text/plain
 rtl/watcom/Makefile svneol=native#text/plain
 rtl/watcom/Makefile.fpc svneol=native#text/plain
 rtl/watcom/classes.pp svneol=native#text/plain

+ 21 - 0
rtl/wasi/system.pp

@@ -0,0 +1,21 @@
+unit system;
+
+interface
+
+type
+  integer = longint;
+  hresult = integer; 
+  ttypekind = integer;
+  filerec = integer;
+  textrec = integer;
+  pbyte = ^byte;
+
+procedure fpc_lib_exit; compilerproc;
+
+implementation
+
+procedure fpc_lib_exit; compilerproc;
+begin
+end;
+
+end.