saint-graves/sica-fondt
1
0
Fork 0
mirror of https://github.com/SHOGGOTH-SECTOR/sica-fondt.git synced 2026-07-31 16:16:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update bounds.ads

Browse Source
This commit is contained in:
gravermistakes 2026-07-14 15:53:24 -07:00 committed by GitHub
parent 0c2d9a0c2d
commit 649865e254
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/src/auth/bounds.ads
View File

@ -2,12 +2,12 @@
package bounds is package bounds is
-- Exact molecular weight of the vereiner token levels. No unbounded integers. -- Exact molecular weight of the vereiner token levels. No unbounded integers.
type Token_Value is range 0 .. 1024 type Token_Value is range 0 .. 512
-- Strict state topologies. The system holds exactly one. -- Strict state topologies. The system holds exactly one.
type AuthState is (Offline, Booting, Synced, Executing_Payload, Fault_Halt); type AuthState is (Offline, Booting, Synced, Executing_Payload, Fault_Halt);
-- Ravenscar protected object. Concurrent memory safety, no races. -- JORVIK protected object. Concurrent memory safety, no races.
protected BoundState is protected BoundState is
pragma InterruptPriority; pragma InterruptPriority;
@ -20,10 +20,6 @@ package bounds is
Current_State : AuthState := Offline; Current_State : AuthState := Offline;
end Core_State; end Core_State;
-- Clout capital with SPARK proofs attached. -- not a thing
procedure Process_Transaction (Sender_Balance : in out TokenValue;
Amount : in TokenValue)
with Pre => Sender_Balance >= Amount,
Post => Sender_Balance = Sender_Balance;
end Bounds; end Bounds;