rewrite templates

1 files changed, 19 insertions, 0 deletions

diff --git a/xmake/templates/pascal/shared/src/foo.pas b/xmake/templates/pascal/shared/src/foo.pas
new file mode 100644
index 000000000..788950f46
--- /dev/null
+++ b/xmake/templates/pascal/shared/src/foo.pas
@@ -0,0 +1,19 @@
+library foo;
+
+{$mode objfpc}{$H+}
+
+function fib(n : Int64) : Int64; cdecl;
+begin
+  if n > 1 then
+  begin
+      Result := fib(n - 1) + fib(n - 2);
+  end
+  else
+        Result := 1;
+end;
+
+exports
+ fib;
+end.
+
+