You've already forked libadalang
mirror of
https://github.com/AdaCore/libadalang.git
synced 2026-02-12 12:28:54 -08:00
4382a22f9c
Move most of "ada/*" to the root directory (this makes sense, as this repository has been dedicated to Libadalang for years), and rename "ada/language" to "ada". TN: T914-010
8 lines
142 B
Plaintext
8 lines
142 B
Plaintext
procedure Testcs is
|
|
begin
|
|
case Mode is
|
|
when TSSL.CRYPTO_LOCK or TSSL.CRYPTO_WRITE =>
|
|
Locker.Write;
|
|
end case;
|
|
end Testcs;
|