mirror of
https://github.com/epasveer/seer.git
synced 2026-08-30 17:10:44 +08:00
Ernie Pasveer
41 lines
1.2 KiB
Ada
41 lines
1.2 KiB
Ada
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;
|
|
|