Differences From Artifact [a27ae30975]:
- File src/natools-s_expressions-lockable.adb — part of check-in [e61f083c1a] at 2014-02-28 19:00:53 on branch trunk — s_expressions-lockable: new package with an interface and a wrapper to lock a descriptor in the current sub-expression (user: nat, size: 5437) [annotate] [blame] [check-ins using]
To Artifact [a0ead12b97]:
- File src/natools-s_expressions-lockable.adb — part of check-in [5d63dd5d69] at 2014-03-04 19:18:09 on branch trunk — s_expressions-lockable: new function to help invalidate popped states (user: nat, size: 5532) [annotate] [blame] [check-ins using]
| ︙ | |||
49 50 51 52 53 54 55 56 57 58 59 60 61 62 | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | + + + + + + |
function Current_Level (Stack : Lock_Stack) return Natural is
begin
return Stack.Level;
end Current_Level;
function Null_State return Lock_State is
begin
return (0, 0);
end Null_State;
-------------------------------------
-- Lockable Wrapper Implementation --
-------------------------------------
function Current_Event (Object : in Wrapper) return Events.Event is
|
| ︙ |