Home
last modified time | relevance | path

Searched refs:Current_Attribute (Results 1 – 25 of 30) sorted by relevance

12

/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dprj-attr.adb184 Current_Attribute : Attribute_Node_Id := Empty_Attribute; variable
227 Current_Attribute := Empty_Attribute;
282 if Current_Attribute = Empty_Attribute then
303 Attributes.Table (Current_Attribute).Next :=
307 Current_Attribute := Attributes.Last;
308 Attributes.Table (Current_Attribute) :=
H A Dprj-dect.adb150 while Current_Attribute /= Empty_Attribute
154 Current_Attribute := Attributes.Table (Current_Attribute).Next;
160 if Current_Attribute = Empty_Attribute then
197 elsif Attributes.Table (Current_Attribute).Kind_2 =
232 if Current_Attribute /= Empty_Attribute
261 if Current_Attribute /= Empty_Attribute
263 Attributes.Table (Current_Attribute).Kind_2 /= Single
271 if Current_Attribute /= Empty_Attribute then
413 Current_Attribute := Empty_Attribute;
448 if Current_Attribute /= Empty_Attribute
[all …]
H A Dprj-strt.adb154 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
178 while Current_Attribute /= Empty_Attribute
180 Attributes.Table (Current_Attribute).Name /= Token_Name
182 Current_Attribute := Attributes.Table (Current_Attribute).Next;
187 if Current_Attribute = Empty_Attribute then
202 (Reference, To => Attributes.Table (Current_Attribute).Kind_1);
204 (Reference, To => Attributes.Table (Current_Attribute).Kind_2 =
213 if Attributes.Table (Current_Attribute).Kind_2 /= Single then
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dprj-attr.adb184 Current_Attribute : Attribute_Node_Id := Empty_Attribute; variable
227 Current_Attribute := Empty_Attribute;
282 if Current_Attribute = Empty_Attribute then
303 Attributes.Table (Current_Attribute).Next :=
307 Current_Attribute := Attributes.Last;
308 Attributes.Table (Current_Attribute) :=
H A Dprj-dect.adb150 while Current_Attribute /= Empty_Attribute
154 Current_Attribute := Attributes.Table (Current_Attribute).Next;
160 if Current_Attribute = Empty_Attribute then
197 elsif Attributes.Table (Current_Attribute).Kind_2 =
232 if Current_Attribute /= Empty_Attribute
261 if Current_Attribute /= Empty_Attribute
263 Attributes.Table (Current_Attribute).Kind_2 /= Single
271 if Current_Attribute /= Empty_Attribute then
413 Current_Attribute := Empty_Attribute;
448 if Current_Attribute /= Empty_Attribute
[all …]
H A Dprj-strt.adb154 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
178 while Current_Attribute /= Empty_Attribute
180 Attributes.Table (Current_Attribute).Name /= Token_Name
182 Current_Attribute := Attributes.Table (Current_Attribute).Next;
187 if Current_Attribute = Empty_Attribute then
202 (Reference, To => Attributes.Table (Current_Attribute).Kind_1);
204 (Reference, To => Attributes.Table (Current_Attribute).Kind_2 =
213 if Attributes.Table (Current_Attribute).Kind_2 /= Single then
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Dprj-dect.adb327 Current_Attribute :=
333 if Current_Attribute = Empty_Attribute then
372 if Is_Read_Only (Current_Attribute) then
379 if Attribute_Kind_Of (Current_Attribute) in
390 if Current_Attribute /= Empty_Attribute then
407 if Current_Attribute /= Empty_Attribute
422 if Others_Allowed_For (Current_Attribute)
530 if Current_Attribute /= Empty_Attribute
726 if Current_Attribute /= Empty_Attribute
733 (Current_Attribute,
[all …]
H A Dprj-attr.adb475 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
545 Current_Attribute := Empty_Attr;
634 if Current_Attribute = Empty_Attr then
653 Attrs.Table (Current_Attribute).Next :=
657 Current_Attribute := Attrs.Last;
658 Attrs.Table (Current_Attribute) :=
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dprj-dect.adb317 Current_Attribute :=
323 if Current_Attribute = Empty_Attribute then
362 if Is_Read_Only (Current_Attribute) then
369 if Attribute_Kind_Of (Current_Attribute) in
380 if Current_Attribute /= Empty_Attribute then
397 if Current_Attribute /= Empty_Attribute
412 if Others_Allowed_For (Current_Attribute)
520 if Current_Attribute /= Empty_Attribute
716 if Current_Attribute /= Empty_Attribute
723 (Current_Attribute,
[all …]
H A Dprj-attr.adb469 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
539 Current_Attribute := Empty_Attr;
628 if Current_Attribute = Empty_Attr then
647 Attrs.Table (Current_Attribute).Next :=
651 Current_Attribute := Attrs.Last;
652 Attrs.Table (Current_Attribute) :=
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Dprj-dect.adb317 Current_Attribute :=
323 if Current_Attribute = Empty_Attribute then
362 if Is_Read_Only (Current_Attribute) then
369 if Attribute_Kind_Of (Current_Attribute) in
380 if Current_Attribute /= Empty_Attribute then
397 if Current_Attribute /= Empty_Attribute
412 if Others_Allowed_For (Current_Attribute)
520 if Current_Attribute /= Empty_Attribute
716 if Current_Attribute /= Empty_Attribute
723 (Current_Attribute,
[all …]
H A Dprj-attr.adb469 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
539 Current_Attribute := Empty_Attr;
628 if Current_Attribute = Empty_Attr then
647 Attrs.Table (Current_Attribute).Next :=
651 Current_Attribute := Attrs.Last;
652 Attrs.Table (Current_Attribute) :=
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dprj-dect.adb331 Current_Attribute :=
337 if Current_Attribute = Empty_Attribute then
376 if Is_Read_Only (Current_Attribute) then
383 if Attribute_Kind_Of (Current_Attribute) in
394 if Current_Attribute /= Empty_Attribute then
411 if Current_Attribute /= Empty_Attribute
426 if Others_Allowed_For (Current_Attribute)
534 if Current_Attribute /= Empty_Attribute
733 if Current_Attribute /= Empty_Attribute
740 (Current_Attribute,
[all …]
H A Dprj-attr.adb508 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
579 Current_Attribute := Empty_Attr;
698 if Current_Attribute = Empty_Attr then
717 Attrs.Table (Current_Attribute).Next :=
721 Current_Attribute := Attrs.Last;
722 Attrs.Table (Current_Attribute) :=
H A Dprj-strt.adb170 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
196 Current_Attribute :=
201 if Current_Attribute = Empty_Attribute then
230 (Reference, In_Tree, To => Variable_Kind_Of (Current_Attribute));
233 To => Attribute_Kind_Of (Current_Attribute) in
237 To => Attribute_Default_Of (Current_Attribute));
245 if Attribute_Kind_Of (Current_Attribute) /= Single then
251 if Others_Allowed_For (Current_Attribute)
259 if Others_Allowed_For (Current_Attribute) then
/dports/devel/gprbuild/gprbuild-376670f/gpr/src/
H A Dgpr-dect.adb372 Current_Attribute :=
378 if Current_Attribute = Empty_Attribute then
417 if Is_Read_Only (Current_Attribute) then
424 if Attribute_Kind_Of (Current_Attribute) in
435 if Current_Attribute /= Empty_Attribute then
452 if Current_Attribute /= Empty_Attribute
467 if Others_Allowed_For (Current_Attribute)
574 if Current_Attribute /= Empty_Attribute
803 if Current_Attribute /= Empty_Attribute
810 (Current_Attribute,
[all …]
H A Dgpr-attr.adb525 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
596 Current_Attribute := Empty_Attr;
715 if Current_Attribute = Empty_Attr then
734 Attrs.Table (Current_Attribute).Next :=
738 Current_Attribute := Attrs.Last;
739 Attrs.Table (Current_Attribute) :=
H A Dgpr-strt.adb170 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
196 Current_Attribute :=
201 if Current_Attribute = Empty_Attribute then
230 (Reference, In_Tree, To => Variable_Kind_Of (Current_Attribute));
233 To => Attribute_Kind_Of (Current_Attribute) in
237 To => Attribute_Default_Of (Current_Attribute));
245 if Attribute_Kind_Of (Current_Attribute) /= Single then
251 if Others_Allowed_For (Current_Attribute)
259 if Others_Allowed_For (Current_Attribute) then
/dports/lang/gnat_util/gnat_util/
H A Dprj-dect.adb331 Current_Attribute :=
337 if Current_Attribute = Empty_Attribute then
376 if Is_Read_Only (Current_Attribute) then
383 if Attribute_Kind_Of (Current_Attribute) in
394 if Current_Attribute /= Empty_Attribute then
411 if Current_Attribute /= Empty_Attribute
426 if Others_Allowed_For (Current_Attribute)
534 if Current_Attribute /= Empty_Attribute
733 if Current_Attribute /= Empty_Attribute
740 (Current_Attribute,
[all …]
H A Dprj-attr.adb508 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
579 Current_Attribute := Empty_Attr;
698 if Current_Attribute = Empty_Attr then
717 Attrs.Table (Current_Attribute).Next :=
721 Current_Attribute := Attrs.Last;
722 Attrs.Table (Current_Attribute) :=
H A Dprj-strt.adb170 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
196 Current_Attribute :=
201 if Current_Attribute = Empty_Attribute then
230 (Reference, In_Tree, To => Variable_Kind_Of (Current_Attribute));
233 To => Attribute_Kind_Of (Current_Attribute) in
237 To => Attribute_Default_Of (Current_Attribute));
245 if Attribute_Kind_Of (Current_Attribute) /= Single then
251 if Others_Allowed_For (Current_Attribute)
259 if Others_Allowed_For (Current_Attribute) then
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dprj-dect.adb331 Current_Attribute :=
337 if Current_Attribute = Empty_Attribute then
376 if Is_Read_Only (Current_Attribute) then
383 if Attribute_Kind_Of (Current_Attribute) in
394 if Current_Attribute /= Empty_Attribute then
411 if Current_Attribute /= Empty_Attribute
426 if Others_Allowed_For (Current_Attribute)
534 if Current_Attribute /= Empty_Attribute
733 if Current_Attribute /= Empty_Attribute
740 (Current_Attribute,
[all …]
H A Dprj-attr.adb508 Current_Attribute : Attr_Node_Id := Empty_Attr; variable
579 Current_Attribute := Empty_Attr;
698 if Current_Attribute = Empty_Attr then
717 Attrs.Table (Current_Attribute).Next :=
721 Current_Attribute := Attrs.Last;
722 Attrs.Table (Current_Attribute) :=
H A Dprj-strt.adb170 Current_Attribute : Attribute_Node_Id := First_Attribute; variable
196 Current_Attribute :=
201 if Current_Attribute = Empty_Attribute then
230 (Reference, In_Tree, To => Variable_Kind_Of (Current_Attribute));
233 To => Attribute_Kind_Of (Current_Attribute) in
237 To => Attribute_Default_Of (Current_Attribute));
245 if Attribute_Kind_Of (Current_Attribute) /= Single then
251 if Others_Allowed_For (Current_Attribute)
259 if Others_Allowed_For (Current_Attribute) then
/dports/devel/matreshka/matreshka-0.7.0/source/xml/sax/
H A Dxml-sax-simple_readers-parser-actions.adb102 Self.Current_Attribute :=
107 if Self.Current_Attribute = No_Attribute then
113 Last := Self.Current_Attribute;
114 Current := Self.Current_Attribute;
267 if Self.Current_Attribute = No_Attribute then
306 Self.Current_Attribute := No_Attribute;
309 Self.Current_Attribute :=
312 while Self.Current_Attribute /= No_Attribute loop
322 Self.Current_Attribute :=
323 Next (Self.Attributes, Self.Current_Attribute);
[all …]

12