瀏覽代碼

+ added a dummy test rtl function that takes parameters and returns a result

git-svn-id: branches/wasm@46712 -
nickysn 5 年之前
父節點
當前提交
893e08489d
共有 1 個文件被更改,包括 7 次插入0 次删除
  1. 7 0
      rtl/wasi/system.pp

+ 7 - 0
rtl/wasi/system.pp

@@ -12,10 +12,17 @@ type
 
 procedure fpc_lib_exit; compilerproc;
 
+function test_rtl_function(a, b: integer): integer;
+
 implementation
 
 procedure fpc_lib_exit; compilerproc;
 begin
 end;
 
+function test_rtl_function(a, b: integer): integer;
+begin
+  test_rtl_function := 0;
+end;
+
 end.