diff -uNr a/zfp/examples/bin/README b/zfp/examples/bin/README --- a/zfp/examples/bin/README false +++ b/zfp/examples/bin/README 5fdbae897eb301a711bf95707f329517db540e34c182a5beec96e93d5d0d856cec2ed6b01c1191f865e8d1c45709a462c70c3005d4aa3676eb445d1479edf2e5 @@ -0,0 +1 @@ +Placeholder. diff -uNr a/zfp/examples/constraint/constraint.adb b/zfp/examples/constraint/constraint.adb --- a/zfp/examples/constraint/constraint.adb false +++ b/zfp/examples/constraint/constraint.adb 6fef4ef76d4582051ce0717bd229c1e0bd09dc0a624786d3b73089592499b733eeb9c75b9c57e0669fd3c14f4fab0f44d6ecf436635bd2433527ceba5528f7d4 @@ -0,0 +1,36 @@ +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- You do not have, nor can you ever acquire the right to use, copy or -- +-- distribute this software ; Should you use this software for any purpose, -- +-- or copy and distribute it to anyone or in any manner, you are breaking -- +-- the laws of whatever soi-disant jurisdiction, and you promise to -- +-- continue doing so for the indefinite future. In any case, please -- +-- always : read and understand any software ; verify any PGP signatures -- +-- that you use - for any purpose. -- +-- -- +-- See also http://trilema.com/2015/a-new-software-licensing-paradigm . -- +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + +with Ada.Text_IO; use Ada.Text_IO; +with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; + +procedure Constraint is + I : Integer := 1; + A : array (1 .. 3) of Integer; +begin + for J in A'Range loop + A(J) := (J + 10) * 20; + end loop; + Put("Loop should end in constaint error."); + New_Line; + loop + Put(I); + New_Line; + Put(A(I)); + I := I + 1; + if I > 10 then + exit; + end if; + end loop; +end Constraint; diff -uNr a/zfp/examples/examples.gpr b/zfp/examples/examples.gpr --- a/zfp/examples/examples.gpr false +++ b/zfp/examples/examples.gpr 534d9e5e0760d171256e721e59c6d0eb9ee0ed88518b60e661e048e45f3168aaab9a06d6bedb6ea332ff84686f0f9a47078f7adbb9f32f5f392e2959484f4d4d @@ -0,0 +1,42 @@ +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- You do not have, nor can you ever acquire the right to use, copy or -- +-- distribute this software ; Should you use this software for any purpose, -- +-- or copy and distribute it to anyone or in any manner, you are breaking -- +-- the laws of whatever soi-disant jurisdiction, and you promise to -- +-- continue doing so for the indefinite future. In any case, please -- +-- always : read and understand any software ; verify any PGP signatures -- +-- that you use - for any purpose. -- +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + + +project Examples is + + for Object_Dir use "obj"; + + for Languages use ("Ada", "C"); + for Source_Dirs use ("helloworld", "constraint"); + for Exec_Dir use "bin"; + for Main use ("helloworld/hello.adb", "constraint/constraint.adb"); + + + package Compiler is + for Switches ("Ada") + use ("-O2", --"-gnatg", "-gnatyN", + "-fstack-check", + "-fdata-sections", "-ffunction-sections", + "-gnatec=" & Examples'Project_Dir & "restrict.adc"); + end Compiler; + + package Binder is + for Switches ("Ada") + use ("-static","-r"); + end Binder; + + package Linker is + for Switches ("Ada") + use ("-Wl,--gc-sections", "-static"); + end Linker; + +end Examples; diff -uNr a/zfp/examples/helloworld/hello.adb b/zfp/examples/helloworld/hello.adb --- a/zfp/examples/helloworld/hello.adb false +++ b/zfp/examples/helloworld/hello.adb 1b937aa6ddf67962bad9b8a29f1ce549d030f54f2f299719d91f029089f2a442b5bf317aeb1a0b495ce1b02b9e13d5a84266cca8242a8cf8f789feae7e70384e @@ -0,0 +1,21 @@ +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- You do not have, nor can you ever acquire the right to use, copy or -- +-- distribute this software ; Should you use this software for any purpose, -- +-- or copy and distribute it to anyone or in any manner, you are breaking -- +-- the laws of whatever soi-disant jurisdiction, and you promise to -- +-- continue doing so for the indefinite future. In any case, please -- +-- always : read and understand any software ; verify any PGP signatures -- +-- that you use - for any purpose. -- +-- -- +-- See also http://trilema.com/2015/a-new-software-licensing-paradigm . -- +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + +with Ada.Text_IO; use Ada.Text_IO; + +procedure Hello is +begin + Put("Hello World"); + New_Line; +end Hello; diff -uNr a/zfp/examples/obj/README b/zfp/examples/obj/README --- a/zfp/examples/obj/README false +++ b/zfp/examples/obj/README 5fdbae897eb301a711bf95707f329517db540e34c182a5beec96e93d5d0d856cec2ed6b01c1191f865e8d1c45709a462c70c3005d4aa3676eb445d1479edf2e5 @@ -0,0 +1 @@ +Placeholder. diff -uNr a/zfp/examples/restrict.adc b/zfp/examples/restrict.adc --- a/zfp/examples/restrict.adc false +++ b/zfp/examples/restrict.adc 5225e9986fc2b427c285fbb867ce8dc881f0015f82506ca31e94686c31090f8913dd83321f9839143128873a2dcda7dd8e7d19d676a42af1c0ce979c8195c22c @@ -0,0 +1,85 @@ +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- This file is part of 'Finite Field Arithmetic', aka 'FFA'. -- +-- -- +-- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) -- +-- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html -- +-- -- +-- You do not have, nor can you ever acquire the right to use, copy or -- +-- distribute this software ; Should you use this software for any purpose, -- +-- or copy and distribute it to anyone or in any manner, you are breaking -- +-- the laws of whatever soi-disant jurisdiction, and you promise to -- +-- continue doing so for the indefinite future. In any case, please -- +-- always : read and understand any software ; verify any PGP signatures -- +-- that you use - for any purpose. -- +-- -- +-- See also http://trilema.com/2015/a-new-software-licensing-paradigm . -- +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + +pragma Restrictions(Immediate_Reclamation); +pragma Restrictions(Max_Asynchronous_Select_Nesting => 0); +pragma Restrictions(Max_Protected_Entries => 0); +pragma Restrictions(Max_Select_Alternatives => 0); +pragma Restrictions(Max_Task_Entries => 0); +pragma Restrictions(Max_Tasks => 0); +pragma Restrictions(No_Abort_Statements); +pragma Restrictions(No_Access_Parameter_Allocators); +pragma Restrictions(No_Allocators); +pragma Restrictions(No_Asynchronous_Control); +pragma Restrictions(No_Calendar); +pragma Restrictions(No_Coextensions); +pragma Restrictions(No_Default_Stream_Attributes); +pragma Restrictions(No_Delay); +pragma Restrictions(No_Dispatch); +pragma Restrictions(No_Dispatching_Calls); +pragma Restrictions(No_Dynamic_Attachment); +pragma Restrictions(No_Dynamic_Priorities); +pragma Restrictions(No_Entry_Calls_In_Elaboration_Code); +pragma Restrictions(No_Entry_Queue); +pragma Restrictions(No_Enumeration_Maps); +pragma Restrictions(No_Exception_Propagation); +pragma Restrictions(No_Exception_Registration); +pragma Restrictions(No_Finalization); +pragma Restrictions(No_Fixed_Io); +pragma Restrictions(No_Implementation_Aspect_Specifications); +pragma Restrictions(No_Implementation_Units); +pragma Restrictions(No_Implicit_Aliasing); +pragma Restrictions(No_Implicit_Conditionals); +pragma Restrictions(No_Implicit_Dynamic_Code); +pragma Restrictions(No_Implicit_Heap_Allocations); +pragma Restrictions(No_Implicit_Protected_Object_Allocations); +pragma Restrictions(No_Implicit_Task_Allocations); +pragma Restrictions(No_Initialize_Scalars); +pragma Restrictions(No_Local_Protected_Objects); +pragma Restrictions(No_Local_Timing_Events); +pragma Restrictions(No_Multiple_Elaboration); +pragma Restrictions(No_Nested_Finalization); +pragma Restrictions(No_Protected_Type_Allocators); +pragma Restrictions(No_Protected_Types); +pragma Restrictions(No_Relative_Delay); +pragma Restrictions(No_Requeue_Statements); +pragma Restrictions(No_Secondary_Stack); +pragma Restrictions(No_Select_Statements); +pragma Restrictions(No_Specific_Termination_Handlers); +pragma Restrictions(No_Standard_Allocators_After_Elaboration); +pragma Restrictions(No_Stream_Optimizations); +pragma Restrictions(No_Streams); +pragma Restrictions(No_Task_Allocators); +pragma Restrictions(No_Task_At_Interrupt_Priority); +pragma Restrictions(No_Task_Attributes_Package); +pragma Restrictions(No_Task_Hierarchy); +pragma Restrictions(No_Tasking); +pragma Restrictions(No_Task_Termination); +pragma Restrictions(No_Terminate_Alternatives); +pragma Restrictions(No_Unchecked_Access); +pragma Restrictions(No_Unchecked_Deallocation); +pragma Restrictions(No_Wide_Characters); +pragma Restrictions(Pure_Barriers); +pragma Restrictions(Simple_Barriers); +pragma Restrictions(Static_Priorities); +pragma Restrictions(Static_Storage_Size); +pragma Validity_Checks(ALL_CHECKS); +pragma Discard_Names; +pragma Restrictions (No_Enumeration_Maps); +pragma Restrictions (No_Exception_Propagation); diff -uNr a/zfp/manifest b/zfp/manifest --- a/zfp/manifest 5ac0a5fda47f5bacf68d2b31df0d877f87dd17f1ca9377f85f4808a346fabe0f109c53295d11b968efbfbf111f5995e8d9fe3b6d69e71a3aa4b27981908bb1e1 +++ b/zfp/manifest ec0dcb82d3e2d3c58c7cad6f920dd0ea8bd6baabf69dfcea2a4b95eccb005e51998c48639c5cb1589e99e0582aaa5613837f00e75563e1b6cd67e9fd92c7026d @@ -1 +1,2 @@ 535595 zfp_genesis ave1 a minimal gnat runtime library +535611 zfp_1_examples ave1 two examples for the minimal runtime