From 600bf2276696fd956d5351120a305af4448381a4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 12 Jun 2020 20:51:23 +0200
Subject: [PATCH] add test program made to reproduce pascal arrays in D

---
 lazproj/array_abi.lpr | 48 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 lazproj/array_abi.lpr

diff --git a/lazproj/array_abi.lpr b/lazproj/array_abi.lpr
new file mode 100644
index 00000000..db0b4803
--- /dev/null
+++ b/lazproj/array_abi.lpr
@@ -0,0 +1,48 @@
+{$Mode objfpc}
+{$ModeSwitch advancedrecords}
+{$ModeSwitch ansistrings}
+program array_abi;
+
+type
+
+  generic TFpcArray<T> = record
+    type PT = ^T;
+  public
+    refCount: PtrInt;
+    length: PtrInt;
+    data: T;
+    function getData: PT;
+  end;
+
+  TFpcString = specialize TFpcArray<char>;
+  PFpcString = ^TFpcString;
+
+  TFpcIntArray = specialize TFpcArray<integer>;
+  PFpcIntArray = ^TFpcIntArray;
+
+function TFpcArray.getData: PT;
+begin
+  result := PT(Pointer(@self) + 16)
+end;
+
+var
+  s1: string;
+  s2: PFpcString;
+  i1: array of integer;
+  i2: PFpcIntArray;
+  i: integer;
+
+begin
+  s1 := 'hello world';
+  s2 := PFpcString(Pointer(s1) - 16);
+  writeln(s2^.getData());
+
+  setLength(i1,4);
+  for i := 0 to 4 do
+    i1[i] := i;
+
+  i2 := PFpcIntArray(Pointer(i1) - 16);
+  for i := 0 to 4 do
+    writeln(i2^.getData()[i]);
+end.
+