Home
last modified time | relevance | path

Searched refs:F_Type (Results 1 – 25 of 61) sorted by relevance

123

/dports/devel/alog/libalog-0.6.1/src/
H A Dalog-facilities-syslog.adb32 type F_Type is mod 2 ** 8; type
33 for F_Type'Size use 8;
45 Facility_Map : constant array (Syslog_Origin) of F_Type
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dfreeze.adb2799 F_Type : Entity_Id; variable
2808 F_Type := Etype (Formal);
2814 if Is_Incomplete_Type (F_Type)
2817 F_Type := Full_View (F_Type);
2818 Set_Etype (Formal, F_Type);
2823 if Is_Private_Type (F_Type)
2843 Error_Msg_Node_1 := F_Type;
2870 if Is_Access_Type (F_Type)
2893 elsif (Is_Tagged_Type (F_Type)
2915 Formal, F_Type);
[all …]
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Dfreeze.adb2799 F_Type : Entity_Id; variable
2808 F_Type := Etype (Formal);
2814 if Is_Incomplete_Type (F_Type)
2817 F_Type := Full_View (F_Type);
2818 Set_Etype (Formal, F_Type);
2823 if Is_Private_Type (F_Type)
2843 Error_Msg_Node_1 := F_Type;
2870 if Is_Access_Type (F_Type)
2893 elsif (Is_Tagged_Type (F_Type)
2915 Formal, F_Type);
[all …]
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Dfreeze.adb3704 F_Type : Entity_Id; variable
3713 F_Type := Etype (Formal);
3719 if Is_Incomplete_Type (F_Type)
3723 F_Type := Full_View (F_Type);
3724 Set_Etype (Formal, F_Type);
3729 if Is_Private_Type (F_Type)
3749 Error_Msg_Node_1 := F_Type;
3776 if Is_Access_Type (F_Type)
3799 elsif (Is_Tagged_Type (F_Type)
3821 Formal, F_Type);
[all …]
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dfreeze.adb3108 F_Type : Entity_Id; variable
3117 F_Type := Etype (Formal);
3123 if Is_Incomplete_Type (F_Type)
3127 F_Type := Full_View (F_Type);
3128 Set_Etype (Formal, F_Type);
3135 if Is_Private_Type (F_Type)
3155 Error_Msg_Node_1 := F_Type;
3181 if Is_Access_Type (F_Type)
3202 elsif (Is_Tagged_Type (F_Type)
3223 Formal, F_Type);
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dfreeze.adb3108 F_Type : Entity_Id; variable
3117 F_Type := Etype (Formal);
3123 if Is_Incomplete_Type (F_Type)
3127 F_Type := Full_View (F_Type);
3128 Set_Etype (Formal, F_Type);
3135 if Is_Private_Type (F_Type)
3155 Error_Msg_Node_1 := F_Type;
3181 if Is_Access_Type (F_Type)
3202 elsif (Is_Tagged_Type (F_Type)
3223 Formal, F_Type);
[all …]
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dfreeze.adb3429 F_Type : Entity_Id; variable
3438 F_Type := Etype (Formal);
3444 if Is_Incomplete_Type (F_Type)
3448 F_Type := Full_View (F_Type);
3449 Set_Etype (Formal, F_Type);
3456 if Is_Private_Type (F_Type)
3476 Error_Msg_Node_1 := F_Type;
3502 if Is_Access_Type (F_Type)
3523 elsif (Is_Tagged_Type (F_Type)
3544 Formal, F_Type);
[all …]
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/
H A Dfreeze.adb3619 F_Type : Entity_Id; variable
3628 F_Type := Etype (Formal);
3634 if Is_Incomplete_Type (F_Type)
3638 F_Type := Full_View (F_Type);
3639 Set_Etype (Formal, F_Type);
3646 if Is_Private_Type (F_Type)
3666 Error_Msg_Node_1 := F_Type;
3694 if Is_Access_Type (F_Type)
3717 elsif (Is_Tagged_Type (F_Type)
3738 Formal, F_Type);
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dfreeze.adb3599 F_Type : Entity_Id; variable
3608 F_Type := Etype (Formal);
3614 if Is_Incomplete_Type (F_Type)
3618 F_Type := Full_View (F_Type);
3619 Set_Etype (Formal, F_Type);
3626 if Is_Private_Type (F_Type)
3646 Error_Msg_Node_1 := F_Type;
3672 if Is_Access_Type (F_Type)
3695 elsif (Is_Tagged_Type (F_Type)
3716 Formal, F_Type);
[all …]
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dfreeze.adb3599 F_Type : Entity_Id; variable
3608 F_Type := Etype (Formal);
3614 if Is_Incomplete_Type (F_Type)
3618 F_Type := Full_View (F_Type);
3619 Set_Etype (Formal, F_Type);
3626 if Is_Private_Type (F_Type)
3646 Error_Msg_Node_1 := F_Type;
3672 if Is_Access_Type (F_Type)
3695 elsif (Is_Tagged_Type (F_Type)
3716 Formal, F_Type);
[all …]
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/
H A Dfreeze.adb3619 F_Type : Entity_Id; variable
3628 F_Type := Etype (Formal);
3634 if Is_Incomplete_Type (F_Type)
3638 F_Type := Full_View (F_Type);
3639 Set_Etype (Formal, F_Type);
3646 if Is_Private_Type (F_Type)
3666 Error_Msg_Node_1 := F_Type;
3694 if Is_Access_Type (F_Type)
3717 elsif (Is_Tagged_Type (F_Type)
3738 Formal, F_Type);
[all …]
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dfreeze.adb3599 F_Type : Entity_Id; variable
3608 F_Type := Etype (Formal);
3614 if Is_Incomplete_Type (F_Type)
3618 F_Type := Full_View (F_Type);
3619 Set_Etype (Formal, F_Type);
3626 if Is_Private_Type (F_Type)
3646 Error_Msg_Node_1 := F_Type;
3672 if Is_Access_Type (F_Type)
3695 elsif (Is_Tagged_Type (F_Type)
3716 Formal, F_Type);
[all …]
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/
H A Dfreeze.adb3609 F_Type : Entity_Id; variable
3618 F_Type := Etype (Formal);
3624 if Is_Incomplete_Type (F_Type)
3628 F_Type := Full_View (F_Type);
3629 Set_Etype (Formal, F_Type);
3636 if Is_Private_Type (F_Type)
3656 Error_Msg_Node_1 := F_Type;
3684 if Is_Access_Type (F_Type)
3707 elsif (Is_Tagged_Type (F_Type)
3728 Formal, F_Type);
[all …]
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/
H A Dfreeze.adb3609 F_Type : Entity_Id; variable
3618 F_Type := Etype (Formal);
3624 if Is_Incomplete_Type (F_Type)
3628 F_Type := Full_View (F_Type);
3629 Set_Etype (Formal, F_Type);
3636 if Is_Private_Type (F_Type)
3656 Error_Msg_Node_1 := F_Type;
3684 if Is_Access_Type (F_Type)
3707 elsif (Is_Tagged_Type (F_Type)
3728 Formal, F_Type);
[all …]
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/
H A Dfreeze.adb3622 F_Type : Entity_Id; variable
3631 F_Type := Etype (Formal);
3637 if Is_Incomplete_Type (F_Type)
3641 F_Type := Full_View (F_Type);
3642 Set_Etype (Formal, F_Type);
3649 if Is_Private_Type (F_Type)
3669 Error_Msg_Node_1 := F_Type;
3697 if Is_Access_Type (F_Type)
3720 elsif (Is_Tagged_Type (F_Type)
3741 Formal, F_Type);
[all …]
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/
H A Dfreeze.adb3609 F_Type : Entity_Id; variable
3618 F_Type := Etype (Formal);
3624 if Is_Incomplete_Type (F_Type)
3628 F_Type := Full_View (F_Type);
3629 Set_Etype (Formal, F_Type);
3636 if Is_Private_Type (F_Type)
3656 Error_Msg_Node_1 := F_Type;
3684 if Is_Access_Type (F_Type)
3707 elsif (Is_Tagged_Type (F_Type)
3728 Formal, F_Type);
[all …]
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dfreeze.adb4520 F_Type : Entity_Id; variable
4529 F_Type := Etype (Formal);
4535 if Is_Incomplete_Type (F_Type)
4539 F_Type := Full_View (F_Type);
4540 Set_Etype (Formal, F_Type);
4543 if not From_Limited_With (F_Type)
4549 if Is_Private_Type (F_Type)
4572 F_Type);
4596 if Is_Access_Type (F_Type)
4641 Formal, F_Type);
[all …]
/dports/x11/xkbcomp/xkbcomp-1.4.5/
H A Daction.h45 #define F_Type 15 macro
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dfreeze.adb1961 F_Type : Entity_Id; variable
1987 F_Type := Etype (Formal);
1988 Freeze_And_Append (F_Type, Loc, Result);
1990 if Is_Private_Type (F_Type)
1992 and then No (Full_View (Base_Type (F_Type)))
1993 and then not Is_Generic_Type (F_Type)
1994 and then not Is_Derived_Type (F_Type)
2010 Error_Msg_Node_1 := F_Type;
2020 Is_Fat_C_Ptr_Type (F_Type)
2034 and then Is_Array_Type (F_Type)
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dfreeze.adb1961 F_Type : Entity_Id;
1987 F_Type := Etype (Formal);
1988 Freeze_And_Append (F_Type, Loc, Result);
1990 if Is_Private_Type (F_Type)
1992 and then No (Full_View (Base_Type (F_Type)))
1993 and then not Is_Generic_Type (F_Type)
1994 and then not Is_Derived_Type (F_Type)
2010 Error_Msg_Node_1 := F_Type;
2020 Is_Fat_C_Ptr_Type (F_Type)
2034 and then Is_Array_Type (F_Type)
[all …]

123