Add an Ada test program for arrays.

2026-08-30 09:00:42 +08:00 · 2023-03-18 10:56:43 -05:00
parent a3fc009bae
commit 04e9e750e8
4 changed files with 61 additions and 0 deletions
@@ -0,0 +1,40 @@
+with Text_IO; use Text_IO;
+with System;
+with System.Address_Image;
+with System.Address_To_Access_Conversions;
+
+procedure HelloAda is
+
+    -- Provided by Henrik Glass (https://github.com/henrikglass)
+
+    -- a type describing a float array of length 256.
+    type Float_Array_T is array(0..255) of Float;
+
+    -- an "access type" for the above type.
+    type Float_Array_Access_T is access all Float_Array_T;
+
+    -- idek...
+    package Conversions is new System.Address_To_Access_Conversions(Float_Array_T);
+    use Conversions;
+
+    -- some variables.
+    My_Float_Array         : aliased Float_Array_T;
+    My_Float_Array_Address : System.address;
+    My_Float_Array_Access  : Float_Array_Access_T;
+    My_Float_Array_Obj_Ptr : Conversions.Object_Pointer;
+
+begin
+    -- Fill My_Float_Array with data
+    for i in 0 .. 64 loop
+        My_Float_Array(i) := 1.3 * Float(i);
+    end loop;
+
+
+    My_Float_Array_Address := My_Float_Array'Address;
+    My_Float_Array_Access  := My_Float_Array'Access;
+    My_Float_Array_Obj_Ptr := Conversions.To_Pointer(My_Float_Array_Address);
+
+    Put_Line(System.Address_Image(My_Float_Array_Address));
+    Put_Line(Float'Image(My_Float_Array(3)));
+end HelloAda;
+