diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-08 22:46:29 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-08 22:46:29 +1100 |
| commit | 1652e49e17e4f4dead4bd23694a2b99a06048023 (patch) | |
| tree | 1fed8349ae18b5b61946195ae9cf48fbda0f9a05 /src/preference_arrays.ads | |
| parent | 6824f93b9b575622cd13aefa81b800eb56ce0e2f (diff) | |
Moved nonworking code to the side
Diffstat (limited to 'src/preference_arrays.ads')
| -rw-r--r-- | src/preference_arrays.ads | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src/preference_arrays.ads b/src/preference_arrays.ads deleted file mode 100644 index c8245e0..0000000 --- a/src/preference_arrays.ads +++ /dev/null @@ -1,38 +0,0 @@ - - -with Interfaces.C; -with System; - - -package Preference_Arrays is - - - function Create_Preference_Array - (Number_Of_Ballots, Size_Of_Ballot : in Interfaces.C.int) - return System.Address; - pragma Export (C, Create_Preference_Array, "create_pref_array"); - - - procedure Free_Preference_Array - (Number_Of_Ballots, Size_Of_Ballot : in Interfaces.C.int; - Pref_Array_Address : in System.Address); - pragma Export (C, Free_Preference_Array, "free_pref_array"); - - - procedure Poke_Preference_Array - (Number_Of_Ballots, Size_Of_Ballot : in Interfaces.C.int; - Pref_Array_Address : in System.Address; - Ballot_Index, Box_Number, Rank : in Interfaces.C.int); - pragma Export (C, Poke_Preference_Array, "poke_pref_array"); - - - function Peek_Preference_Array - (Number_Of_Ballots, Size_Of_Ballot : in Interfaces.C.int; - Pref_Array_Address : in System.Address; - Ballot_Index, Box_Number, Rank : in Interfaces.C.int) - return Interfaces.C.int; - pragma Export (C, Peek_Preference_Array, "peek_pref_array"); - - -end Preference_Arrays; - |