/dports/devel/alog/libalog-0.6.1/src/ |
H A D | alog-facilities-syslog.adb | 32 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 D | freeze.adb | 2799 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 D | freeze.adb | 2799 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 D | freeze.adb | 3704 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 D | freeze.adb | 3108 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 D | freeze.adb | 3108 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 D | freeze.adb | 3429 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 D | freeze.adb | 3429 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 D | freeze.adb | 3429 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 D | freeze.adb | 3429 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 D | freeze.adb | 3429 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 D | freeze.adb | 3429 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 D | freeze.adb | 3619 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 D | freeze.adb | 3599 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 D | freeze.adb | 3599 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 D | freeze.adb | 3619 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 D | freeze.adb | 3599 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 D | freeze.adb | 3609 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 D | freeze.adb | 3609 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 D | freeze.adb | 3622 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 D | freeze.adb | 3609 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 D | freeze.adb | 4520 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 D | action.h | 45 #define F_Type 15 macro
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | freeze.adb | 1961 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 D | freeze.adb | 1961 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 …]
|