Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Ada: fixing highlighting for Ada aspects #2125

Merged
merged 3 commits into from
Jun 16, 2022
Merged

Ada: fixing highlighting for Ada aspects #2125

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
1085047
Ada: fixing highlighting for Ada aspects
gusthoff Apr 29, 2022
bec1f56
Updating golden references after fix for Ada aspects
gusthoff Apr 29, 2022
f3bd68c
Ada: adding test for aspects
gusthoff Apr 29, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Ada: adding test for aspects
  • Loading branch information
@gusthoff
gusthoff committed Apr 29, 2022
commit f3bd68cee58be1415669a451dd146378d70435ab
58 changes: 58 additions & 0 deletions tests/examplefiles/ada/test_ada_aspects.ads
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,58 @@
with System;
with Interfaces.C;

package Test_Ada_Aspects is

type R is record
V : Integer range 0 .. 255;
B1 : Boolean;
B2 : Boolean;
end record
with Pack;

type Float_Int_Union (Use_Float : Boolean) is record
case Use_Float is
when True => F : Float;
when False => I : Integer;
end case;
end record
with Unchecked_Union;

type my_struct is record
A : Interfaces.C.int;
B : Interfaces.C.int;
end record
with Convention => C_Pass_By_Copy;

procedure Initialize (Size : Integer)
with
Import => True,
Convention => C,
External_Name => "registerInterface_Initialize";

type Percentage is range 0 .. 100
with Default_Value => 10;

type State is (Off, State_1, State_2)
with Size => Integer'Size;

for State use (Off => 0,
State_1 => 32,
State_2 => 64);

type Registers is record
Reserved_0 : Integer;
Reserved_1 : Integer;
end record
with Volatile, Size => 128;

private

Arr_1 : array (1 .. 2) of Long_Float with Volatile;
Arr_2 : array (1 .. 2) of Integer with Atomic_Components;

V : Integer with
Atomic,
Address => System'To_Address (16#FFFF00A0#);

end Test_Ada_Aspects;
Loading